Maple Questions and Posts

These are Posts and Questions associated with the product, Maple

I have a procedure where M:=[m2,m3,m4...] and I  assign the m's values from list L:=[0.1,2....]
The procedure will only run once. Rerunning will not reassign the m's.

What is the correct way to do this?

Assign_in_proc.mw

 

This research work demonstrates the use of the MapleSim and Python scientific packages for the correct use of differential equations for engineering students, in the face of the pandemic generated by COVID-19. The main objective is to visualize the teaching and learning process of the subject presented. The methodology used is block diagrams using graphic programming and the one-dimensional symbolic structure. The results are totally optimal since automation was achieved in the differential equations applied to different engineering cases. The applications generated by the scientific software are fully upgradeable and available in the cloud.

Ponencia_CIMAC_2021.pdf

Lenin AC

Ambassador Maple

Hi, I have an equation and I want y be as a fuction, in fact, I 'd like a function in which x is independent variable and y is dependent to x,could you please help me how to do it?

A is a complicated equation but doesn't have "y" in it so it is not important what it is, a and b also have values.

(a*y-x*(a+1))/(x^(2)-b*a^(2)*(y-x)^(2))=A


 

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.

 

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