MaplePrimes Questions

Hi,

I have a list of displayed sequences  

S[j]:=display(seq(R1[i],i= 1..ne),seq(R[i],i= 1..ne), scaling = constrained, axes = none);

that can be animated easily in a worksheet using the following command 

display(seq(S[n]$5, n=1..10), insequence=true);

but when I try to embed that in a maplet, it doesnt work. The problem is with insequence. I removed insequence and the maplet showed S[10]. What else can I use?  

What can I do to have the maplet show the sequence of displays? Is there a way to use the animate command here?

Thanks for the help. 


 

I'm trying to compute the flux over a closed cylinder but can't define the top and bottom.

For the envelope

works fine. But top and bottom?

 

why does the sum(sin(k), k = -214748364 .. 214748364) not equal 0?

This behavior seems rather odd.  Is it documented anywhere?

v := <a,b>;

_rtable[18446883876157227486]

 

a := 3: b := 4:

v;

_rtable[18446883876157227486]

 

convert(v, list);

[a, b]

 

I expected that final result to be [3,4].  Why is it [a,b]?

I know that I can do eval(convert(v, list)) to get the numerical value, but why is the eval necessary?

 

1. Why doesn't simplify(subs(...)) as a single expression work?

simplify(subs(z = -z, erf(z)));
subs(z = -z, erf(z));
simplify(%);
                           erf(-z)
                           erf(-z)
                           -erf(z)

2. This just hangs. Would be nice if simplify could deal with this, but in any case I don't think it should take so long:

timelimit(60, simplify(n <= p*n+sqrt(n)*p*(1-p))) assuming n > p*(n+(1-p)*sqrt(n));
Error, (in assuming) when calling '`property/ObjProperty`'. Received: 'time expired'

3. It seems that assuming doesn't like f(constant) objects. Doesn't seem right, because x(a) would work fine:

simplify(abs(x(0))) assuming x(0) > 0;
                          abs(x(0))

simplify(abs(y)) assuming x(0) > 0, y > 0;
Error, (in assuming) when calling 'assume'. Received: 'cannot assume on a constant object'

4. Can simplify be made to work on things like this (since it can handle the coefficient at (t+1))?

simplify((sqrt(1-I)*sqrt(1+I)-sqrt(2))*(t+1));
               -(-sqrt(1-I)*sqrt(1+I)+sqrt(2))*(t+1)

 

Hello everybody, 

I use Maple to obtain the solution of a reccurrence equation :
r := rsolve({u(n)=n*(u(n-1)+1), u(0)=0}, u)

Now I want to define a function s(n) wich returns the integer value of the nth term u(n).
In the attached file three different attempts to compute the numerical value of s(2) (you can replace "2" by any other positive integer) are given.

  • S := unapply(r, n);
     
  • S := unapply(convert(r, sum), n);
     
  • S := unapply(simplify(convert(r, sum)), n);


But none of them returns an integer and I'm always forced to apply some operation to "transform" the output into the desired integer.
Could you please help me to understand why it is so ?

Thanks in advance

2018.mw

 

​​​​​​use epilson- delta definition of a limit to prove that

Limit as x approaches 5 of 1/x =1/5

There seems to be a bug: in some of the cases, the intersection command works, in others it doesn't.

I'd appreciate any hints as to why this is the case.

 

intersection_of_two_lines.mw

Hello,

I think its a simple question and I hope, someone can help me. For Example:

I have a list of numbers ("M") and I want to write these numbers in a new List but with the restriction

if x<Mthen Mi*2
else Mi 

Can someone explain how to solve this in maple?

Thank you very much.
Maritn

 

I am looking for a pragmatic solution to the question: Can my rolled carpet fit inside a given cardboard box?

It is the (generally unsolvable) problem "straw in a box":

https://www.maa.org/sites/default/files/pdf/upload_library/22/Polya/jerrard93.pdf

...with the restriction that the cylinder is aligned along the spatial diagonal.

 

So the application is this:
Is it possible to put a 120cm long rolled (radius 10cm) carpet inside a cardbord box of (inner) dimensions 118cm x 58cm x 38cm ?

