MaplePrimes Questions

At age 25, Carrie establishes an individual retirement account (IRA). If she invests #4000 per year for 30years in an ordinary annuity, the account earns 7.75% per year. How much will she have in the account at age 25?

How difficult is it to animate a process using a binary tree for visualization purposes, something that isn't too slow or too complex to implement(as I will then just go with python or something) but also nice to look at(not just boring straight lines).

I'd like to animate, say, a ball moving through different branchings of a multi-tree(binary mainly but ultimately different branchings per node).

 

As an aside. Is there anything like C++ objects/structs in maple that are easy to create using . notation?

 

 

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

 

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!

 

First 384 385 386 387 388 389 390 Last Page 386 of 2428