Greetings,

I have a differential equation:

an the solution:

I want to substitute

ekf := omega = sqrt(c/m);

algsubs(ekf, sol);
but sol does not change.

This works a bit but does not substitute everything in a way that you would expedect

This is the result:

Thanks in advance

I want to find the sum of the reciprocals of the factorials of the elements of in the sets [[0,2,3,0,0], [2,3,0,0,0], [1,1,2,2,0] .....]]  -----(1)

For example 1/(0!2!3!0!0!) + 1/(2!3!0!0!)+ 1/(1!1!2!2!0!)+........;----(2)

The lists are the partion(5) made into a list of 5 elements with 0s filling the partitions with less than 5 elemenst such as (2,2,1)=>(2,2,1,0,0)

All I need is help on how to make from (1) the sum (2) which is the sum of the reciprocals of the products of the factorials of each set. 

Hello,

I would like to choose the maximum interval which is here B3 not the maximum value.I used max which gave me the maximum value. Any ideas?

This is the output:

B1:=[2., 36.718220544331125]
B2:=[2., 35.08378362904457]
B3:=[2., 51.78712780854305]
datamax:= 51.78712780854305

how to get datamax:= [2., 51.78712780854305] instead of datamax:= 51.78712780854305?

This is my Maple code:

> restart;
> n := 3;
> for i to n do A[i] := RandomTools:-Generate(distribution(Uniform(.5, .75))) end do;
> eq := diff(X(t), t) = -S*X(t);
> ic[1] := X(0) = 150;
> for i to n do s[i] := dsolve({ic[1], subs(S = A[i], eq)}, X(t), range = 0 .. 10, numeric) end do;
> for i to n do B[i] := eval([t, X(t)], s[i](2)) end do;

datamax := max([seq(B[i], i = 1 .. n)]);

Thank you

Hello,

I am solving eq1 and then plot it using odeplot. Then I am extracting data from odeplot using op[1,1]. From that I only care about  one point so I am using pt[1] := dt[1]([1, 2]); then I ploted it using pointplot. I run a do loop and at the end I am ploting all the points.

My code works fine but I am trying to have a line contacting each points. I tried  style=line but it did not work.

How can I have a line contacting each points on my final plot (which is display([pl[1], seq(allpl[k], k = 1 .. 3)])) ?

This is my code:

> restart; with(DEtools); with(plots);
> with(DEtools); with(plots);
> A := 0.2e-1; B := 10^(-5); k := 0;
> eq1 := diff(X(t), t) = -(A+B*X(t))*X(t);

> ic[1] := X(365*k) = 1000;
> s[1] := dsolve({eq1, ic[1]}, X(t), range = 0 .. .365, numeric);
> p[1] := odeplot(s[1], [[t, X(t)]], t = 0 .. .365);
> dt[1] := op([1, 1], p[1]);
> pt[1] := dt[1]([1, 2]);
> pl[1] := pointplot(pt[1], axes = boxed);
> for k to 3 do
tk := 365*k;
A := rhs(s[k](tk)[2]);
ic[k+1] := X(tk) = 500.*A;
s[k+1] := dsolve({eq1, ic[k+1]}, X(t), range = tk .. 2*tk, numeric);
p[k+1] := odeplot(s[k+1], [[t, X(t)]], t = tk .. 2*tk);
dt[k+1] := op([1, 1], p[k+1]);
pt[k+1] := dt[k+1]([1, 2]);
pl[k+1] := pointplot(pt[k+1], axes = boxed);
allpl[k] := display([pl[k+1]])
end do;
> display([pl[1], seq(allpl[k], k = 1 .. 3)]);

Thank you