Maple code would be perfect, but I have very little Maple experience so I cannot even provide any attempts/code at this stage.

Thanks!

A Happy New Year, people in mapleprimes,

I have a question, but this might be an inappropriate question to this site.

In Introduction to Maple, there is a calculation with a double square root.
Related to it, I want to calculate the following expression, which has a value of zero.

-3*(sqrt(10+4*sqrt(5)))+sqrt(50+20*sqrt(5))+sqrt(10-4*sqrt(5))+sqrt(50-20*sqrt(5));

Is there any way to use maple  so as to explain how the above expression takes the value of zero?

On earth, I cannot understand why this takes zero.

I hope you will give me a hint.

Thanks in advance.

 

I am trying to assess stability from real roots of Eigenvalues that are returned in the RootOf from. I tried allvalues(), evalf() both return the same RootOf list. If memory serves me correctly any square matrix should have and Eigenvalue solution.

Any suggestions?

Eignevalues.mw
 

NULL

with(LinearAlgebra)

Xd := 1.81
Xq := 1.76; Xpd := .3; Xe := .65; re := 0.3e-2; et := 1.0

M := 7; Tdo := 8; Ke := 200; Te := 0.2e-1

Q := -2.7; k := 0.2e-1; m := 1; FORW := 1

D curve PointsPoints      
             
           Pt__a := 0, .66

Pt__b := .56, .55 
Pt__c := .94, .34; Pt__d := 1.0, 0; Pt__h := 1.0, 0; Pt__g := .95, -.311; Pt__f := .59, -.398; Pt__e := 0, -.428
PSS

KSTAB := 9.6

     
TW := 1.4; T1 := .154

T2 := 0.33e-1

P := 1

Q := -.5

eto := abs(et); Ipo := P/eto; Iqo := Q/eto; Eqo := sqrt((Iqo*Xq+eto)^2+(Ipo*Xq)^2); Eo := sqrt((-Ipo*re-Iqo*Xe+eto)^2+(Ipo*Xe-Iqo*re)^2); `sin&delta;o` := (eto*Ipo*(Xq+Xe)-re*Xq*(Ipo^2+Iqo^2)-eto*Iqo*re)/(Eqo*Eo); `cos&delta;o` := (eto*(eto+Iqo*(Xq-Xe)-Ipo*re)-Xe*Xq*(Ipo^2+Iqo^2))/(Eqo*Eo); iqo := (Ipo*(Iqo*Xq+eto)-Iqo*Ipo*Xq)/Eqo; ido := (Ipo^2*Xq+Iqo*(Iqo*Xq+eto))/Eqo; eqo := eto*(Iqo*Xq+eto)/Eqo; edo := iqo*Xq; A := re^2+(Xe+Xpd)*(Xq+Xe); K1 := Eqo*Eo*(re*`sin&delta;o`+(Xe+Xpd)*`cos&delta;o`)/A+iqo*Eo*((Xq-Xpd)*(Xq+Xe)*`sin&delta;o`-re*(Xq-Xpd)*`cos&delta;o`)/A; K2 := re*Eqo/A+iqo*(1+(Xq+Xe)*(Xq-Xpd)/A); K3 := 1/(1+(Xq+Xe)*(Xd-Xpd)/A); K4 := Eo*(Xd-Xpd)*(Xq+Xe)*`sin&delta;o`/A-re*`cos&delta;o`; K5 := edo*Xq*(re*Eo*`sin&delta;o`+(Xe+Xpd)*Eo*`cos&delta;o`)/(eto*A)+eqo*Xpd*(re*Eo*`cos&delta;o`-(Xq+Xe)*Eo*`sin&delta;o`)/(eto*A); K6 := eqo*(1-Xpd*(Xq+Xe)/A)/eto+edo*Xq*re/(eto*A); A4 := Matrix(6, 6, {(1, 1) = 0, (1, 2) = 377, (1, 3) = 0, (1, 4) = 0, (1, 5) = 0, (1, 6) = 0, (2, 1) = -K1/M, (2, 2) = 0, (2, 3) = -K2/M, (2, 4) = 0, (2, 5) = 0, (2, 6) = 0, (3, 1) = -K4/Tdo, (3, 2) = 0, (3, 3) = -1/(K3*Tdo), (3, 4) = -1/Tdo, (3, 5) = 0, (3, 6) = 0, (4, 1) = K5*Ke/Te, (4, 2) = 0, (4, 3) = K6*Ke/Te, (4, 4) = -1/Te, (4, 5) = Ke/Te, (4, 6) = 0, (5, 1) = -K1*KSTAB*T1/(T2*M), (5, 2) = 0, (5, 3) = -K2*KSTAB*T1/(T2*M), (5, 4) = 0, (5, 5) = -`#mn("1")`/TW, (5, 6) = -(T1+TW)/(T2*TW), (6, 1) = -K1*KSTAB/M, (6, 2) = 0, (6, 3) = -K2*KSTAB/M, (6, 4) = 0, (6, 5) = 0, (6, 6) = -`#mn("1")`/TW}); Eig := Eigenvalues(A4)

