hey i´m back again and need help to solve this situation Please:                                          restart;with(ArrayTools):                      ...

Like to use a few brief Maple commands in a presentation, but don't want to have the output shown in advance. Is there a way of saving a worksheet without the output or load it with just the commands?

Dear friends

I solve a rectangular system of equations AX=B   where A from order 3m+1x2m      X from order 2mx1       B from order (3m+1)x1   where  m=400, by LeastSquare or by multiply by A^T  

A^T*A*X=A^T*X

let M=A^T*A

then     M*X=A^T*X                 finally               X=M^-1 * A^T*X

Dear friends.

How can i increasing or removing the software limits for maple 16.

I'm having problems using the complexplot command in Maple 16 with over 1 million points. I really want to plot the points - I don't want an approximation. I noticed some strange things with the list/table carrying my complex points. If I ask for individual values, like T[20], it won't give the correct value, but if I ask for a range, like T[1..20], it will display the correct values.

I get an error when trying to use complexplot saying either invalid range, if I don't...

Hi everyone,

I am trying to understand how can I create a function based on the differentiate of a matrix.

For instance:
 

And I would like to create the matrix FF based on the derivative of F with respect to x and then be able to use FF and a function.

I tried to combine, unapply, map and diff but I can't reach what I'm looking for.

Hi,

I want to create a tangent function.

I know that you can create tan(x) but how can you create the tangent function when the solutions are only:

x in [0.19740;0.91510[ union [3.3390;4.0567 ?

Another explanation:

How you can graphically show the valid values of x in this inequality?

                  0.2 ≤ tan x < 1.3
Best regards

fattali

Dear Users,

I would like to know how to convert the following bessel product into a polynomial form.

I have an experession as follows:

BesselI(1,p*x)*BesselK(0,p*x)+BesselI(0,p*x)*BesselK(1,p*x)    #where p is arbitrary real positive constant and x is a variable

How to get the result in maple by simplify, convert or any other functoins.

Thanks for your attention.

i'am using maplet shortcut in maple 

but it did not show in table form, it only gives final answer.

use DocumentTools in 
with(LinearAlgebra):with(VectorCalculus):with(linalg):

# F1,F2,F3 are my equations 
F1:=Do(%f1); 
F2:=Do(%f2);
F3:=Do(%f3);

# these is my initial point
X1:=Do(%x1);
X2:=Do(%x2);
X3:=Do(%x3);

# the whole operation
F := Matrix(1 .. 3, 1 .. 1, [[F1], [F2], [F3]]);
J := Jacobian([F1, F2, F3], [x1, x2, x3]);

I have the following expression 

lambda1-2.9881355172134833*lambda2+16.044692204509636*lambda1^2-114.31727386075951*lambda1*lambda2+202.36051939112247*lambda2^2

I want to get the expression in a form in which all the coeffs are fixed to 7 decimal places. 

I have tried with 

evalf[7](lambda1-2.9881355172134833*lambda2+16.044692204509636*lambda1^2-114.31727386075951*lambda1*lambda2+202.36051939112247*lambda2^2)

Hi guys. I need to do a Runge-Kutta method to solve two equations and I'm having trouble at using functions. My program is as shown below:

restart; A := Matrix();

dt := 0.1e-2;

diff(x(t), t) := v;

diff(v, t) := a(x(t), v);

xo := 0; vo := 0;

for i to 1000 do

xn := xo+v.dt;

vn := vo+a.dt;

dx1 := vn.dt; dv1 := a.dt;

dx2 := (vn+(1/2)*dv1)*dt; dv2 := a(x(t)+(1/2)*dx1, (1/2)*dv1)*dt;

dx3 := (vn+(1/2...

of the integral int(cos(t^3)/(t+2), t = -infinity .. x) as x tends to -infinity with Maple? I have in mind a better asymptotics than 0.

can someone assist me to animate the following:

 A ladder is leaning against a wall. The base of the ladder starts sliding away from the wall, with the top of the ladder sliding down the wall. As the ladder slides, you watch the red point in the middle of the ladder. What figure does the red point trace? (a circle)

[24+24*beta[1]*x+24*beta[2]*x^2+24*beta[3]*x^3+24*beta[4]*x^4]+(2*[[beta[1]+2*beta[2]*x+3*beta[3]*x^2+4*beta[4]*x^3]])*(-24+24*x)+[2*beta[2]+6*beta[3]*x+12*beta[4]*x^2]*(12-24*x+12*x^2)-L^4*m[0]*Omega^2*[-(1/2)*x^2-R*x+R+1/2]*(12-24*x+12*x^2)/EI[0]-F*L^2*(12-24*x+12*x^2)/EI[0]-L^4*m[0]*Omega^2*[-x-R]*(12*x-12*x^2+4*x^3)/EI[0]-L^4*m[0]*omega^2*(6*x^2-4*x^3+x^4)/EI[0]

This is the result of a mathematical procedure. I need to be able to extract the series...

I have already solved my ODEs and used odeplot to analyse the change over time (0 to 10).

Below is my ODE,

d(a(t))/dt = x - y*(a(t))

d(b(t))/dt = m*a - n*(b(t))

My query here is,

I need to substitute a(t) and b(t) in a seperate equation,

h(t) = 60/0.98 * (a(t))*(b(t))

and i need to plot 'h' over time (0 to 10)

How do I go about doing this?

Please help.

Thanks.