MaplePrimes Questions

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]);

 

 

Hi!

How to get the plot of the system of the equation below:

Tau >=0.Plot.mw

I did not succeed.

Thanks

plot3d(abs(Zeta(x + y*I)), x = -4 .. 5, y = -10 .. 40, view = [-4 .. 5, -10 .. 40, 0 .. 4])

Hi, is it possible to stretch y axis to get more satisfyng view of this graph? (without using scaling cosntrained)

Hello,

I'm using the command

Matlab(AA,resultname="A",optimize=tryhard)

to generate Matlab code for a quite big matrix. The first problem is, that I get a lot of the following warnings

Warning, cannot resolve types, reassigning t33's type

for a bunch of different t** variables. When I copy the generated code to Matlab I get the error: 'Dimensions of arrays being concatenated are not consistent.'

I found that some entries are obviously transposed like

t50 = [0 0 0 0 0 0 t34 0 0 0 0 -t33 t37 0 0 0 0 0 -t44 0 0 0 0 0 t49 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0];

should be a column vector. Here is a snippet of how the resulting matrix A is constructed (I can't show the full code because it consists of some 100 lines):

A = [t50 t97 t143 t190 t237 t261 ... ]

I tried to manually transpose the entries. The matrix can be generated but the dimension is wrong, hence, it must be a wrong matrix then. Does anyone know what could be the reason for this? I generate the matrix via the Hessian-command

 

x0 := x - Pi/4;
y0 := y - Pi/4;
z0 := z - Pi/4;
f := (x, y, z) -> 10*sin(x0)*sin(y0)*sin(z0) + 10*sin(x0)*cos(y0)*cos(z0) + 10*cos(x0)*sin(y0)*cos(z0) + 10*cos(x0)*cos(y0)*sin(z0) - 7/10*cos(4*x) - 7/10*cos(4*y) - 7/10*cos(4*z);
implicitplot3d(evalc(f(x, y, z) = 9), x = -4.5 .. 4.5, y = -4.5 .. 4.5, z = -4.5 .. 4.5, grid = [60, 60, 60], style = patchnogrid);

Hi, do you know how can I restrict this plot using another implicitplot3d let's say sphere given by x^2+y^2+z^2<=4.5?

Look at the following Maple code and output, from Maple 2020. Can you explain the results? I know returning an uninitiated local variable is bad practice, but I cannot make sense of what happens when I do it anyway (just to understand the internals of the Maple language). Should I simply consider the results as undefined behavior?

> f:=proc()                                                                    
>     local x;                                                                 
>     return x;                                                                
> end proc:                                     

> a1 := f() + f();                                                             
                                   a1 := 2 x

> a2 := f() - f();                                                             
                                  a2 := x - x

> a1 + a2;                                                                       
                                  2 x + x - x

> a3 := f() + f() + f();                                                       
                                   a3 := 3 x

> a4 := f() + f() + f() - f();                                                 
                                 a4 := 3 x - x

f := z -> 1 + z/(1 + z^2/(1 + z^3/(1 + z^4/(1 + z^5/(1 + z^6/(1 + z^7))))))

 

Hi,do you know how to write a loop that would create such a continued fraction?

First 298 299 300 301 302 303 304 Last Page 300 of 2308