MaplePrimes Questions

Maple can calculate one Inverse Laplace Transform and give the result.

But I find this integral diverges because this term exp(alpha1*(Dp*alpha1*t-lh+x)) is infinite in one interval.

Hey. I have the following Diff. Equation:

diffeq := diff(y(t),t,t,t,t)+10*diff(y(t),t,t)+169*y(t)=0

and I have the conditions y(0) = 0, y'(0) = 1, and y(t) -> 0 for t -> infinity 

I know how to do with the first two conditions, but how do you do it with a boundary? I've read the posts made earlier on here, but I can't seem to figure it out. I've tried:

dsolve({diffeq,y(0)=0,D(y)(0)=1,D(y)(infinity)=0},y(t))
 

Returns nothing.

Any help would be appreciated.

 

Hi everyone,

 

I am trying to plot the standard map equations which is defined by

p_{n+1}=p_{n}+k sin x_{n}  (mod 2pi)
x_{n+1}=x_{n}+p_{n}+k sin x_{n} (mod 2pi).

 

Is there is any simple code for plotting this map in Maple? 

Thank you in advance.

I would like to publish a technical paper about a renewable energy with you. I use Maple 2016. What i need?. Thanks!

Hello again,

I had to download an add-on package to make this graph in the first place, so it might not be possible to help me.
Additionally, I have no idea how to translate "sumkurve" from my native language (danish) to English, which is also why I had to download the add-on package in the first place....

As you can see in the picture below, I have a table at the top, with a matrix underneath, then with the "plotSumkurve(A)" I got this beautiful graph that also shows the quartiles (kvartiler).

But what if I wanted to find the Y value that corresponds to X=12, any idea on how to do this would be great appreciated.

With gratitude,
Toby

#first_question :how can i solve set of nonlinear ODEs,faster or using any packages ?
#second_question :what can be some boundary conditions for this type of nonlinear ODEs? how many BCs are required for this set of nonlinear ODEs? ( to use numeric solution)

 


 

restart:with(DEtools):with(DifferentialAlgebra):

eq[1]:=diff(N(r),r$2)+2/r*diff(N(r),r)+diff(phi(r),r)/phi(r)*diff(N(r),r)-mu^2/(32*phi(r))*N(r);

diff(diff(N(r), r), r)+2*(diff(N(r), r))/r+(diff(phi(r), r))*(diff(N(r), r))/phi(r)-(1/32)*mu^2*N(r)/phi(r)

(1)

eq[2]:=diff(phi(r),r$2)+2/r*diff(phi(r),r)-1/2*diff(phi(r),r)^2/phi(r)-8*diff(N(r),r)^2/(omega*(1-2*G*M/r))*phi(r);

diff(diff(phi(r), r), r)+2*(diff(phi(r), r))/r-(1/2)*(diff(phi(r), r))^2/phi(r)-8*(diff(N(r), r))^2*phi(r)/(omega*(1-2*G*M/r))

(2)

dsolve({eq[1],eq[2]});

``


 

Download nonlinear_ODE.mw

I would like to have my calculus results in its simplified form; below are some of the scenarios that can explain this.

 

 

As you can see the results are much simplified and in reduced form compared to what Maple gives. This has been tested for all integrals with roots and integrals with trigonometry functions. Is there any workaround in Maple that I would use to get it like the textbook result.

Thanks

 

As I work a lot with lists (need to merge them frequently), I would like to redefine the `union` operator in such a way that it will merge two lists together. It would makes thing more efficient than writing 

list1 := [a,b,c];
list2 := [d,e,f];

newlist = [op(list1), op(list2)];

I've already tried

`&union` := proc(list1, list2)
  [op(list1), op(list2)];
end proc:

[a,b,c] &union [d,e,f]

but it's not what I'm looking for. In fact I could have used any name after the `&`... and really don't like having to type the & at the beginning (is there a way to define an infix operator without having to use the `&`?)

Maybe creating a module to override  the original definition?

my_module := module()
  export `union`:

  `union` := proc(foo,bar)
      if some_trigger then
         # return something
      else
         # use global `union` definition
      end if
   end proc:

