I'm programming really much right now in Maple. To do so, I simply write foo :=proc(...) ... end proc statements directly into a Maple-document.

However, you neither have syntax-highlighting (save Standard-Keywords such as 'proc' or 'for', 'do' etc.) nor auto-indent (you actually have to use the space bar, tab won't work).

You certainly agree that that is very annoying. Are there other options? Is there e.g. some sort of Editor where I can program most of my stuff without entering maple and will it load packages (with(...) in Maple)?

Thanks in advance!

This is similar to the roots of trig function thread that was just posted.  

When I Set_EnvAllSolutions:=true; and then use cos(x)=0 for example are the _B3~ and _Z3~ just place holders?  

If I want the actual numeric values over a range and I'm trying to use fsolve, I can't seem to get it to work. 

SetEnvAllSolutions:=true; fsolve(cos(x)=0, x=0..3*Pi);

I get 4.712388980 as the only answer.  I should have 3 values shouldn't I?

 

I'm currently trying to plot the Ferrers graph of a plane partition, i.e. a 3D structure of stacked boxes. My input would be a plane partition p_ij with the information ( i, j, k ) for each 'stack of boxes' where i, j are the coordinates in the matrix and k is the value of the respective entry. As an example, the following input 3 2 1 1 2 2 1 1 1 should produce a plot that looks like this: Thanks a lot in advance! Cheers Nils

Hi!

I'm trying to solve a differential equation of the form y'=cos(pi*t*y).

I wrote:

<de:= diff(y(t),t)=cos(pi*t*y(t))

And that works fine.

Then I tried to use dsolve(de) but that shows nothing and just goes to the next line

So I figured maybe it couldn't solve it and decided to try the transform methods. For instance,

with(inttrans)

ics:=y(0)=0

dsolve({de,ics},y(t),method=laplace) <- with regards to this, I also tried Fourier

How can i solve this complicated problem????restart:
R:=3:
kappa:=2.4048/R:
a:=-mu^2/kappa^2:
sigma1:=Int(t^2*BesselJ(0,t)*BesselJ(1,t)*exp(a*t^2),t=0..2.4048):
sigma2:=Int(t^3*BesselJ(0,t)^2*exp(a*t^2),t=0..2.4048):
sigma3:=int(t*BesselJ(0,t)^2*exp(a*t^2),t=0..2.4048):
sigma4:=Int(t*BesselJ(0,t)^2*BesselJ(0,(q*t)/kappa)*exp(a*t^2),t=0..2.4048):
s[q]:=(sigma4/sigma3)^2:
epsilon:=lambda^2/2+kappa^2+mu^2*(2-(2*sigma1-(mu/kappa)2*sigma2)/sigma3):
h:=(s[q]*exp(q^2/(2*lambda^2))*erfc(q/(sqrt(2)*lambda))):

Hello,

I'm trying to do a scatter plot but with a logarithmic vertical scale.  Does anyone know how to do this?  I'm currently using the pointplot() function and giving it a list of points.

 

Thanks,

Andy

How to convert a data surface into a region:

surfdata([[1, 1, .69], [1, 2, .48], [2, 1, .37], [2, 2, .44]], axes = frame, labels = [x, y, z], filled = true)

I've tried to fill the volume below using the option "filled " without any results. I will appreciate any suggestion.

Hello,

can you tell me, please, how I can create labels when plot command (and its labels option) doesn't work?

 

Try these examples:

Ex1:  plot(1/(3+exp(x)), x = 0 .. 10, labels = ["x", "y"]);

Ex2:  plot(1/(3+exp(-x)), x = 0 .. 10, labels = ["x", "y"]);
 

In first case everything is OK, in second "y" label doesn't appear and I can't manage to put it into plot.

Thank you.

 

PS: I'm using Maple 13.

I have defined a sparse matrix and verified that it is space by using the command- sparsematrixplot(Kd,'matrixview');

first, is there another way to check wether the matrix is stored in the sparse form?

second, when trying to sovle an algebraic set of equation using the procedures for hendling the sparse matrix i encountered the following error:

Error, (in HWcall[1]) column vector dimension less than length of sparse data
 

what is the meaning of this error and how can I repair it?

Dvir
 

 

Hi, there were already some topics about labeling plots but I have still a question:

I would like to label my axis with e.g.: rho [kg/m^3]. roh should be displayed symbolic (2D output) as well as m^3. On the other hand I would like to avoid that Maple builds a (2D) fraction with kg/m^2. Does anybody know how to do this?

The other thing: Is it possible to add an legend to a 3D plot?

Thanks!

how can i calculate all roots(or some roots in a given interval, or the J th root) of a (real or complex) trigonometric periodic equation?

I need to multiple two functions, and the two functions has to do with filling indices (X,Y) which will in turn generate a matrix. please how do i do it.

Please, the scroll button on my mouse does not work with maple. please is it a bug in maple or there is something i can do about it. Thanks

Hi, all, I have a question about how to evaluate result of expression containing ROOTOF. for example: >alias(x = RootOf(Z^3+Z+1)) >A := a[2]*x^2+a[1]*x+1 >B := b[2]*x^2+b[1]*x+1 >M1 := A*B; >expand(M1); a[2]*x^4*b[2]+a[2]*x^3*b[1]+a[2]*x^2+a[1]*x^3*b[2]+a[1]*x^2*b[1]+a[1]*x+b[2]*x^2+b[1]*x+1 >evala(expand(M1)); x^2*(1+b[2]-b[1]+a[2]*b[1]*x+a[2]*b[2]*x^2+a[1]*b[2]*x+a[1]*b[1]+a[2]-a[1]-a[1]*x^2-x^2*b[1]-x+x^2) I have questions about expand(M1) and evala(expand(M1)). >expand(M1); a[2]*x^4*b[2]+a[2]*x^3*b[1]+a[2]*x^2+a[1]*x^3*b[2]+a[1]*x^2*b[1]+a[1]*x+b[2]*x^2+b[1]*x+1

Dear Sir:

I have the below sum equation.

Please make some correction to get a solution.

 

with(student);

v:=(w[j])->sqrt(Sum(A[i]*cos(w[j]*t[i]),i=1..n)^(2)+Sum(A[i]*sin(w[j]*t[i]),i=1..n)^(2));

v(w[j]); diff(v(w[j]), w[j]);

value(%);

 

Thanks