Maple Questions and Posts

These are Posts and Questions associated with the product, Maple

Why is Maple 2020 in "abcapps.cloud.com" different from Maple 2020 in apps.abc.edu? I am connecting to maple 2020 in two different ways to the school where I work. The schools name is, say, "abc". The first version of Maple 2020 has two arrows at the top. The second arrow is the "upload" arrow and allows me to upload a file from my home computer the my folder at school.
The second version of Maple 2020 has no such arrows. Both versions allow me to get my Maple cloud working for local loading and saving Maple files. How can I upload a Maple file to my Maple cloud from my home computer in the second Maple 2020 version in apps.abc.edu? Or, how can I upload a file to my Maple cloud in any way from my home computer?
By the way, the second Maple 2020 version is coming from Microsoft's Remore Desktop Web Client. It look like it has its own navigation bar at the top.

Thank you!

mapleatha

I have a complicated expression which involves RootOf. How to get rid of and simpliy the equation?

I am looking for an expression for eta(H) not a numerical value.  

eta(H)sheet1.mw  

When a and b are from 0 to 1 it works!! but from -1 to -0.05 not i wonder why?

a1:=1.9:alpha:=0.2:
ode1 := diff( y(x), x$2 ) + x^(-1)* diff( y(x), x )  = 2*a1*(1+x^(2-alpha)/((2-alpha)^2*GAMMA(2-alpha))):
    bc1 := y(0)=subs(r=-0.05,a1/4*(r^2-1)), y(-1)=0:
a:=-1:b:=-0.05:
N := 20:h := (b-a)/N:
X := k -> a+k*h: 
'X'[k] = X(k):
Yp  := k -> (y[k+1]-y[k-1])/2/((1+alpha)*GAMMA(1+alpha)*h^(alpha)):Ypp := k -> (y[k+1]-2*y[k]+y[k-1])/((2-alpha)*GAMMA(2-alpha)*(h^(2-alpha))^2):
for k from 1 to N-1 do
eq[k] := eval( ode1,
                    {x=X(k), y(x)=y[k],
                     diff(y(x),x)=Yp(k),
                     diff(y(x),x$2)=Ypp(k)} ):
    end do:

eq[0] := y[0] = rhs(bc1[1]):
eq[N] := y[N] = rhs(bc1[2]):
    fd_sol1 := fsolve( {seq( eq[k], k=0..N )}, {seq( y[k], k=0..N )} ):
fd_table1 := eval( seq([X(k),y[k]],k=0..N), fd_sol1 ):Matrix([fd_table1]):
infolevel[dsolve] := 3:
#exact_sol1 := combine(dsolve( { ode1, bc1 }, y(x) )):
infolevel[dsolve] := 0:

P1:=plot([fd_table1], x=a..b,color=[black], linestyle = solid, symbolsize=16,axes=boxed);

 

I defined x(t) and y(t) with units; motion in gravity, motion in y-direction with constant velocity, motion in x-direction as motion with constant acceleration.

x := t -> 10*Unit(('m')/'s'^2)*t^2;

y := t -> 50*Unit(('m')/('s'))*t;

plot([x(t), y(t), t = 0*Unit('s') .. 5*Unit('s')]);

Error, (in plot) invalid terms in product: 0 .. 5*Units:-Unit(s)

It works fine if I remove the units.

Also I can plot graph for x(t) and for y(t) with units, but not graph for [x(t), y(t)]

How to solve the Linear first-order partial differential equation by the Lagrange method. Suppose u and v are dependent variables and x,y,z are independent variables of a partial differential equation of the form:

dx/f(x,y,z)=dy/g(x,y,z)=dz/h(x,y,z)=du/k(x,y,z)=dv/s(x,y,z). I need its solution in the form of u and v . How to find it ?

Hello,

Any form to display

 

as

 

?

of course, for 

Thanks in advance,

César Lozada

 

It is said that the LaTeX export of maple2021 has been improved , but unfortunately I still encounter the following problems.

When I execute the following related graph theory code,