I am trying to use Maple to produce an image that will be part of a math paper.  The final image must be in .eps format.  Whenever I produce a plot in Maple17 and click on it, it looks like the image has the shape of a square (regardless of what's inside it), perhaps with a lot of empty space.  I want an image without a lot of empty space, and I'd like Maple to do this.  If I crop a square image using some other application, it is not going to improve the quality of the image and might hurt it.  

If the answer to question in the Title is "no", can anyone suggest a good way to produce a good .eps image from a Maple plot that is cropped properly to eliminate as much empty space as possible?  I have Photoshop, but I don't know if this is the best way to go.

I wrote a toy file that plots a simple curve.  I'll upload it and provide a link to it.  If you execute the code and click on the image, you'll see that it is a square with a lot of empty space.

Nov122013.mw

Download Nov122013.mw

Can any workarounds in Maple for debugging the code without procedure? 

Hey everybody I am trying to get maple to do some partial differention for me. 

Where 

I have PDEtools on but, it doesnt return an expression correctly. It's I think the problem is because Ψ is a function of (x,y) and f is a function of η and η is a function of x and y . U and ν are constants. v_x and v_y are the x and y velocites. 

What I would like the program to return when I write 

is something along the lines of 

could someone give me a hand on this. I would really apperciate it. 

Best Regards, 

Kyle 

Hi Guys,

I am trying to do the following and here is the issue:

> System*Transfer*Functions;
Power Stage Transfer Function:
> He := s^2/`ωn`^2+s/(`ωn`*Qn)+1;
>
Compensation Netwrok Transfer Function:
> Av := gm*(1+s/`ωcz1`)(1+s/`ωcz2`)/((Cc+Rc)*s*(1+s/`ωcp`));

>
Loop Transfer Function:
> Loop := Vref*RL*(1+s/`ωesr`)*Av/(Vout*Ri*(1+s/`ωp1`)*He);

> sys3 := TransferFunction(Loop);

Warning, transfer-function(s) are not rational-polynomial(s) in s

I want to do the TF and Bode Plot for this complex system... 

I copied and pasted this from the example page and I have to get this same graph for an assignment

im using maple 17

when i hit enter the return was

                       (1)

Hi,

I'm having some difficulty in figureing our how to store the results of an fsolve computation in an indexed variable that I can access subsequently to perform plots and do other calculations.  I have a do loop that, for every increment, has fsolve calculate five variable  (x,y,z.. )from a set of equations that have been entered.  It does the calculations just fine.  What I can't seem to do is set up an array variable (or other indexed variable like a vector) so that with every increment of the loop the values that fsolve generates for x, y, z  ect. can be stored.  That just doesn't seem to work, what am I getting wrong? Any help would be most appreciated.

Al Stiegman

Hi,

I need help formulating a biased coin toss.

I want to toss a coin 0 being heads and 1 being tails with probabilty 0.495 of getting heads, how do I show whether heads or tails wins??

Thanks

Good morning to all our Mapleprimes members.

It is very helpful to many persons who are very passion and dedicated to teach Mathematics using Maple technology if the software package is loaded with updated maple procedures of all the topics.

I am being of them, request the technical authorities and the eminant professors to support and develop this requirement.It becomes an open door to many people to enter and aquire the immence knowledge in Maple.

With thanks & Regards

M.Anand

Assistant Professor in Mathematics

SR International Institute of Technology,

Hyderabad, Andhra Pradesh, INDIA.

Good morning sir.

I request your kind support to the above cited query.

With thanks & Regards

M.Anand

Assistant Professor in Mathematics

SR International Institute of Technology,

Hyderabad, Andhra Pradesh, INDIA.

Good morning sir.

I request your kind support to the above cited question.

With thanks & Regards

M.Anand

Assistant Professor in Mathematics

SR International Institute of Technology,

Hyderabad, Andhra Pradesh, INDIA.

Dear All,

please help me with my problem. i have quite a big program all parts of which are distributed in the several code edit regions and in the main text. i'd like to find all occurenses of gven text in all open documents including code edit regions. i know how to do it manually by openening each code edit regiong and pressing Ctrl-F. however it is very time consuming and defocuses me apart from my main tasks. i'd prefer to use some combinations of 'hot keys' on the keybord or one or two mouse clicks as for example in MS Visual Studio.