Alger

489 Reputation

16 Badges

10 years, 173 days

MaplePrimes Activity


These are answers submitted by Alger

If you want not display wrtite

alpha:=1:

If you want to display wrtite

alpha:=1;

Matrix(  [ seq ( [n, n^2], n={1,2,3,50,100,1000})]);

Try this writing:

oplossingen := solve({somAx, somAy, somBx, somBy, somCx, somCy, somDx, somDy, somEx, somEy}, {Fac, Fae, Fbd, Fbe, Fcd, Fce, Fde, Fncx, Fncy, Fndy});

 A:= Array(1..nmax):
B:= Array(1..niteration):
for niter from 1 to niteration do
for n from 1 to nmax do
       ...
       A[n]:= v
   end do:
B[niter]:= A[nmax];
end do:
   plots[listplot](B);



UUU:=solve(EQN,n,useassumptions) assuming taum>0, taum<1, taut>0, taut<1;

Warning disappear

Sans-titre4.msim

With equations:

eq := [ve(t) = sin(2*Pi*t), vs(t) = sin(2*Pi*(t-.5*t^2))]

params := []

initialconditions := []

sys := DynamicSystems[AlgEquation](eq, inputvariable = [ve(t)], outputvariable = [vs(t)])

It is just an example with T(t)=0.5*t^2



a:=x^2:eval~(a,x=~[9,10]);

L:=[2,6,8]:f:=x->1/x;map(f,L);

                                                     [1/2, 1/6, 1/8]

I have maplesim 2 and then I can not open your file.

But, from the picture, I think you must add ground in your circuit

charcurve := dsolve({ic1,ic2, chareq1,chareq2},{x(s),y(s)});

                                                               charcurve := {x(s) = y[0]*s*exp(-s), y(s) = y[0]*exp(-s)}

restart:t:=z->exp(z);

                           t := z -> exp(z)

> L:=z->t(z)^2; # for example

                                         2
                           L := z -> t(z)

> L(1);
                         exp(1)^2

restart: with(DirectSearch);
> w:=700:f:=((w*.87)*(1-(1/x)^.2385)-(288*(x^.3174-1))/(.85))^2;
>
> GlobalSearch(f, tolerances=10^(-15));
                        [GlobalSearch, Search]


                                    0.2385                0.3174 2
    f := (947.8235294 - 609.00 (1/x)       - 338.8235294 x      )


         [       0.           [x = 2.92625702412764]     83]
         [                                                 ]
         [       0.                  [x = 1.]            83]
         [                                                 ]
         [2.86276098710258    [x = 1.04799716494048]    120]
         [                                                 ]
         [8.17394171734196    [x = 1.08541379015686]    260]

equ1 := .87*w*(1-(1/x)^.2385)-(288*(x^.3174-1))/(.85);

wvals := [600, 700, 800, 900]:

S := {seq({w = wvals[i]}, i = 1 .. 4)}:

sys := {equ1}:

sols := {seq(`union`(fsolve(subs(i, sys), x, avoid = {x = 1}), i), i = S)};

You can get some examples in the link below

http://www.maplesoft.com/applications/view.aspx?SID=4848

restart:y:=t->_C1*exp(-2*t)*sin(6*t)+_C2*exp(-2*t)*cos(6*t);

y(0)=1;

                             _C2 = 1

D(y)(0)=2;

                             6*_C1-2*_C2 = 2

4 5 6 7 8 9 Page 6 of 9