Crosslinking surfaces by a spiral.



My fantasy is a source.

Dear all,

I am making a mpl file which looks like below:

font_size := thickness = 4, font = [bold, "TimesNewRoman", 30], labelfont = [bold, "TimesNewRoman", 30], axis[1] = [thickness = 3], axis[2] = [thickness = 3], captionfont = [bold, "TimesNewRoman", 30], legendstyle = [font = [bold, "TimesNewRoman", 30]];

I  export it as mpl, but when I want to read it in a worksheet, I get the error below:

Error, on line 1, syntax error, character `?` unexpected:
<?xml version="1.0" encoding="UTF-8"?>
^
Error, while reading ``/Users/..../font_size.mpl``

This is just a simple mpl, I get this error for all mpl s that I want to read!

Can somebody help me with this please? It is really annoying :(

I am able to get unlimeted numbers of equations describing my system. These equations are generally relate quotients of multivariate polynomials. Each additional equation I get is generally less than twice the length of the last, and it is not always the case that an equation is independant of the previous equations. Although I can get unlimited numbers of equations describing the system, it is not overdetermined.

I am interested in solving these equations for their variables. There are about 30 cases I am working on, the smallest number of evariables is six, the largest would be twenty.

I want to be able to solve these equations in the minimal time possible. But I don't understand the function solve well enough to do so.

How do I choose the equations to minimise the time taken for the command solve to proccess them?
How does the command solve work?

particularly:

1. if I process the command solve([Eq1,Eq2,Eq3...Eqn],variables) would the command solve([Eq[1],Eq[2],Eq[3]...Eq[n],Eq[n+1]],variables) take longer if Eq[n+1] is not indipendant of the previous equations? 
2. Is there a way of checking whether Eq[n+1] is independant of the previous vequations, fast enough for it to be useful to check the equations before they are processed?
3. Does the ordering of the equations affect the speed of solve?
4. Is there a way of pre processing the equations before they are put into solve that will save it time? (for example factorising them, simplifying them etc...)

Dear all, I have obtained some figures in Maple code. But they looks not very good. Iwant to export the plot data to matlab. Then try to plot in matlab. I think it should't be very hard. Does anyone can help me? Thanks

Hello,

I have a maple code, which some expressions have more that 80000 terms and I need to double integrate them. The terms have sine, cossine trigonometric functions.

I tried to used de MAP command, it works for the first expressions but, after a while, Maple displays an error message related to too large expression.

Do you know how to handle large expressions ?

Thank you.

Dear all,

I am tryong to use the density plot for the first time.

Following maple instructions in maplsoft, I type 

densityplot(xe−x2−y2,x=−2..2,y=−2..2,colorscheme=["𝙱𝚕𝚞𝚎","𝙶𝚛𝚎𝚎𝚗","𝙾𝚛𝚊𝚗𝚐𝚎"])

but I get the error below:

Error, (in plot/options2d) unexpected option: colorscheme =["𝙱𝚕𝚞𝚎","𝙶𝚛𝚎𝚎𝚗","𝙾𝚛𝚊𝚗𝚐𝚎"])

It actually works with one color, but not with colorscheme!

http://www.mapleprimes.com/posts/38019-Calling-Out-To-C-From-Maple#

if i can use maple to call c# function such as AForge.QLearning

how to set some tasks for it to guess some system of polynomials to fit hibert series criteria?

how to set a game for it to run itself to discover itself?

Hello,

I have a worksheet that makes 38 Mo. I find it a bit huge because my code is only composed by 20 code lines. I guess that Maple has saved a important volume of data which makes the file very heavy.

I would like to reduce the size of my worksheet so as to be able to send it to colleagues.

How can I remove all the data save in a file?

I find how to display only the inputs but the data in term of size seems to be still present.

Thanks a lot for your help

Hi,

Need help in plotting the function in the attached file. m, h and k are parameters.

Thanks

Bessel_Function.mw

Hello guys and gals!

I'm not strong enough with maple to get what the result I want.

It seems that it's because I'm asking for two lenths, and not a lenth and an angle, but I have no Idea how to tackle it diferently.

If you know a trick, please share it!

Here's an image:

http://imgur.com/xavAUoB

And here's the maple file attached (I think)

 complex_problem_from_the_internet.mw