restart;
with(GraphTheory):
s1:=[NonIsomorphicGraphs(4,restrictto = connected,output=graphs,outputform=graph)]:
DrawGraph(s1,width=4,stylesheet = [vertexcolor = "Blue",vertexpadding=20])

 

It is strange that all graphs(.eps) are not produced in  corresponding folder  when I exported it as latex file . So it leads to the lack of graphs in the running results of latex.

If it is a single graph, there seems to be no problem.

restart;
with(GraphTheory):
s1:=[NonIsomorphicGraphs(4,restrictto = connected,output=graphs,outputform=graph)]:
DrawGraph(
s1[1],width=4,stylesheet = [vertexcolor = "Blue",vertexpadding=20])

 

 

 

 

 

graph1.mw

 

 

 

 

Hi,

I am looking to have Maple compute the following:

simplify(diff(diff(Sum(epsilon^k*apply(index(f, k), t)/k!, k = 1 .. infinity), t), epsilon, epsilon))

The return value is:

 

Is there any way to get this to simplify appropriately? The problem is with the case k=1, which should just be 0.

What is the best way to expand this if I want to see some of the first few terms?

 

I'm trying out the simple Java example for accessing OpenMaple.  I'm doing it in IntelliJ using JDK15.  I've included the two jar files in the project, externalcall.jar and Maple.jar.  When compiling I run into this error, as IntelliJ doesn't seem to be able to find jopenmaple.jar

Error loading libraries: java.lang.UnsatisfiedLinkError: no jopenmaple in java.library.path: /Users/jasmith/Library/Java/Extensions:/Library/Java/Extensions:/Network/Library/Java/Extensions:/System/Library/Java/Extensions:/usr/lib/java:.

Now, I'd like to add its location to the library path, but I can't seem to find its location.  My understanding is that is should be in $MAPLE/java/jopenmaple.jar

which, on Mac OS is "/Library/Frameworks/Maple.framework/Versions/2021"

But when I look in there there is no jopenmaple.jar.

Does anyone have a suggestion as to where I could find it?  (Maple 2021, IntelliJ 2020 with JDK 15 on macOS 10.14)

thanks!

James

Hi all, 

When I open up Maple the toolbar which says insert: 'Math, Text etc' has disappeared. However sometimes when I restart the program the tool bar re-appears again. I have attached a screenshot have a look. I want to know is anyone else experiencing this in Maple 2021? 

 

Hi,

I need to plot a simple cube like this

I think my code is not optimal

Thinks

CUBE.mw

Some special graphs are temporarily difficult to be generated by maple's function NonIsomorphicGraphsSo I want to read some such data from the following URL.

http://users.cecs.anu.edu.au/~bdm/data/graphs.html


But recently I found out that the data on this website has been changed. Different graphs are not on a single line, so I can’t read them by maple effectively. The previous method fails.

https://www.mapleprimes.com/questions/228819-How-To-Import-All-Graphs-In-A-Graph6-File

restart: with(GraphTheory):
L:=ImportGraph("yourpath/graph5c.g6", graph6, output=list):
 DrawGraph(L);

 

For example: all 41 Strongly regular graphs(19,14,6,7).The g6 file is converted into text format, as shown below

