Hi all,

I want to save a plot into Array or other and re-plot it by pointplot.

restart:with(plots):

f:=x->cos(x)+cos(x)^2;

plot(f(x),x=0..2*Pi);

With Array, I want to determine dx (step) of the plot (Array) and the dimension of Array (number of line and column).

If Pk:=plot(f(x),x=0..2*Pi); is Array, I can reproduce the plot as:

ef := {seq([Pk[i,1], Pk[i,2]], i = 1 .. N)}: # Pk[i,1] is x and Pk[i,2] is f(x), N number of line of Array

Hi,

I have the function:

restart: with(plots): with(OrthogonalExpansions): with(DiscreteTransforms):

f:=t->piecewise(t<0,0,t<1,t,t<2,2-t,0);

The Fourier coefficients a[0], a[i] and b[i] can be calculated by:

T:=2: Trig:=FourierSeries(f(t),t=0..T,n,'Coefficients');

a[0]:= op(1, Coefficients);a[i]:= op(1, op(2, Coefficients))[1];b[i]:= op(1, op(2, Coefficients))[2];

I want to calculate those coefficients a[0...

Hi all,

For example, I have:

restart:

with(VectorCalculus):

z1:=1+I*5;

z2:=6-I*3;

I want to plot three vectors which are represented by z1, z2 and z1+z2.

I can plot them as:

PlotVector([<Re(z1),Im(z1)>,<Re(z2),Im(z2)>,<Re(z1+z2),Im(z1+z2)>],color=[red,blue,yellow]);

But the three vectors have origin at point x:=0 and y:=0.

I can change this by applying VectorSpace as:

vs1 := VectorSpace('cartesian', [0, 0...

Hi,

I have this problem when I use assume and assign a value to an assumed parameter.

Example:

restart:assume(beta>0):

g:=int(Sum(5*sin(n*beta*x),n=1..5),x) ;

beta:=1;

g;

Normaly beta:=1 is replaced into g. The result obtained is function of beta and beta:=1 is not replaced.

Why beta:=1 is not replaced in g ?

Thanks for suggestion

Hi all,

I have this piecewise function:

Mr := theta->piecewise(theta>=0 and theta<=(Pi/(2*p))-(beta/2),0,theta>(Pi/(2*p))-(beta/2) and theta<=(Pi/(2*p))+(beta/2),Br/mu0,theta>(Pi/(2*p))+(beta/2) and theta<=((3*Pi)/(2*p))-(beta/2),0,theta>((3*Pi)/(2*p))-(beta/2) and theta<=((3*Pi)/(2*p))+(beta/2),-Br/mu0,theta>((3*Pi)/(2*p))+(beta/2) and theta<=2*Pi/p,0);

I want to calculate the Fourier serie of this function without giving...