Maple Questions and Posts

These are Posts and Questions associated with the product, Maple

This is a simple encryption method to hide text messages

Mentioned in Arabic manuscrips with more than hundreds years old ...

PRINCIPLE :

Just the place of letters in the sentence rearranged as described below :

For example "ABCDE" we pick up the First letter "A" from the left and write it as the last letter in the Right "......A"

but this time we pick up the letter "E" as the last letter from Right and place it at the Left Side of the previous one  ".....EA"

and this cycle continue until for rest letters ... "CDBEA" .

by this way the text become hard to discover !

It is Amazing that for decoding this message you should repeat the same rearrangment algorithm several times until the readable text appears as the first "ABCDE"

EXample :

"AlbertEinstein"

"iEntsrteebilnA"

"eterbsitlnnEAi"

 "tilsnbnrEeAtie"

"rnEbenAstliiet"

"sAtnleibiEentr"

 "biieElennttArs"

"nenltEteAirisb"

"etAEitrlinsebn"

"lritnisEeAbtne"

"EseiAnbttinrel"

"tbtniAnireeslE"

"inrAeienstlbEt"

"nesitelAbrEnti"

"AlbertEinstein"

the same text appeared after 14 step cycle


 

Arabic Cipher

 

ArabicCipher := proc (x) options operator, arrow; StringTools[Permute](x, [seq(1+iquo(StringTools[Length](x), 2)+((1/2)*i+(1/2)*irem(i, 2))*(-1)^(i+irem(StringTools[Length](x), 2)), i = 0 .. StringTools[Length](x)-1)]) end proc

proc (x) options operator, arrow; StringTools[Permute](x, [seq(1+iquo(StringTools[Length](x), 2)+((1/2)*i+(1/2)*irem(i, 2))*(-1)^(i+irem(StringTools[Length](x), 2)), i = 0 .. StringTools[Length](x)-1)]) end proc

(1.1)

seq((ArabicCipher@@i)("AlbertEinstein"), i = 1 .. 14)

"iEntsrteebilnA", "eterbsitlnnEAi", "tilsnbnrEeAtie", "rnEbenAstliiet", "sAtnleibiEentr", "biieElennttArs", "nenltEteAirisb", "etAEitrlinsebn", "lritnisEeAbtne", "EseiAnbttinrel", "tbtniAnireeslE", "inrAeienstlbEt", "nesitelAbrEnti", "AlbertEinstein"

(1.2)

NULL

seq((ArabicCipher@@i)("FereydoonShekofte"), i = 1 .. 12)

"nSohoedkyoefrteeF", "yokedferotheoeSFn", "otrheefodeeSkFony", "deoefSekeFhorntyo", "eFkheoSrfnetoyeod", "fnreStooeyhekoFde", "eyohoetkSoeFrdnef", "SoketFerodhnoeyfe", "odrhenFoteeykfoeS", "teoeFynkefhoredSo", "efkhnoyrFeedoSeot", "FereydoonShekofte"

(1.3)

``


 

Download Arabic_Cipher.mw

 

 

Lecture 4 - Problem 2
a)
> a := -2100; b := 2100; N := 8; h := (b-a)/N; C := 4491; x := [seq(h, h = -2100 .. 2100, h)]; y := proc (x) options operator, arrow; sqrt(1+((1/2)*exp(x/C)-(1/2)*exp(-x/C))^2) end proc; evalf(y(x[1])); evalf(y(x[N+1])); L := (1/3)*h*(y(x[1])+4*(y(x[2])+y(x[4])+y(x[6])+y(x[N]))+2*(y(x[3])+y(x[5])+y(x[N-1]))+y(x[N+1])); evalf(L);
                             -2100
                              2100
                               8
                              525
                              4491
     [-2100, -1575, -1050, -525, 0, 525, 1050, 1575, 2100]
         /                           2\
         |    /1    /x\   1    /  x\\ |
