Hi there,

I have defined an own type MyType wich is internally just a list ['MyType', A, B] with let's say two lists A,B and the symbol 'MyType' as first element (to identify the type).

Now, if I define

X := MyType('MyType', A, B);

is there a possibility to extract A out of X by something like

X[2]

or even better X[1] (thus skipping the first one)? The only thing I know is op(2, X).

Hello,

I need to create a new bernoulli distribution such that P(I=1) = q = 1-P(I=-1).

I did U:=Distribution(PDF=(t->piecewise(t=-1,1-q,t=1,q,0))); but Maple gives me back:

module() option Distribution, Continuous; export...   instead of:

module() option Distribution, Discrete; export...  since the distribution is discrete!!

Do you know a way to force U to be a discrete distribution, cause otherwise I get all moments=0.

hi all

is there any (possibly simple) way to distribute a piece of maple software not allowing external user to access the source code ?

Translating to C, compiling and then including as an external function is very awkward procedure.

thanks in advance

Hello!

I'm trying to solve numerically an ODE system with piecewise. And this piecewise is very important for this task.

This system describes behavior of a pulley with friction. There are some constants: m, c, g, mu and J. Values of this constants are not important.

> sys := m*a(t) = piecewise(a(t) < a0, F0*time, a(t) >= a0, 0), v(t) = diff(x(t), t), a(t) = diff(v(t), t);
> m := 5; F0 := 10; a0 := 5;
> initialconditions := x(0) = 0, v(0) = 0;

Dear folks,

 In mapple programming while assigning a fraction to a variable...it directly simplifies it....

eg: x:=4/6 and it directly gives 2/3

can we make mapple not to simlify this fraction....

It is very important for me to find out....

please help me

thanks in advance

regards

uday

I have looked at the maple help for the ErrorPlot function, but i can't make it work for my plot. 

I have the following procedure:

K := 1.; Xrng := [seq(dt*i, i = 0 .. ntime)];

value := array(1 .. ntime+1);

ave := array(1 .. ntime+1);

for j to ntime+1 do:

discountfactor := exp(-r*j*dt);

Stot := 0.;

Stot1 := 0.;

for i to npath do:

Spath := max(Spot[i][j]-K, 0);

Stot := Stot+Spath;

What does it mean when I get the message, "Warning, model is not of full rank"?

Thank you.
Janice

Hi all,

Is there some way i can find the width of a plot?

I have the equation below:

Prob:=(w,T)->(B^2)*(sin(w*(T/2))^2)/((w/2)^2);

plot(Prob(w,6),wf=-3..3);

Which produces a gaussian looking plot, the plot reaches zero at some...

When entering an expression into Maple that is not in simplest form ( Maple desktop will automatically change it to x+y. I have tried subtracting equivalent expressions, using evalb, using convert, and using simplify, but I cannot get 2*(x+y)/2 to be equivalent to (x+y) using the MapleNet web service.

Any help appreciated.

mem2.mw

Although i have defined K5 as a constant before solving the equations , maple returns an error message saying that

"Error, (in fsolve) k5 is in the equation, and is not solved for"

And i am alos trying t find the roots of the equations in a certain range as specified above.

Dear All!

Could you explain how the coulditbe() function works?

> assume(q, integer, w, integer); about(q, w); coulditbe(q/w < 1); coulditbe(q < w);
Originally q, renamed q~:
  is assumed to be: integer

Originally w, renamed w~:
  is assumed to be: integer

                              FAIL
                              true

BR,

Zoltán Faigl

Good Morning.

I have problem when i want to graph my equations. I received this error: 

Error, (in plots/odeplot) curve is not fully specified in terms of the ODE solution, found additional unknowns {t}

I would like to know how i can solve it

Thanks in advance 
 

Dear All,

I ran into a problem, which I can not resolve. 

> Eqs := [x*0 = y*0]; Vars := [x, y];
                            [0 = 0]
                             [x, y]
> solution := solve(Eqs, Vars);
                        [[x = x, y = y]]
> Eqs := [x*b = y*b, b = 0]; Vars := [x, y];
                       [x b = y b, b = 0]
                             [x, y]
> solution := solve(Eqs, Vars);
                               []