Items tagged with maple maple Tagged Items Feed

Hi there

I'm working with maple 13 (2d input) and I would like to hide the input in a worksheet, as follows:

view > show/hide contents > (unchecking) input

however i want to insert comments as text that will remain in my worksheet. Using '#' doesn't help, coz they get hidden too.

Couldn't sort out how to do this, any tips?

cheers

Hello People in mapleprimes,

 

I want to know how to factor the denominator of the first term in the right hand side, using commands not clickable math.

And, I know applyop can be used in this case, but I want to know is other ways than using applyop. 

 

-tau*alpha*sigma*omega*(tau-omega^(-sigma))/(s*L*(1-gamma-tau^2+tau^2*gamma))

-(sigma*alpha)/s*(1-tau*omega^sigma)/(omega^(sigma-1)*(1-gamma)*L*(1/tau-tau));

 

Thanks in advance.

 

taro

 

 

 

Hi Maple friends.

If I have a table of values, how can Maple provide the function?

For example:

x=10,15,20,25,30,35,40

y=2.01,4.87,6.50,9.875,14.00,18.90,24.40

How can Maple find out the y function with respect to x? 

Thanks in advance.

Hi there

I'm taking my first steps with maple and my question is not exactly briliiant

Putting in a simple way, I'm trying to solve sth that looks like this

> li := a*[cos(7*x+8*x*y+9*y)*cos(-7*x-8*x*y-9*y)];
             a [cos(7 x + 8 x y + 9 y) cos(-7 x - 8 x y - 9 y)]

and i want to replace

with

getting (if i do it by hand)

> algsubs(7*x+8*x*y+9*y = 20*y, li);
                    a [cos(20 y) cos(-7 x - 8 x y - 9 y)]

my question, is there an elegant way to do it? sth that would look like this?

 

 

thank you for any tips

Hi There

I'm getting started with maple and facing a doubt about using subs, somehow it does not seem to work, this is my expression:

 

> restart;
> theta := omega*t-k*x;
                                omega t - k x
> phi[1] := -(1/2)*H*c*cosh(k*(z+h))*sin(theta)/sinh(k*h);
                   H c cosh(k (z + h)) sin(-omega t + k x)
                   ---------------------------------------
                                 2 sinh(k h)              
> diff(phi[1], t, t);
                                                             2
                H c cosh(k (z + h)) sin(-omega t + k x) omega
              - ----------------------------------------------
                                 2 sinh(k h)                  
> td := simplify(subs(z = 0, %));
                                                          2
                   H c cosh(k h) sin(-omega t + k x) omega
                 - ----------------------------------------
                                 2 sinh(k h)               
> simplify(subs(cosh(k*h)/sinh(k*h) = 1/tanh(k*h), %));
                                                          2
                   H c cosh(k h) sin(-omega t + k x) omega
                 - ----------------------------------------
                                 2 sinh(k h)               
I cannot subs cosh/sinh = tanh. I would like to know why.

Any tips? Thank you

Maplesoft regularly hosts live webinars on a variety of topics. Below you will find details on an upcoming webinar we think may be of interest to the MaplePrimes community.  For the complete list of upcoming webinars, visit our website.

Hollywood Math 2

In this second installment of the Hollywood Math webinar series, we will present some more examples of mathematics being used in Hollywood films and popular hit TV series. For instance, have you wondered how Ben Campbell solved his professor’s challenge so easily in the movie “21”? Or about the details of the Nash equilibrium that John Nash first developed in a “A Beautiful Mind”? We’ve got the answers! These relevant, and exciting examples can be used as material to engage your students with examples familiar to them, or you can just attend the webinar for its entertainment value.

Anyone with an interest in mathematics, especially high school and early college math educators, will be both entertained and informed by attending this webinar. At the end of the webinar you’ll be given an opportunity to download an application containing all of the examples that we demonstrate.

To join us for the live presentation, please click here to register.

If you missed the first webinar in this two part series, you can view the 'Hollywood Math' recording on our website.

How to make Decimal number in maple by default? 

How to make radian to degrees? Think It is like this "degcos" but I cant see the correct result, because it is not showed in decimals

Why do I have to active all my varibles when I open the document after I have saved it?

 

Regards

Østerbro

Dear people in Maple Primes,

 

I have a question about how to solve a system of equations.

In the following equation, I want to eliminate D(a).

x := D(a*b*c = 3*d); 
y := D(a^2*b^3*c = 3*a);

 

For this purpose,

a code of 

d_a := isolate(x, D(a));

eval(y, d_a);

works well. But, for me, this code is a little laborious.

Is there any better way than the above way?

 

Thanks in advance.

 

taro yamada

 

 

I wrote a maple code and it returns: if statement error to me.

How can I fix it?

Regards

 