x -> sqrt|1 + |- exp|-| - - exp|- -|| |
         \    \2    \C/   2    \  C// /
                          1.111332350
                          1.111332350
                                           (1/2)
         /                               2\    
         |    /1    /-700\   1    /700 \\ |    
     175 |1 + |- exp|----| - - exp|----|| |    
         \    \2    \1497/   2    \1497// /     

                                               (1/2)
              /                              2\    
              |    /1    /-175\   1    /175\\ |    
        + 700 |1 + |- exp|----| - - exp|---|| |    
              \    \2    \499 /   2    \499// /     

                                                (1/2)
              /                               2\    
              |    /1    /-175\   1    /175 \\ |    
        + 700 |1 + |- exp|----| - - exp|----|| |    
              \    \2    \1497/   2    \1497// /     

                                                (1/2)
              /                               2\    
              |    /1    /175 \   1    /-175\\ |    
        + 700 |1 + |- exp|----| - - exp|----|| |    
              \    \2    \1497/   2    \1497// /     

                                               (1/2)
              /                              2\    
              |    /1    /175\   1    /-175\\ |    
        + 700 |1 + |- exp|---| - - exp|----|| |    
              \    \2    \499/   2    \499 // /     

                                                (1/2)     
              /                               2\          
              |    /1    /-350\   1    /350 \\ |          
        + 350 |1 + |- exp|----| - - exp|----|| |      + 350
              \    \2    \1497/   2    \1497// /           

                                                (1/2)
              /                               2\    
              |    /1    /350 \   1    /-350\\ |    
        + 350 |1 + |- exp|----| - - exp|----|| |    
              \    \2    \1497/   2    \1497// /     

                                                (1/2)
              /                               2\    
              |    /1    /700 \   1    /-700\\ |    
        + 175 |1 + |- exp|----| - - exp|----|| |    
              \    \2    \1497/   2    \1497// /    
                          4354.742601
> L := (1/3)*h*(y(x[1])+4*add(y(i), i = y(x[2]) .. y(x[N]), 2)+2*add(y(i), i = y(x[3]) .. y(x[N-1]), 2)+y(x[N+1])); evalf(L);
Error, invalid input: add expects 2 arguments, but received 3
                          4354.742601

We've just decided to jump from Mathcad to Maple, and are doing our very first steps with Maple.

Our company is a small sized engineering company (15 employees), and what I am looking for is a bit help to make a working company setup.

This includes in the first run - how do I create and tell Maple where to find those items?

  • Templates with company logo
  • Programs and packages
  • Are there any configuration variables that can / should be set?
  • Are there any other common files that can be made accessible for all on a common network server?

Error

can not raise the datalimit above hard limit

 

my new notebook has 32GB memory

kernelopts(datalimit=28*unit(gibibtye)):

do i need to assign datalimit with kernelopts?

and

I remember i set a trick to protected this file

now I can read and run 

but return above error

does it mean that I do not need to set limit?

Minimise(eq1, {eq2>=0,eq3>=0,eq4>=0, a1<>0,a2<>0,a3<>0,a4<>0})

can not handle strict inequalities error

 

 

I have specified the problem in the red comments of the worksheet i am uploading:


 

restart

with(FileTools):

currentdir("H:\\USB 1 BACKUP\\ESD-USB\\maple_library"):

["ArithmeticMean_Display_Definition.txt", "BinomialCoefficient_PadicOrder.txt", "Binomial_coefficent_p_adic_valuation_Display_Definition.txt", "CompareGeometricMean.txt", "CompareHarmonicMean.txt", "CompareMean.txt", "Compare_Arithmetic_Mean_Description.txt", "Compare_Mean_Description.txt", "ConsistencyCompareGeometricMean.txt", "ConsistencyCompareHarmonicMean.txt", "ConsistencyCompareMean.txt", "delta.txt", "delta_Display_Definition.txt", "digit_base_conversion.txt", "EulerProduct.txt", "GeometricMean_Display_Definition.txt", "HarmonicMean_Display_Definition.txt", "Mobius.txt", "MultiplicitySet.txt", "omega.txt", "p_adic_valuation.txt", "p_adic_valuation_Display_Definition.txt", "RationalParition.txt", "SquareFreeCount.txt", "WilsonTheoremLemma.txt", "WilsonTheoremLemma1_Display_Definition.txt", "WilsonTheoremLemma2_Display_Definition.txt", "WilsonTheoremLemma3_Display_Definition.txt"]

(1)

with(StringTools):

L := map(StringTools:-Has, FunctionList, "_Display_Definition"):

S[display] := {}:

for k to nops(L) do if L[k] = true then S[display] := `union`(S[display], {FunctionList[k]}) else S[procedure] := `union`(S[procedure], {FunctionList[k]}) end if end do;

for t to nops(S[display]) do read S[display][t] end do;

``

S[display]

