MaplePrimes Questions


 

restart

sigma := 7.500*10^7+2.005*10^7*sinh(22985.642*z)-2.097*10^7*cosh(22985.642*z)

75000000.00+20050000.00*sinh(22985.642*z)-20970000.00*cosh(22985.642*z)

(1)

sigma_debond := 5.403*10^7

54030000.00

(2)

mid := 0.1653e-3

0.1653e-3

(3)

L := 0.2184e-3

0.2184e-3

(4)

plot(sigma, z = mid .. L)

 

plot(sigma_debond, z = 0 .. mid)

 

``


 

Download join_curves.mw

Hi everyone,

I have a system with trigonometric function, composed of 3 unknows (b,c,d) and 2 input (a,x). I would like to know how to express each of the unknowns in terms of a and x (if it's possible).

Here is my worksheet : test6.mw

Thanks everyone

HOW TO GUESS THE SUM OF FOLLOWING INFINITE SERIES IN MAPLE?

HOW TO GUESS THE EXACT  SOLUTION OF FOLLOWING INFINITE SERIES

How to plot 3D graph for the following infinite series sum?

How do I create a plot like Figure I as uploaded in the PDF-document?

On Figure I, you see the plot of two income functions. The income functions are defined by equations (5), (6), (7), and (8).
Please note that:
0<a<1
0<g<1
0<"tau"<1
0<"delta"*g<1
"delta" belongs to open interval (0,1)

/Regards.

IMG_499.pdf

For examples, they are two non-commutative variables x and y, and i use "Setup(noncommutativeprefix={x,y})" to define.
 As the previous results have shown that AntiCommutator(x,x)=0 and AntiCommutator(y,y)=0, so i just define Setup(algebrarules={%AntiCommutator(x,x)=0, %AntiCommutator(y,y)=0}).
When i am calculating AntiCommutator(x,y), the maple automatically simplifies the results and returns AntiCommutator(x,y)=0, as variables x and y are thought to be GrassmannParity =1 variables.

Consider two  3*3 matrix e23 and e32, the AntiCommutator of (e23, e23)=(e32,e32)=0, but the AntiCommutator(e23,e32)= e22+e33.

So how the algebrarules work and why there is the contradiction ?

How does Maple interpret the second line to get that result ??

I had to put expicitly a dot between the brackets to fix it.

 

Kind regards, Detlef Hoyer


 

restart; eq2 := ef*epsilon+x1*sinh(y1*L/r1)+x2*cosh(y1*L/r1)-.1*(ef*epsilon+x2) = 0; eq3 := ef*epsilon+x1*sinh(-y1*L/r1)+x2*cosh(-y1*L/r1)-.1*(ef*epsilon+x2) = 0; sol1 := solve({eq2, eq3}, {x1, x2})

.9*ef*epsilon+x1*sinh(y1*L/r1)+x2*cosh(y1*L/r1)-.1*x2 = 0

 

.9*ef*epsilon-x1*sinh(y1*L/r1)+x2*cosh(y1*L/r1)-.1*x2 = 0

 

{x1 = 0., x2 = -9.*ef*epsilon/(10.*cosh(y1*L/r1)-1.)}

(1)

assign(sol1); 1; x1, x2

0., -9.*ef*epsilon/(10.*cosh(y1*L/r1)-1.)

(2)

x1;

0.

(3)

x2;

-9.*ef*epsilon/(10.*cosh(y1*L/r1)-1.)

(4)

eq4 := ef*epsilon+x1*sinh(y1*z/r1)+x2*cosh(y1*z/r1);

ef*epsilon-9.*ef*epsilon*cosh(y1*z/r1)/(10.*cosh(y1*L/r1)-1.)

(5)

avg_eq4 := Typesetting:-delayDotProduct(1/L, int(eq4, z));

1/L.(ef*epsilon*z-9.*ef*epsilon*r1*sinh(y1*z/r1)/((10.*cosh(y1*L/r1)-1.)*y1))

(6)

Ecomp := Typesetting:-delayDotProduct(simplify((eval(subs(z = L, avg_eq4)-subs(z = 0, avg_eq4)))/epsilon), Vf)+(1-Vf)*Em;

(1/L.(ef*epsilon*(10.*L*y1*cosh(y1*L/r1)-L*y1-9.*r1*sinh(y1*L/r1))/((10.*cosh(y1*L/r1)-1.)*y1)))/epsilon.Vf+(1-Vf)*Em

(7)

tau := .5*(diff(eq4, z))*r1;

-4.5*ef*epsilon*sinh(y1*z/r1)*y1/(10.*cosh(y1*L/r1)-1.)

(8)

L := lfact*r1;

lfact*r1

 

0.65e-5

(9)

ef := 0.75e11;

0.75e11

 

0.326e10

 

.3

 

.5

(10)

Theo_Ecomp := Vf*ef+(1-Vf)*Em;

0.39130e11

(11)

y1 := 2*Em/((1+nu)*ef*ln(1/Vf))

0.9647560684e-1

(12)

Ecomp

0.5979989095e17*(1/lfact.(epsilon*(0.6270914445e-5*lfact*cosh(0.9647560685e-1*lfact)-0.6270914445e-6*lfact-0.585e-4*sinh(0.9647560685e-1*lfact))/(10.*cosh(0.9647560685e-1*lfact)-1.)))/epsilon+0.1630e10

(13)

epsilon := 0.1e-2;

0.1e-2

(14)

plot(Ecomp, lfact = 1 .. 500)

 

lfact := 90.81506;

90.81506

(15)

eq4

0.75e8-21149.64968*cosh(14842.40105*z)

(16)

plot(eq4, z = 0 .. L)

 

plot(tau, z = 0 .. L)

 

NULL


 

Download Fuly_bonded_updated.mw

A line is deternined on one side by 16*x-2*y-11*z=0, 14*x-y-10*z=3 and on the other by (x-2)/3=(y-5)/2=(z-2)/4. Are they equivalent  ?  Thank you. 

Latest updates of Physics package (problem start with version cca 1020) is not announced at Maple cloud user window (see attacehd snapshot). The same problem occur on Windows and Linux platform!

 

I need to express a function after factoring out a variable. How do I do this?

L/(z*sqrt(z^2 + L^2)

Need to write in terms of L/z or z/L.

 

Hi,

I have had trouble with a  .mw worksheet..which I will attach.(I am using Maple 2021)..This is second time it got corrupted..I used the

"CompleteMiniCourseComputerAlgebraPhysics" and copy parts to worksheets so I can work the problems and I do 

Alot of markups and highlighting as well as add coments a copy as Text from help on certain commands..

I read some other posts that discuss corrupt file thats use XML I think in the worksheet....I checked this in the area I was working and did not find anything (I completed about half of the course saving as I went and had no problems)....so any guidance would be appreciated..

ThanksMyMinitCourseComputerAlgebraForPhysicsPart2_-_Copy_-_Copy.zipMyMinitCourseComputerAlgebraForPhysicsPart2_-_Copy_-_Copy.zip

Frank McFee

I have attached some screenshots of the display in Maple 2021 which seem to appear after Maple has been up for an extended period of time (seemingly 3+ hours). The odd characters are not present when the tabs are initially opened, and the problem disappears for awhile after a restart.  Generally, I have not noticed a similar problem in Maple 2020.  However, the corruption of the output affects not only user created worksheets, but also help pages and examples opened from help as can be seen in the image below.

FYI I am using M2021 on an HP Omen gaming laptop that is several years old, but has been updated (drivers and windows)  as they become available.

I have made a procedure named Eratosthenes that will return a sequence of all the primes less than some given number N which must be a positive integer. However, I couldn't figure out the error but still, the code is not working either. Can anyone please go through my code to let me know if I have a mistake? Thanks.

Eratosthenes := proc (N::posint) local L, primeslist, n, k; description "Calculate all primes less than or equal to N"; L := Array(2 .. N, proc (i) options operator, arrow; true end proc); for n from 2 to trunc(sqrt(N)) do if L__n = true then for k from n while k*n <= N do `L__k*n` := false end do end if end do; primeslist := NULL; for n from 2 to N do if L__n = true then primeslist := primeslist, n end if end do; primeslist end proc:

Warning, ``L__k*n`` is implicitly declared local to procedure `Eratosthenes`

 

``NULL


 

Download issue.mwissue.mw

5 6 7 8 9 10 11 Last Page 7 of 2054