F1 := proc (rlist, deltalist) local sum1, i; sum1 := 0; for i to 8 do sum1 := sum1+rlist[i]*deltalist[i] end do; if `mod`(sum1, 24) = 0 then return true else return false end if end proc;

 F2 := proc (rlist, deltalist) local i, sum2; sum2 := 0; for i to 8 do if deltalist <> 0 then sum2 := sum2+40*rlist[i]/deltalist[i] end if end do; if `mod`(sum2, 24) = 0 then return true else return false end if end proc;

F3 := proc (rlist, deltalist) local product, i; product := 1; for i to 8 do product := product*deltalist[i]^rlist[i] end do; if ceil(sqrt(product)) = sqrt(product) then return true else return false end if end proc;

myProc40:=proc(deltalist) local r1, r2, r4, r5, r8, r10, r20, r40,rlist: for r1 from -1 to 3 do for r2 from -1 to 3 do for r4 from -1 to 3 do for r5 from -1 to 3 do for r8 from -1 to 3 do for r10 from -1 to 3 do for r20 from -1 to 3 do for r40 from -1 to 3 do rlist:=[r1,r2,r4,r5,r8,r10,r20,r40]: if (F1(rlist, deltalist) = true) then if(F2(rlist,deltalist)=true ) then if (F3(rlist, deltalist) = true) then if ((gcd(1,1)^(2)*r1)/(1)+(gcd(1,2)^(2)*r2)/(2)+(gcd(1,4)^(2)*r4)/(4)+(gcd(1,5)^(2)*r5)/(5)+(gcd(1,8)^(2)*r8)/(8)+(gcd(1,10)^(2)*r10)/(10)+(gcd(1,20)^(2)*r20)/(20)+(gcd(1,40)^(2)*r40)/(40)>0) and ((gcd(2,1)^(2)*r1)/(1)+(gcd(2,2)^(2)*r2)/(2)+(gcd(2,4)^(2)*r4)/(4)+(gcd(2,5)^(2)*r5)/(5)+(gcd(2,8)^(2)*r8)/(8)+(gcd(2,10)^(2)*r10)/(10)+(gcd(2,20)^(2)*r20)/(20)+(gcd(2,40)^(2)*r40)/(40)>0) and ((gcd(4,1)^(2)*r1)/(1)+(gcd(4,2)^(2)*r2)/(2)+(gcd(4,4)^(2)*r4)/(4)+(gcd(4,5)^(2)*r5)/(5)+(gcd(4,8)^(2)*r8)/(8)+(gcd(4,10)^(2)*r10)/(10)+(gcd(4,20)^(2)*r20)/(20)+(gcd(4,40)^(2)*r40)/(40)>0) and ((gcd(5,1)^(2)*r1)/(1)+(gcd(5,2)^(2)*r2)/(2)+(gcd(5,4)^(2)*r4)/(4)+(gcd(5,5)^(2)*r5)/(5)+(gcd(5,8)^(2)*r8)/(8)+(gcd(5,10)^(2)*r10)/(10)+(gcd(5,20)^(2)*r20)/(20)+(gcd(5,40)^(2)*r40)/(40)>0) and ((gcd(8,1)^(2)*r1)/(1)+(gcd(8,2)^(2)*r2)/(2)+(gcd(8,4)^(2)*r4)/(4)+(gcd(8,5)^(2)*r5)/(5)+(gcd(8,8)^(2)*r8)/(8)+(gcd(8,10)^(2)*r10)/(10)+(gcd(8,20)^(2)*r20)/(20)+(gcd(8,40)^(2)*r40)/(40)>0) and ((gcd(10,1)^(2)*r1)/(1)+(gcd(10,2)^(2)*r2)/(2)+(gcd(10,4)^(2)*r4)/(4)+(gcd(10,5)^(2)*r5)/(5)+(gcd(10,8)^(2)*r8)/(8)+(gcd(10,10)^(2)*r10)/(10)+(gcd(10,20)^(2)*r20)/(20)+(gcd(10,40)^(2)*r40)/(40)>0) and ((gcd(20,1)^(2)*r1)/(1)+(gcd(20,2)^(2)*r2)/(2)+(gcd(20,4)^(2)*r4)/(4)+(gcd(20,5)^(2)*r5)/(5)+(gcd(20,8)^(2)*r8)/(8)+(gcd(20,10)^(2)*r10)/(10)+(gcd(20,20)^(2)*r20)/(20)+(gcd(20,40)^(2)*r40)/(40)>0) and ((gcd(40,1)^(2)*r1)/(1)+(gcd(40,2)^(2)*r2)/(2)+(gcd(40,4)^(2)*r4)/(4)+(gcd(40,5)^(2)*r5)/(5)+(gcd(40,8)^(2)*r8)/(8)+(gcd(40,10)^(2)*r10)/(10)+(gcd(40,20)^(2)*r20)/(20)+(gcd(40,40)^(2)*r40)/(40)>0 ) then (print(`f(q) is in Sk with the following r values`,rlist)) end if: end if: end if: end if: end do: end do: end do: end do: end do: end do: end do: end do: end proc;