end module;

Any suggestion?

P.S.

- I generally don't use the original set union operator, so redefining it is not an issue;

- I have to use lists 

Hello,

I am not sure how exactly to word my question, so forgive the mess ahead.

Say I have two points, A and B, and I want to make them variables in Maple so whener I refer to A, it refers to the point A.

Currenty what I do, is I write the line "A:=(x,y,z)" enter and then the same for B, but what I would like to do, is maybe write both the variables in one statement - something like "A,B:=(x,y,z),(x,y,z)", so when I am solving problems with 5-10 different points, I won't be filling up 1-2 pages with statements on variables and their values.

I am assuming this is a possiblity, but I haven't been able to find anything on-the-line that could show me how to...

Example picture - where A and B should have had been in the same statement, so when I find the vector between them it'll still give the correct answer.

Any help is appreciated here :)

With gratitude:
Toby

What method is implemented in the procedure int with option numeric? Does the method depend on the integrand? Where can I find this information? 

plot3d of procedure Sievert correctly displays the constant curvature Sievert surface, but the procedure uses the deprecated command evalm.

What Maple 2016 statement(s) would create the same value of X in Sievert?

Sievert := proc (B)

local a, b, denom, m, X;

a := sinh(B)*u; b := cosh(B)*v;

denom := sinh(B)*((cosh(2*a)-cos(2*b))*cosh(2*B)+2+cosh(2*a)+cos(2*b));

m := cosh(B)*[sinh(a), sin(b)*cos(v), sin(b)*sin(v)]+[0, -cos(b)*sin(v), cos(b)*cos(v)];

X := evalm([u, 0, 0]-8*cosh(B)*cosh(a)*m/denom);

end proc:

plot3d(Sievert(.75), u = -2.5 .. 2.5, v = -10.5 .. 10.5, scaling = constrained, grid = [30, 100], style = patch, shading = xy, lightmodel = light3, orientation = [-3, 140], title = "Sievert's surface", titlefont = [Courier, bold, 14]);

Can any one help me with an example of how to use module in embedded components where a (action:-
 

 

action := module () export arithmatic, times;  arithmatic := proc (a, b) options operator, arrow; a+b end proc; arithmatic := proc (a, b) options operator, arrow; a-b end proc; times := proc (a, b) options operator, arrow; `mod`(a*b, 5) end proc end module

_m1580648227872

(1)

action:-arithmatic(2, 5)

-3

(2)

action:-times(2, 6)

2

(3)

``

I want a procedure (say plot math container in a plot area) in place of arithmatic above.

OR I want a number of calculations under arithmatic ( a+b and a-b)

What is the method I should adopt? How do i insert another module or procedure inside the above module?

Which help page will help me?

Thanks.

Ramki

NULL


 

Download ModuleExample.mwModuleExample.mw

get command is used)?

I attach a module i made for edit and comment.

Thanks.

Ramakrishnan V

Why doesn't Maple provide enough white space when user reaches end of document ? As you can see below, I have reached almost to the end of the page. I believe the default process would be to bring the cursor to eye-level (middle of the screen). Now in this case, I have to hit RETURN enough times to bring the cursor to my eye level.

 

Anyone else find this as an issue ?

 

 


im stuck here also still produces output but yeah  oh well :

 


 

with(Statistics):