Thanks,

Happy new year!

Hi,

  I think similar question has been asked by several people, but I did not find a suitable thread. My question is, suppose I have a probablity distirubtion function like

  p(x,y) = exp(-alpha (x+y) ) x^2 y^2 / |x-y|  , alpha>0

 x,y goes from - \infty to + \infty. This function is normalizable but unbounded, which makes the rejection algorithm a bit difficult(?).

  How to generate samping points from this type of probability distribution function?

Thank you very much!

Hello,

I would like to plot gait diagrams (the lines you can see on the picture belowà from the solutions obtained with a NL oscillator (composed with 8 coupled odes). Here the result that I would like to obtain.

Initial plot:

Desired plot

I would like to obtain 4 lines corresponding to the 4 elliptic trajectories obtained with the NL oscillator. The four lines should be done like this. When the trajectory is above 0, the line should be colored in green. When the trajectory is below 0, the line should be colored in black. 

May you help me to define this kind of graph called gait diagrams from the solution of the NL oscillator ?

Here you can find my maple code:

K:=Matrix([<0, -1, 1, -1>,<-1, 0, -1, 1>,<-1, 1, 0,-1>,<1, -1, -1,0>]);

for i to 4
do
r[i]:=sqrt((u[i](t))^2+(v[i](t))^2):
omega[i]:=omega[sw]/(1+exp(b*v[i](t)))+omega[st]/(1+exp(-b*v[i](t))):
Equ[i]:=diff(u[i](t),t)=Au*(1-r[i]^2)*u[i](t)-omega[i]*v[i](t):
Eqv[i]:=diff(v[i](t),t)=Av*(1-r[i]^2)*v[i](t)+omega[i]*u[i](t)+MatrixVectorMultiply(K,<seq(v[i](t),i=1..4)>)[i]:
EqSys[i]:=[Equ[i],Eqv[i]]:
end do:

paramsCycle:=omega[st]=4*2*Pi,omega[sw]=2*Pi,Au=5,Av=50,b=100;
params:=paramsCycle;

Differential system 
sys:=map(op,eval([seq(EqSys[i],i=1..4)],[params]));
ic:=[u[1](0)=0, v[1](0)=0,u[2](0)=0, v[2](0)=-0.1,u[3](0)=0, v[3](0)=0.1,u[4](0)=0, v[4](0)=0.1];
Résolution1
res:=dsolve([sys[],ic[]],numeric):
Initial boundaries
tcalc:=4;
ic2:=[seq(u[i](0)=eval(u[i](t), res(tcalc)),i=1..4),seq(v[i](0)=eval(v[i](t), res(tcalc)),i=1..4)];
Résolution2
res:=dsolve([sys[],ic2[]],numeric):

tmax:= 40:
numpts:=100*tmax:
plots:-odeplot(res,[t,v[1](t)],0..tmax,thickness=2, view=[0..5, -1.5..1.5],numpoints = numpts);
plots:-odeplot(res,[t,v[2](t)],0..tmax,thickness=2, view=[0..5, -1.5..1.5],numpoints = numpts);
plots:-odeplot(res,[t,v[3](t)],0..tmax,thickness=2, view=[0..5, -1.5..1.5],numpoints = numpts);
plots:-odeplot(res,[t,v[4](t)],0..tmax,thickness=2, view=[0..5, -1.5..1.5],numpoints = numpts);
plots:-odeplot(res,[seq([t,v[i](t)+i*5],i=1..4)],0..tmax,thickness=2,view=[0..5,0..25], numpoints = numpts);

Thanks a lot for your help

HI, I am trying to solve two PDEs but in boundry conditions there is arising an error plz help.
Nazi.mw

Hello,

I have many tests to conduct on a MapleSim model. At each test simulations, I would like to change slightly some parameters.

As I have many tests to do (with different parameters), I would like to use a script so as to do like this :

Parameters test1
Launch MapleSim simulation
Store results of test 1

And so on ...

How can I do this kind of script ?

Is it possible to store the 3D animation results ?

Thank you for your help.

Hi,

I recently noticed that Maple 2015 has become irresponsive on mac (macbook pro) with the latest java release (Java 8 update 66). Did anywone experience the same problem ?