Hi all,

I'm using MAPLE 13 and I'd like to know if someone knows how to generate the variables associated to the CodeGeneration for C code. At this moment I need to create manually the variable generated from the C code.

Example:

JJ := Jacobian(convert(Pint, Vector), [P1xenu, P1yenu, P1zenu, roll, pitch, yaw, D1xbody, D1ybody, P2xenu, P2yenu, P2zenu, ROLL, PITCH, YAW, D2xbody, D2ybody]);

CodeGeneration['C'](JJ, optimize);

Output:

t1 = cov2 * cov2;
t2 = cov1 * cov1;
t4 = 0.1e1 / (t1 + t2);
t5.......

And in the C code I need to create:

double t1, t2, t3..... manually

I can I solve this issue?

Best regards

André Dias

Hi:

i will sole the below non-linear equtions in maple,how?(all initial conditons are zero)

EQ1 := -9.034666667*10^5*Pi^2*q3(t)*q1(t)+3044.230933*Pi*q1(t)*q5(t)+3044.230933*Pi*q1(t)*q4(t)+2.541000000*10^5*q1(t)^3*Pi^4+2.171794873*10^5*q1(t)*Pi^2-2.171794873*10^5*q2(t)*Pi+4.372778665*(diff(q1(t), t, t)) = 0
EQ2 := 54294.87180*q2(t)-54294.87180*q1(t)*Pi-.8371635069*q4(t)*Pi+.8371635069*q5(t)*Pi+1.093194666*q2(t)*Pi^2+0.7054749580e-5*(diff(q2(t), t, t)) = 0
EQ3 := 9.034666667*10^5*q1(t)^2*Pi^2+6.776000000*10^5*Pi^2*q3(t)-2283.173200*q5(t)*Pi-2283.173200*q4(t)*Pi = 0
EQ4 := -1.123134385*10^8*q1(t)*(diff(q1(t), t))+636.6197724-5191.348750*q4(t)-2.035463170*10^7*(diff(q5(t), t))-2.035463170*10^7*(diff(q4(t), t))-5191.348750*q5(t) = 0
EQ5 := .7002817496-29887.90348*q4(t)+29887.90348*q5(t)-135.8992605*(diff(q2(t), t))-7463.364956*(diff(q4(t), t))+7463.364956*(diff(q5(t), t)) = 0

 

How can I solve this problem on Maple?
Can anyone help me please ... I wrote another post before but I can not solve the problem.

lambda is an experimental parameter. I have this initial condition n(x,0)=0.4, c(x,0)=0.

Thanks to everyone

expand( (a+b)^n)

 

convert((a+b)^n,Sum) 

 

none  expands in  binomial  form.  Is there any way for Maple to generate  binomial  expansion of (a+b)^n  without

 

entering  manually.

 

martin

Every time I type

`&Delta;&epsilon;`(T, z)

it becomes 

T Delta&epsilon; z

Is there any way to tell maple to stay what it is as I've typed, just like other function express f(x), etc

 

my int is in below.

my_int.mw

my int has hyperbolic and trigonal parts thus when they are multiplied , Maple is not able to integrate!

 

Now, How can I solve this integral?

thank you for help

my int is:

 

``

restart

eq1 := m*(diff(diff(w(x, t), t), t))+diff(diff(EIy*(diff(diff(w(x, t), x), x))+(EIz-EIy)*(diff(diff(w(x, t), x), x))*(theta(x)+phi(x, t))^2, x), x)-Pz = 0

l := 16; m := .75; EIy := 0.2e5; EIz := 0.400e7; GJ := 0.1e5; mj := .1; Pz := 5000; Mz := 0; theta := proc (x) options operator, arrow; 0 end proc

w := proc (x, t) options operator, arrow; q[1](t)*(cosh(1.8751*x/l)-cos(1.8751*x/l)+(-1)*.734096*(sinh(1.8751*x/l)-sin(1.8751*x/l)))+q[2](t)*(cosh(4.6941*x/l)-cos(4.6941*x/l)+(-1)*1.01847*(sinh(4.6941*x/l)-sin(4.6941*x/l)))+q[3](t)*(cosh(7.8548*x/l)-cos(7.8548*x/l)+(-1)*.999224*(sinh(7.8548*x/l)-sin(7.8548*x/l))) end proc

phi := proc (x, t) options operator, arrow; q[4](t)*sqrt(2)*sin(1.5708*x/l)+q[5](t)*sqrt(2)*sin(4.7124*x/l)+q[6](t)*sqrt(2)*sin(7.8540*x/l) end proc

NULL

f[1] := int(lhs(eq1)*(cosh(1.8751*x/l)-cos(1.8751*x/l)-.734096*(sinh(1.8751*x/l)-sin(1.8751*x/l))), x = 0 .. l)

``

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