`&Dopf;` := ["<","&",">","@"]; d[0] := `&Dopf;`[1]; d[1] := `&Dopf;`[2]; Y1 := {}; W1 := {}; W2 := {}; S[1] := proc (S, d) options operator, arrow; StringTools:-Split(S, d) end proc; S[2] := proc (S, d) options operator, arrow; StringTools:-Join(S, d) end proc; N := Count(FileTools[ListDirectory]("C:\\")); M := 0; while M <= N do M := M+1; S[0] := FileTools[ListDirectory]("C:\\")[M]; W1 := `union`({seq(seq(`intersect`({seq(Delete(S[2](S[1](S[0], d[0]), d[1]), i .. i), i = 1 .. N)}, {seq(Delete(S[2](S[1](S[0], d[0]), d[1]), i .. i), i = n .. m)}), n = 1 .. m), m = 1 .. N)}, W1); W2 := `union`(W2, {seq(Count(convert(`intersect`({seq(Delete(S[2](S[1](S[0], d[0]), d[1]), i .. i), i = 1 .. n)}, {seq(Delete(S[2](S[1](S[0], d[0]), d[1]), i .. i), i = 1 .. n)}), 'list')), n = 2 .. N)}) end do; Y1 := convert(ListTools['Flatten'](map(convert, convert(W1, 'list'), 'list')), 'set'); d[0] := "."; d[1] := "."; Y2 := {}; W3 := {}; W4 := {}; S[1] := proc (S, d) options operator, arrow; StringTools:-Split(S, d) end proc; S[2] := proc (S, d) options operator, arrow; StringTools:-Join(S, d) end proc; N := Count(FileTools[ListDirectory]("C:\\")); M := 0; while M <= N do M := M+1; S[0] := FileTools[ListDirectory]("C:\\")[M]; W3 := `union`({seq(seq(`intersect`({seq(Delete(S[2](S[1](S[0], d[0]), d[1]), i .. i), i = 1 .. N)}, {seq(Delete(S[2](S[1](S[0], d[0]), d[1]), i .. i), i = n .. m)}), n = 1 .. m), m = 1 .. N)}, W3); W4 := `union`(W4, {seq(Count(convert(`intersect`({seq(Delete(S[2](S[1](S[0], d[0]), d[1]), i .. i), i = 1 .. n)}, {seq(Delete(S[2](S[1](S[0], d[0]), d[1]), i .. i), i = 1 .. n)}), 'list')), n = 2 .. N)}) end do; Y2 := convert(ListTools['Flatten'](map(convert, convert(W3, 'list'), 'list')), 'set'); Y3 := `union`(Y2, Y1); `&Dopf;` := ["<","&",">","@"]; d[0] := `&Dopf;`[3]; d[1] := `&Dopf;`[4]; Y1 := {}; W1 := {}; W2 := {}; S[1] := proc (S, d) options operator, arrow; StringTools:-Split(S, d) end proc; S[2] := proc (S, d) options operator, arrow; StringTools:-Join(S, d) end proc; N := Count(FileTools[ListDirectory]("C:\\")); M := 0; while M <= N do M := M+1; S[0] := FileTools[ListDirectory]("C:\\")[M]; W1 := `union`({seq(seq(`intersect`({seq(Delete(S[2](S[1](S[0], d[0]), d[1]), i .. i), i = 1 .. N)}, {seq(Delete(S[2](S[1](S[0], d[0]), d[1]), i .. i), i = n .. m)}), n = 1 .. m), m = 1 .. N)}, W1); W2 := `union`(W2, {seq(Count(convert(`intersect`({seq(Delete(S[2](S[1](S[0], d[0]), d[1]), i .. i), i = 1 .. n)}, {seq(Delete(S[2](S[1](S[0], d[0]), d[1]), i .. i), i = 1 .. n)}), 'list')), n = 2 .. N)}) end do; Y1 := convert(ListTools['Flatten'](map(convert, convert(W1, 'list'), 'list')), 'set'); d[0] := "."; d[1] := "."; Y2 := {}; W3 := {}; W4 := {}; S[1] := proc (S, d) options operator, arrow; StringTools:-Split(S, d) end proc; S[2] := proc (S, d) options operator, arrow; StringTools:-Join(S, d) end proc; N := Count(FileTools[ListDirectory]("C:\\")); M := 0; while M <= N do M := M+1; S[0] := FileTools[ListDirectory]("C:\\")[M]; W3 := `union`({seq(seq(`intersect`({seq(Delete(S[2](S[1](S[0], d[0]), d[1]), i .. i), i = 1 .. N)}, {seq(Delete(S[2](S[1](S[0], d[0]), d[1]), i .. i), i = n .. m)}), n = 1 .. m), m = 1 .. N)}, W3); W4 := `union`(W4, {seq(Count(convert(`intersect`({seq(Delete(S[2](S[1](S[0], d[0]), d[1]), i .. i), i = 1 .. n)}, {seq(Delete(S[2](S[1](S[0], d[0]), d[1]), i .. i), i = 1 .. n)}), 'list')), n = 2 .. N)}) end do; Y2 := convert(ListTools['Flatten'](map(convert, convert(W3, 'list'), 'list')), 'set'); `minus`(Y2, Y1); Y3 := `union`(Y2, Y1)

