Hi,

New to maple and I have 2 questions that I'm stuck on.

1) Find the principal arguments of the 5 roots of the polynomial

and enter a decimal approximation to the largest principal argument in the box below.

ans: 2.589502038

2) Find the moduli of the 5 roots of the polynomial

and enter a decimal approximation to the largest modulus in the box below

ans: 2.34880159160143

I dont really know what to write in maple to get the answer. So, if someone could help me out that would be really great. cheers

Hello,

I'm trying to sort a list of symbols respecting some assumptions I have made about them. For example, I'd like to assume that 0<x<1, and I would like [x, x^2, x^3] to be sorted into [x^3, x^2, x]. How would I accomplish that? Making an assumption with assume() does not affect anything, as the sort() function does not seem to be actually comparing the values of symbols (only numeric values). Any help will be appreciated.

Thank you. 

Diff(x1(t),t) - x2(t) = 0;

Diff(x2(t),t) - x3(t) = 0;

Diff(x3(t),t) +3*x3(t) + 4*x2(t) + x1(t) = 2*Diff(u(t),t$2) + 5*Diff(u(t),t) + 7*u(t);

multiply above system by test functions -lambda1(t),-lambda2(t),-lambda3(t) and integrate by part

in order to find adjoint operator in the form

x1 -> Diff(lambda1(t),t) - lambda3(t) = miu1(t)

x2 -> Diff(lambda2(t),t) + lambda1(t) - 4*lambda3(t) = miu2(t)

This is what i have done to find the difference between a ball thrown with different starting angle, and then ploted they into the same plot.

restart; Digits:=20: with(plots):

C_0:=0.4: d:=0.0002: mu:=1.8*10^(-5): rho:=1.2: g:= 9.81:
rho_v:=1000.0: m:=evalf((4/3)*Pi*rho_v*(d/2)^3):   


F_D:=proc(v::list)                 
local k,vx,vy; 
vx:=v[1]; 
vy:=v[2]; 

This is my approach:

sum(1/(4*n+1/3*k),k=1..infinity)

but I end up getting infinity for my answer which is obviously wrong.

Himmelblau.mw

     On the basis of Dragнilev method…

     Is there anyone interested in the algorithm to reduce the distance between the points of the given constraints? The algorithm is adapted for use in R ^ n. This is an example of its work on the surface:  
f = - (x1 ^ 2 x2-.3) ^ 2 - (x1 x2 ^ 2-.7) ^ 2 - 5;  

     Approximate description of the algorithm in pictures.

I am a student taking differential equations and I need to implement Euler's method using Maple 17. I have set up a do loop that looks like this:

for i from 1 to n1 do

k:= f(t,v):

v:= v + h*k:

t := t + h:

od:

Where n1 is initialized to 50, f(t,v) := 0.0207v² -893.58, and h is 0.1. v and t are both initialized as 0.

Hi ,,,,  I think it is a bug in Maple   "try to calculate int(abs(x-2),x);   ... does not give a right answer

Question 1

a := miu1 = Diff(lambda1(t),t) + lambda3(t);

b := miu2 = Diff(lambda2(t),t) + lambda1(t) - 4*lambda3(t);

c := miu3 = Diff(lambda3(t),t) + lambda2(t) - 3*lambda3(t);

d := miu = 2*Diff(lambda3(t),t$2) - 5*Diff(lambda3(t),t) + 7*lambda3(t);

how to eliminate all derivatives of lambda in miu

result in

miu - 2*Diff(miu3,t) - miu3 + 2*miu2 = 2*lambda1 - lambda2 + 2*lambda3;

I have now been stck in a few days on a task that should be done in maple. I'm pretty new to maple so hope some of you could help me a bit. The task is to create a table of a ball that is thrown, when the starting speed should be from 0.2 to 4, and each step should be at 0.2. Afther that the table need to be plotted. I have used euler method to sett the functions up and the functions is a vector. Any one know what comands i should be using?

I have here Maple proc, but it doesn't work. I am try to solve this equation 
pde := diff(u(t, x), t, t)-(diff(u(t, x), x, x))+x^2*u(t, x);

with 3 piont known , we have 
stencil:=u(i,j)=-u(i-1,j-1)+(1-h^2/8*v(h/2*(j-i-1))^2)*u(i,j-1)+(1-h^2/8*v(h/2*(j-i+1))^2)*u(i-1,j);

please see the file I attached here

Thank you

wave_proc.mw

I am try to program a proc that will plot the kinematic equations.

kinematics := proc(a::procedure, t::name, s0::numeric, v0::numeric, t0::numeric, t1:: numeric)

local v:=t->v0+int(a(t),t);

local s:=t->s0+int(v(t),t);

plot([a(t),v(t),s(t)], t=t0..t1);

end proc;

the above is my code, which works ok. 

Note: a is acceleration function, v is velocity function, s is position function, t is independent variable,...

There seems to be patterns for sin(10^-k) for rational k;

Here we have the "floats."

n sin(10^(-n-1/2))

1 0.03161750640

2 0.003162272390

3 0.0003162277607

4 0.00003162277660

5 0.000003162277660

6 0.0000003162277660

7 0.00000003162277660

More later on using the mantissa. You're welcome to join me.

(i)develop an algorithm for computing f¡ÊF[x,y],F a field,where the degree of f in y is less than n and and f(x,ui)=vi; for i=0,1......,n-1, for distinct ui∈F,and arbitrary Vi∈F[x].showthat f is unique.

(ii) assuming that the degree of each Vi is less than m, what is the computing time of your algorithm (in term of m and n)?

(iii) computer f∈ F[11][x,y]such thatf(x,0)=x^2+7,f(x,1)=x^3+2*x+3,f(x,2)=x^3+5.