djc

571 Reputation

12 Badges

15 years, 157 days
Technical professional in industry or government
Budapest, Hungary

MaplePrimes Activity


These are answers submitted by djc

In newer Maple versions one can use the Sample command with the range option for this purpose:

restart;
with(Statistics):
m:=2903.5;sigma:=3;
Lower:=m-5;Upper:=m+5;
SampleNo:=10;
X := RandomVariable(Normal(m, sigma));
samples := Sample(X, SampleNo, method = [envelope, range = Lower ..Upper]);

Another variant in Maple 18 using InertForm:-NoSimpl:

use InertForm:-NoSimpl in F:=x*(y+z)/x end use;
subs({`%/`=Divide,`%*`=Mult,`%+`=Plus},F);

 

 Try it with / or  \\  instead of backslash in the path name. Maple uses the backslash for other purposes.

 

 L := Import("C:/parameters15.xlsx", "Sheet1", "A2:I2");

 Thanks for the answers.


It seems to me that the problem occurs when I execute expand.

I 've tried it with classic worskheet, it works perferctly.

I also acitvated the invisible' characters menu but I haven't seen any strange characters.

 

You can use the typeset structure too:

plot(x,labels=["x values",typeset(SAO[2],"(%)")]);


See it in the help: ?plot/typesetting 

You can use the diff command from the Physics package too.

Physics[diff](T,diff(U[2,1](t),t));

solvefor[d]({r*rr=0, a*p*d=rr});

[{d = 0, rr = 0}, {d = rr/(a*p), r = 0}]

 

`diff/f` := proc () 2*x end proc;

diff(f(x),x);

Diff(f(x),x)=value(Diff(f(x),x));

 

A semicolon or a colon is also missing at the end of the local variables definition line.

There are problems with two lines in your original code, I have corrected them as follows:

 

Y:=<3.7,9.39,23.09,58.60,153.41,309.43,1103.63,2988.98,1112.08,22036.47>:


solution := Statistics:-Fit(eqn, X, Y, x, output = parametervalues);

 

You can increase the distance between the output expressions using a pair of left single qoutes (empty symbol):

A := Array([x^4-4, ``, x^3+8]);
map(factor, A);

A solution with textplot (using Joe Riel's one-liner )  :

p1:=seq(plot(2*x+i/2,x),i=0..10):
p2:=seq(plots:-textplot([0.5,2*.5+i/2,y=i/2],align = {right}),i=0..10):
plots:-display(p1,p2,view=[-1..3,-1..8]);

 

You can also use the legend option and the setcolors command to assign different colors for the curves:

plots:-setcolors(["Red","Blue","Green","Orange","Turquoise","Violet","Brown","NavyBlue", "SkyBlue","Pink","Gold"]):

plot([seq(2*x+i/2,i=0..10)],legend=[seq(y=i/2,i=0..10)],view=[-5..5,-5..5]);

You can use the SystemConnect command for this purpose in Maple 14. (It is part of the DynamicSystems package).


You can also use the allsolve command from the free Maple Advisor Database:

http://www.math.ubc.ca/~israel/advisor/

 

allsolve(A3,S=0..1);

 

[0.4329927503e-1, .9619584407]

You can use difff  from the free Aladjev's library:

http://www.download.com/Aladjev-s-Library-for-Maple/3000-2070_4-10716687.html

 

F:=y(x)^2;

difff(F,y(x));

2*y(x)

 

z := y^2*diff(y(x),x)^3;

difff(z,diff(y(x),x));

3*y^2*(diff(y(x), x))^2

1 2 3 4 5 Page 1 of 5