Error, invalid subscript selector

 

Error, invalid subscript selector

 

Error, invalid subscript selector

 

Error, invalid subscript selector

 

{"ARS.csv", "BOONXT", "BOOTNT", "BOOTNX", "BOOTNXT", "BOOTXT", "BOTNXT", "O", "OOTNXT", "OS", "OeDrive", "OnDrive", "OneDive", "OneDrie", "OneDriv", "OneDrve", "Onerive", "PefLogs", "PerLogs", "PerfLgs", "PerfLog", "PerfLos", "Perfogs", "PrfLogs", "Rcovery", "Recoery", "Recover", "Recovey", "Recovry", "Recvery", "Reovery", "S", "SSETUP", "SWETUP", "SWSETP", "SWSETU", "SWSETUP", "SWSEUP", "SWSTUP", "Uers", "User", "Users", "Uses", "Usrs", "VAR.csv", "VARS.cs", "VARS.cv", "VARS.sv", "VARScsv", "VAS.csv", "VRS.csv", "WSETUP", "Widows", "Windos", "Window", "Windows", "Windws", "Winows", "Wndows", "ecovery", "emp", "erfLogs", "h", "hp", "ietpub", "indows", "inepub", "inetpb", "inetpu", "inetpub", "inetub", "intpub", "neDrive", "netpub", "p", "sers", "tem", "temp", "tep", "tmp", "$ECYCLE.BIN", "$RCYCLE.BIN", "$RECCLE.BIN", "$RECYCE.BIN", "$RECYCL.BIN", "$RECYCLE.BI", "$RECYCLE.BIN", "$RECYCLE.BN", "$RECYCLE.IN", "$RECYCLEBIN", "$RECYLE.BIN", "$REYCLE.BIN", "Cnfig.Msi", "Cofig.Msi", "Confg.Msi", "Confi.Msi", "Config.Mi", "Config.Ms", "Config.Msi", "Config.si", "ConfigMsi", "Conig.Msi", "EEETREETRT.csv", "EEETREETRT.xls", "ETSTAT.csv", "Flders.csv", "Foders.csv", "Folder.csv", "Folders.cs", "Folders.csv", "Folders.cv", "Folders.sv", "Folderscsv", "Foldes.csv", "Foldrs.csv", "Folers.csv", "HddenFiles.csv", "HiddeFiles.csv", "HiddenFies.csv", "HiddenFile.csv", "HiddenFiles.cs", "HiddenFiles.csv", "HiddenFiles.cv", "HiddenFiles.sv", "HiddenFilescsv", "HiddenFils.csv", "HiddenFles.csv", "Hiddeniles.csv", "HiddnFiles.csv", "HidenFiles.csv", "MRescueDisk", "MaageEngine", "ManaeEngine", "ManagEngine", "ManageEgine", "ManageEngie", "ManageEngin", "ManageEngine", "ManageEngne", "ManageEnine", "Managengine", "MangeEngine", "MnageEngine", "NEEEREETRT.csv", "NEEEREETRT.xls", "NEEETEETRT.csv", "NEEETEETRT.xls", "NEEETREERT.csv", "NEEETREERT.xls", "NEEETREETR.csv", "NEEETREETR.xls", "NEEETREETRT.cs", "NEEETREETRT.csv", "NEEETREETRT.cv", "NEEETREETRT.ls", "NEEETREETRT.sv", "NEEETREETRT.xl", "NEEETREETRT.xls", "NEEETREETRT.xs", "NEEETREETRTcsv", "NEEETREETRTxls", "NEEETREETT.csv", "NEEETREETT.xls", "NEEETRETRT.csv", "NEEETRETRT.xls", "NEETREETRT.csv", "NEETREETRT.xls", "NESTAT.csv", "NETSAT.csv", "NETSTA.csv", "NETSTAT.cs", "NETSTAT.csv", "NETSTAT.cv", "NETSTAT.sv", "NETSTATcsv", "NETSTT.csv", "NETTAT.csv", "NTSTAT.csv", "NeStatReport", "NestatTable.csv", "NetSatReport", "NetStaReport", "NetStatReort", "NetStatRepor", "NetStatReport", "NetStatRepot", "NetStatReprt", "NetStatRport", "NetStateport", "NetSttReport", "NetsatTable.csv", "NetstaTable.csv", "NetstatTabe.csv", "NetstatTabl.csv", "NetstatTable.cs", "NetstatTable.cv", "NetstatTable.sv", "NetstatTablecsv", "NetstatTale.csv", "NetstatTble.csv", "Netstatable.csv", "NetsttTable.csv", "NettatReport", "NettatTable.csv", "NtStatReport", "NtstatTable.csv", "OneDrive", "PerfLogs", "Pogram Files", "PogramData", "Prgram Files", "PrgramData", "Progam Files", "ProgamData", "Progra Files", "PrograData", "Program Fies", "Program File", "Program Files", "Program Fils", "Program Fles", "Program iles", "ProgramDaa", "ProgramDat", "ProgramData", "ProgramDta", "ProgramFiles", "Programata", "Progrm Files", "ProgrmData", "Proram Files", "ProramData", "RECYCLE.BIN", "Recovery", "SSTEM.SAV", "SYSEM.SAV", "SYSTE.SAV", "SYSTEM.AV", "SYSTEM.SA", "SYSTEM.SAV", "SYSTEM.SV", "SYSTEMSAV", "SYSTM.SAV", "SYTEM.SAV", "TMRecueDisk", "TMResceDisk", "TMRescuDisk", "TMRescueDik", "TMRescueDis", "TMRescueDisk", "TMRescueDsk", "TMRescueisk", "TMResueDisk", "TMRscueDisk", "TMescueDisk", "TRescueDisk", "VARS.csv", "YSTEM.SAV", "_Argon__.tmp", "__Agon__.tmp", "__Argn__.tmp", "__Argo__.tmp", "__Argon_.tmp", "__Argon__.mp", "__Argon__.tm", "__Argon__.tmp", "__Argon__.tp", "__Argon__tmp", "__Aron__.tmp", "__rgon__.tmp", "agefile.sys", "anageEngine", "apleAUTO.txt", "etStatReport", "etstatTable.csv", "iddenFiles.csv", "maleAUTO.txt", "mapeAUTO.txt", "maplAUTO.txt", "mapleATO.txt", "mapleAUO.txt", "mapleAUT.txt", "mapleAUTO.tt", "mapleAUTO.tx", "mapleAUTO.txt", "mapleAUTO.xt", "mapleAUTOtxt", "mapleUTO.txt", "mpleAUTO.txt", "olders.csv", "onfig.Msi", "paefile.sys", "pagefie.sys", "pagefil.sys", "pagefile.ss", "pagefile.sy", "pagefile.sys", "pagefile.ys", "pagefilesys", "pagefle.sys", "pageile.sys", "pagfile.sys", "pgefile.sys", "rogram Files", "rogramData", "sapfile.sys", "swafile.sys", "swapfie.sys", "swapfil.sys", "swapfile.ss", "swapfile.sy", "swapfile.sys", "swapfile.ys", "swapfilesys", "swapfle.sys", "swapile.sys", "swpfile.sys", "wapfile.sys", "Dcuments and Settings", "Docments and Settings", "Docuents and Settings", "Documens and Settings", "Document and Settings", "Documents ad Settings", "Documents an Settings", "Documents and Setings", "Documents and Settigs", "Documents and Setting", "Documents and Settings", "Documents and Settins", "Documents and Settngs", "Documents and Sttings", "Documents and ettings", "Documents andSettings", "Documents nd Settings", "Documentsand Settings", "Documets and Settings", "Documnts and Settings", "Douments and Settings", "NetstatTable.csv", "Pogram Files (x86)", "Prgram Files (x86)", "Progam Files (x86)", "Progra Files (x86)", "Program Fies (x86)", "Program File (x86)", "Program Files (86)", "Program Files (x6)", "Program Files (x8)", "Program Files (x86", "Program Files (x86)", "Program Files x86)", "Program Files(x86)", "Program Fils (x86)", "Program Fles (x86)", "Program iles (x86)", "ProgramFiles (x86)", "Progrm Files (x86)", "Proram Files (x86)", "ocuments and Settings", "rogram Files (x86)", "Sstem Volume Information", "Sysem Volume Information", "Syste Volume Information", "System Vlume Information", "System Volme Information", "System Volue Information", "System Volum Information", "System Volume Iformation", "System Volume Infomation", "System Volume Inforation", "System Volume Informaion", "System Volume Informatin", "System Volume Informatio", "System Volume Information", "System Volume Informaton", "System Volume Informtion", "System Volume Infrmation", "System Volume Inormation", "System Volume nformation", "System VolumeInformation", "System Voume Information", "System olume Information", "SystemVolume Information", "Systm Volume Information", "Sytem Volume Information", "ystem Volume Information", "CmpleteCurrentFileExtensionASSOClist.csv", "ComleteCurrentFileExtensionASSOClist.csv", "CompeteCurrentFileExtensionASSOClist.csv", "CompleeCurrentFileExtensionASSOClist.csv", "CompletCurrentFileExtensionASSOClist.csv", "CompleteCrrentFileExtensionASSOClist.csv", "CompleteCurentFileExtensionASSOClist.csv", "CompleteCurrenFileExtensionASSOClist.csv", "CompleteCurrentFieExtensionASSOClist.csv", "CompleteCurrentFilExtensionASSOClist.csv", "CompleteCurrentFileEtensionASSOClist.csv", "CompleteCurrentFileExensionASSOClist.csv", "CompleteCurrentFileExtenionASSOClist.csv", "CompleteCurrentFileExtensinASSOClist.csv", "CompleteCurrentFileExtensioASSOClist.csv", "CompleteCurrentFileExtensionASOClist.csv", "CompleteCurrentFileExtensionASSClist.csv", "CompleteCurrentFileExtensionASSOCist.csv", "CompleteCurrentFileExtensionASSOlist.csv", "CompleteCurrentFileExtensionSSOClist.csv", "CompleteCurrentFileExtensonASSOClist.csv", "CompleteCurrentFileExtesionASSOClist.csv", "CompleteCurrentFileExtnsionASSOClist.csv", "CompleteCurrentFilextensionASSOClist.csv", "CompleteCurrentFleExtensionASSOClist.csv", "CompleteCurrentileExtensionASSOClist.csv", "CompleteCurretFileExtensionASSOClist.csv", "CompleteCurrntFileExtensionASSOClist.csv", "CompleteurrentFileExtensionASSOClist.csv", "ComplteCurrentFileExtensionASSOClist.csv", "CopleteCurrentFileExtensionASSOClist.csv", "ompleteCurrentFileExtensionASSOClist.csv"}

(1)

``


 

Download MAPLE_BITTY.mw

I have a very large set of equations that calculates for a long time. Up until now, I have designated the second derivatives and copied the finished equation to another program to do the simulation. But with this file I can hardly do anything because the equations are too long. Even saving a file after computation is not easy. Export to PDF takes 20 minutes and the file has 120 MB and 1000 pages. Recording to .mw has not gone yet due to the occurrence of a write error message. I have 16 GB of RAM and after calculation is 14 GB in use.

5._Równanie_z_5_niewiadomymi.mw
Any suggestions?

3 4 5 6 7 8 9 Last Page 5 of 1487