## 509 Reputation

12 years, 28 days

## display; not display:...

If you want not display wrtite

alpha:=1:

If you want to display wrtite

alpha:=1;

## One way...

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

## ?solve...

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});

## plot at each iteration...

``` 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);```

﻿

## useassumptions...

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

Warning disappear

## Why not a custom component ?...

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

﻿

## mistake...

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

## map...

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

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

## Ground...

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

## System of ODE...

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

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

## functions...

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

## Or...

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]

## avoid...

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)};

## Maplesoft applications center...

You can get some examples in the link below

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

## One way...

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
﻿