allvalues(Eig)

evalf(Eig[1])

RootOf(10000000000*_Z^6+(14285714290*`#mn("1")`+503236834300)*_Z^5+(5102040817*`#mn("1")`^2+718909763500*`#mn("1")`+1193248786000)*_Z^4+(256753486900*`#mn("1")`^2+1704641123000*`#mn("1")`-94259434520000)*_Z^3+(608800401100*`#mn("1")`^2-52350222800000*`#mn("1")`+1273591282000000)*_Z^2+(10698531930000*`#mn("1")`^2+632925408400000*`#mn("1")`+1000000)*_Z+226044788700000*`#mn("1")`^2-10000000)

(1)

``


 

Download Eignevalues.mw
 

 


 

Download Eignevalues.mw

 

 

Dears,

Consider the problem min{|a+2*i| : i integer}, where a is a number of the form 2k*t for a fixed integer k>1 and t in [0,1]. A simple checking shows that i must belongs to the interval [-(1+a)/2,(1-a)/2] and as the legth of this interval is 1, there is two integers in this interval.

How can I compute this integer i with Maple? The commad "ceil" not seem very suitable. Some idea?
Many thanks in advance for your comments.

At the beginning of my work sheet I used the matrix palette to create several matrix. Now when I try to use the palette this is what I get. 

`Matrix(2, 3, {(1, 1) = Typesetting:-msub(Typesetting:-mi("n"), Typesetting:-mrow(Typesetting:-mn("1"), Typesetting:-mo(","), Typesetting:-mn("1"))), (1, 2) = Typesetting:-msub(Typesetting:-mi("n"), Typesetting:-mrow(Typesetting:-mn("1"), Typesetting:-mo(","), Typesetting:-mn("2"))), (1, 3) = Typesetting:-msub(Typesetting:-mi("n"), Typesetting:-mrow(Typesetting:-mn("1"), Typesetting:-mo(","), Typesetting:-mn("3"))), (2, 1) = Typesetting:-msub(Typesetting:-mi("n"), Typesetting:-mrow(Typesetting:-mn("2"), Typesetting:-mo(","), Typesetting:-mn("1"))), (2, 2) = Typesetting:-msub(Typesetting:-mi("n"), Typesetting:-mrow(Typesetting:-mn("2"), Typesetting:-mo(","), Typesetting:-mn("2"))), (2, 3) = Typesetting:-msub(Typesetting:-mi("n"), Typesetting:-mrow(Typesetting:-mn("2"), Typesetting:-mo(","), Typesetting:-mn("3")))})`

To get a matrix from the palette I have to create it on a new worksheet and cut and past it into the existing work sheet.

What is happening?

Hi, I am a Maple newbie. My problem is I do not know how to generate the result to find the answers of these question: 

  1. a)   Sketch the surface area of the part of paraboloid z = x2 + y2 that lies under the plane z=8.

b)   Compute the surface area.

  1. a)   Sketch the solid that lies above the cone z = (x2 + y2)1/2 and inside the sphere x2 + y2 + z2 = 16.

b)   Compute the volume of the solid.

It is possible to calculate these question? Does anyone has a suggestion? Thank you. 

First 883 884 885 886 887 888 889 Last Page 885 of 2428