MaplePrimes Questions

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?

i know its really simple or such i just dont quite get what to do here moreso why it occurs for this particular delimiter
 

"\"

 

Warning, premature end of input, use <Shift> + <Enter> to avoid this message.

 


 

Download ANother_imbarassing_error_im_blank_for.mw

Dear all,

 

I am trying to put labels for my axis and I use typeset to do that.

The code is:

plot(10^10*x, x = 0 .. 5,labels = ["x", typeset(10^10*Delta*z)],labeldirections = ["horizontal", "vertical"])

The problem is that  I get a label like below:

I mean it is not typed as 10^{10}, but 10000000000!!!

Can anyone help me in changing this to 10^10?

Given a basic list of data, is it possible to extract the distribution type /  equation / probability density function?

When I resave a worksheet that is already saved on the computer desktop, it changes the position of the icon on the desktop: it is moved to the most left-upper column-row possible. Why that? Can anyone else reproduce that odd behaviour?

A worksheet can be closed using the Windows standard shortcut Ctrl-F4. But the Maple program itself cannot be closed using the Windows standard standard shortcut Alt-F4. Why that? Can anyone else reproduce that odd behaviour?

PS: I am using Maple 2017.1

I am trying to figure out how to simplify expressions like:

2^(6p+q) mod 3 (where p,q are variables representing integers)

Anybody know how to do this?

Even better would be something that solves 2^n=2 (mod 3) -> n=1 (mod 6)

 

Suggestions?

 

 

 

After using maple as a learning aid to compliment my Calculus 2 course for the past 2 months, I really have mixed emotions...

I realize Maple is capabale of much, much more than the simple integration problems I throw at it and as such, will hopefully see much more use in my pursuit of a Biochem degree.  But I keep getting disturbing results which make me question its accuracy...

For example, before I use the integration tutor, I use maple to test my steps as I work the problem on paper, making sure I am applying the correct substitutions as I work through the integration.  If I am not applying an operation or simplification properly, the test relation operation returns false, allowing me to correct the issue at that time.  If I still can't figure out why Maple is returning false, I'll resort to the integration tutor.   Yet, Maple routinely contridicts itself, using the same solution steps which it returned as false when tested in the worksheet?!?!

As a clear illustration:

contradiction.pdf

Am I misunderstanding the proper use of the Test Relation function?  Any answers would be greatly appreciated.

I dont understand why im getting this error at all.
 

["<","&",">",'"@"]

Error, `]` unexpected

 


 

Download ERROR_troubles.mw

First 948 949 950 951 952 953 954 Last Page 950 of 2428