{"p_adic_valuation.txt", "Compare_Mean_Description.txt", "delta_Display_Definition.txt", "digit_base_conversion.txt", "ArithmeticMean_Display_Definition.txt", "BinomialCoefficient_PadicOrder.txt", "Compare_Arithmetic_Mean_Description.txt", "GeometricMean_Display_Definition.txt", "HarmonicMean_Display_Definition.txt", "p_adic_valuation_Display_Definition.txt", "WilsonTheoremLemma1_Display_Definition.txt", "WilsonTheoremLemma2_Display_Definition.txt", "WilsonTheoremLemma3_Display_Definition.txt", "Binomial_coefficent_p_adic_valuation_Display_Definition.txt"}

(2)

read S[display][5]

`The Arithmetic Mean for the multiset:`

 

[a[j]][j = 1 .. n]

 

mu[A] = (sum(a[j], j = 1 .. n))/n

(3)

read S[display][7]

`CompareArithmeticMean(L,N) will return output informing you of what percentage of N random`

 

`natural number multisets of the same length as the multiset L and same range=[min(L),max(L)]`

 

`have a lower arithmetic mean than L, equal to L, and greater than L.`

(4)

``


 

Download possible_string_tools_bug.mw

I’m very pleased to announce that we have just released the Maple Companion mobile app for iOS and Android phones. As its name implies, this free app is a complement to Maple. You can use it to take pictures of math you find out in the wild (e.g. in your handwritten notes, on a blackboard, in a textbook), and bring that math into Maple so you can get to work.

The Maple Companion lets you:

  • Avoid the mistakes that can occur when transcribing mathematical expressions into Maple manually
  • Save time when entering multiple equations into Maple, such as when you are checking your homework or pulling information from a reference book
  • Push math you’ll need later into Maple now, even if you don’t have your computer handy

The Maple Companion is an idea we started playing with recently. We believe it has interesting potential as a tool to help students learn math, and we’d really like your feedback to help shape its future direction. This first release is a step towards that goal, so you can try it out and start thinking about what else you would like to see from an app like this. Should it bring in entire documents? Integrate with tutors and Math Apps? Help students figure out where they went wrong when solving a problem? Let us know what you think!

Visit Maple Companion to learn more, link to the app stores so you can download the app, and access the feedback form. And of course, you are also welcome to give us your ideas in the comment section of this post.

Can someone explain the content and detail of this message:

com.maplesoft.mathdoc.model.plot.PlotException: Unrecognized option in COLOR: RGBA

Have quadrature detected time domain complex data arrays.  Trying to fft array to get frequency domain arrays.  Arrays returned are always sinusoidal in nature rotating between + and - y axis.  Can not phase correct these sinusoidal frequency arrays.  Any ideas how to pretreat time domain arrays before fft or posttreat frequency domain arrays after fft in order to determine phase correction angles that will allow combination of real and imaginary frequency domain data points that are only in + y axis.

How can I set the alpha for the plot symbols? I would like to add some alpha for blending purposes(will help with the visual in my case).

 

Idealy I would like to plot a 2d "guassian" fade.

A warm greeting for all

How to import a figure from Mathematica to Maple.

Amr

I have a dependent and independent variables u(x),v(x),w(x),....diff( u(x),x$n)=U(k),diff( v(x),x$n)=V(k)......

Is it possible to create, diff(     , x$n)  is an operator or any differentiable function?

I'm having trouble connecting from Maple on Windows 10 to MSQL Server. I tried Microsoft recommended drivers such as sqljdbc_6.4.0.0, did (as I thought) all required steps. The only invariable result I get is "Cannot load driver". I was wandering if anyone had implemented such a construction. Driver name & version , connection string and Java version would be greatly appreciated. Another option is to have any driver, which connects to any of standard databases (Oracle, MySQL).  The only limitation is- it must be from Windows 7 or 10.
          Thanks.
           A.B.


The results should be the same, right?

50/3.(Vector(2, {(1) = .72, (2) = 0.6e-1})) = Vector[column](%id = 18446745399574633758)NULL

NULLNULL

``

50/3*.72 = 12.00000000

50/3*0.6e-1 = 1.000000000NULL

``


 

Download test.mw

I am trying to compare time taken in minutes for each iterative model(Jacobi, Gauss-Seidel and SOR) to complete, so as to figure out the iterativre model with a faster time of convergence but i don't know the command to initiate.

First 12 13 14 15 16 17 18 Last Page 14 of 1595