\}rE^yceKLtLlGeduRQhMYLLKZZapjTSLUKw[kQXIyLbHtkCzStI`{y@}FOWzcBzHozFg
\}rEnYSbLSTVeek[ulB`YUiH[QrWqzLKhbRHU\EGRVzCfT]@vLMKdZgfGsigmUclBxQq[
\}rFMqidTgvDbYbdu]BHsULThIykJzwW@jPPTwaP`frcg{zEaxyB\Kx@vDiXEyXhCzcks
\}rFMyoiLcqseVblTlBG{TI\YsBoMqUqxiam\[D?JlzDKmYFEZcCyq\@puexMeDuKrHrc
\}rFUihddgvDbYbdu]BPsTLTeIyqJzwW@f`HUscP`frcg{zEaxyBlJT@nE[XEydhCzbKs
\}rMNeceLDqtedmQtmAbwYIt[pRTKZcpLsExRuE@Qldb`lMC{itHep]?{^cWUZmXLXPfo
\}rMNeockxsqayjHvIbHwSdtiaywbRRadXMX\i@_TlNcZXYMBZLHRknAk^oGnIBtBuLPk
\}rNEmSeLXUMifkiPyJ_rQlLipIfSrIkh[bF^BE?Q^vCstUDc{\@zRUcnEw`qJHxEu`c{
\}rNEmo`k\uQmBe\TkQhhYK\iRIwkjbSTJLX\iD?FtnAjXiJJO{EbmLCg}fovBKuHtIps
\}rNMqobdRqYdhhZVEQXFST\ctYVSrcppycE\Q`OF{mdBtuFBs\DmQwcw\Qgz`HrIp[Yk
\}rNUio`{rt`hkehUGycyYJd`pywdylE`jGd\XAOXjN_ZvNBYrWLBkwbW\QpMigfMm?m[
\}rNUmBhKpUMkijErbb_NXN@WyJT`ijQthL[Tcn?Frf`szIBXlhLSpofPdWhMTPvEtPNW
\}rNUmBiKhULkkjFRbR_NXN@WyJJ`qtQliK{TSv?Frf`szIBXlhMTPoepTWhMUHvEtINW
\}rNUmBiKhULkkjFRbR_NYN@SyJLQir`tdS{Uav?Frf`susBXuTLSpofPdWhMTPvEtPNW
\}rNUmBiKhUMkijErbb_NYN@SyJJQqt`leK{USv?Frf`sykBXmdMaioeigwhMdHvErQNW
\}rUNUgdLFrdhke`vIJ`qQetYkJaMrWdXLsR\gL@DNNd`nIE[jc@vInaZMl?^E`lLR`pk
\}rVE]gclhTRc{bVVcRPbUBtpUY\gAloteBy]Y@_JulbPtVGyq[LDXk`ktwWubamHrLRK
\}rVE]gdLWuda|c{VPIpbWjTdqYssRckdLLX^GH_Kv\dNG]Bhk]KPx^BHvoGnISlHuLPk
\}rVE]oakxsqmDczTkRPJP\TiwJcUarctUQm^BD?W^|AueMHVasKWzK`ZMUwuMIyHyHrc
\}reMuHkK\VBdmjHUYIpRWmLhqI[iYskdsbX\RD?c^{c[wnJElSD^Ak?}MYwyFLUIrIXs
\}reMuWglFrdbdlKVGZOtTLdikAeeY\BxwTU\YE?dVm`hyVI[jcHRZpaZfKHkLHtB{O\k
\}reMuoiDLrcefb\U]BPhSjd[YRgiREetM`{]Y@_dfN_|ijIYq[AvMdAjLsX[LDuLPlPk
\}ree]`eLhrakkazTorDiYG|YWzWkajgpUJJ]Y@_LZlf@lMA{g~DXjU@jXsHeMcjHuLPk
\}rmeU`clPrJfIlcs{ahhYFTJqJFQqi[dqIl^KD?JfzEKwyEikkHfH\@o~ow]qEuMPYNc
\}vENMahLWrUeUkXrtAhsRLTRURgbZTWhiJJ]WM?FVxeRcvI[hsDg{w`hlxO]kPmLRST[
\}vevMgiKaolcjlEpub`XTG|K]AKryFk\wTTYYf?UZdcY\NL`lHFUJDbkhLH\EKtK}Co{
\}zEmYWglgo}kRa{vdAbbYdLqeIq[rKqdTwSZGpWH^}civEEeqlI^@w@xLdW|HEmKo|P[
\}zUvMckCTpJ`\fJUUR`iYIhSXiSliFU|[eYXVF?NXLaW~IJSpoFeaLfGldp\Bc}K}CYw
\}zUvMgkChpQ_~fLSlaXXST\QiiLMjA{tkXF]Kf?YNXc]LsLdKdLWoufPclW]s`{EyUP[
\}zVMq``lPqRb[fBu[aoxXJPEbyb[yUqhbUJ^KE@`fj`ivEAxZTM`oma~?YXiRRXJal`[
\}zVUmobCoqV_zjKsnB`RQUtEsyKmjA\t[iK]L?wZFFc]TeLTQTLashdpclWupcyExVAk
\}~EMmPhCXtNkchirURHdUItQ]JhQjFgxiDeRUMGF\laixeBh]XK[W|BrCwXUUQrNPcbk
\}~VEMQbDBtQeZdlSnA@}\@lX`rLQqYwliosSueHINx@[twDlI\MEZd@yWVheYIuNI_yk
\~rEM]WhLTS^d[ecv`ITqRD\hqRciYxSTpMX\gL?L\]crYMD\MKIPzNAX]tOvIEmJUHpk
\~rE~YWdKKsJaZjLUTR_ZRK\gjQdkIIt|i[MTXe`KNT`\fEL]@LFatEfITLXNBM[EtSp[
\~rE~YceKSsL`jlMRIqpLTD\EqiRqjA{\kJX[jD_iVddPleJ[HNMkcWaz`JW^IsJKoxrS
\~rF]ySiCXqTglhUrMb`bQ]dE[yJMqSNls[E]IaXQZFai[mFiSTJkKieXj`PNDWzEtahw
\~rU^QccSTqiblgzVFA@}Y`lL`qrcjJWpqXYTeLPoNwaslsBVJXG{itCyWfWuYEyNI_yk
\~veMUSiCFpqejk\SnA@}[`lLarWwjFQtXWwTkTHINxBKlwBlI\KejdAxgVhUeIuNI_yk
\~zE]mcdKcpHa^lJTUaW]WilDsrBMYcr|w[EVKeG[jFa\deLP]FJiTHFIUgWvEEzHuaiw
\~zUUMPhCTuKilbVQvA@}R`lwPrIwqxQpbguS{dOkNxDKlkB[jdKfItCyWNguYKuNI_yk

 

 

I don’t know how to select some graphs from them , so helpless.

I have two equations (assignments, to be accurate) from which I know they are equal:

f__1 := sqrt(4*a^2 + lambda__g^2)*c/(2*lambda__g*a)

f__2 := c*sqrt(1/lambda__g^2 + 1/(4*a^2))

However:

testeq(f__1 = f__2) returns FAIL

verify(f__1, f__2, equal) returns  FAIL

and

simplify(f__1 - f__2, sqrt)

does not return 0 but

-c*(sqrt((4*a^2 + lambda__g^2)/(lambda__g^2*a^2))*lambda__g*a - sqrt(4*a^2 + lambda__g^2))/(2*lambda__g*a)

What is the best method for checking such equalities?

I am sorry for not using the Maple Math input option but fpr such reason it did not accept the expressions in this question. I am sure I made a mistake but I do not know what mistake.

I tested all methods mentioned above with the 1. Binominal equation sucessfully.

 

Hi experts in the field of solving complex system of ODE

 

I have this sytem of var. are  (n(t),u(t),z(t)) with delta and t are (real)

then want to plot 3d n(t) as a function of( t, delta)

restart:assume(delta,real):
phi:=0:lambda:=0.1:N:=5:M:=sqrt(N*(N+1))*exp(I*phi):omegap:=10:
var:={n(t),u(t),z(t)}:
dsys:={diff(n(t),t)=-2*(n(t)-N)+(u(t)-M)*exp(-2*I*omegap*t/lambda)+((z(t)-conjugate(M))*exp(2*I*omegap*t/lambda)),diff(u(t),t)=-2*(1-I*delta)*u(t)+2*(n(t)-N)*exp(2*I*omegap*t/lambda)+2*M,diff((z(t),t))=-2*(1+I*delta)*z(t)+2*(n(t)-N)*exp(-2*I*omegap*t/lambda)+2*conjugate(M)}:
res1:=dsolve(dsys union {n(0)=0,u(0)=0,z(0)=0},numeric,output=listprocedure);

P3:=plots3d(n(t),t=0..1,delta=-10..10,axes=boxed,tickmarks = [3, 2], color = black, thickness = 1, linestyle = solid, titlefont = [Helvetica, roman, 18], labeldirections = [horizontal, vertical], labelfont = [Helvetica, roman, 24]);

 

 

First 411 412 413 414 415 416 417 Last Page 413 of 2216