Subversion Repositories wimsdev

!set m_v1=4

!set m_v2=$[rint(2*$m_a)]

!set m_v3=essai !

!set t_=!rawmath 20/15

!set m_v4=!exec pari print($t_)

!set t_=!rawmath 3*(1+i) -2

!set t_=!exec pari print($t_)

!set m_v5=!mathsubst I=i in $t_

!set m_v6=$[pi]

!set m_v7=!rawmath x^2+1

!set tmp0=!nosubst x:y

!set m_v8=$(tmp0)

!set tmp=!translate ;";': to $     $ in x^2+1,x

!set tmp=!lower $tmp

!set tmp0=!exec maxima diff($tmp);

!set m_v9=$(tmp0);

!set tmp=!translate ";': to $     $ in 4+5*(x+1)

!set tmp=!lower $tmp

!set tmp0=!exec maxima fullratsimp($tmp);

!set m_v10=$(tmp0)

!set tmp=!translate ;";': to $     $ in $m_g,1, 3

!set tmp=!lower $tmp

!readproc slib/function/integrate $tmp

!set tmp0=$slib_out

!set m_v11=$(tmp0)

!set evaltmp=$m_v10

!set evaltmp=!mathsubst x=(4) in $evaltmp

!set tmp0=($evaltmp)

!set m_v12=$(tmp0)

!set tmp0=$m_v10

!set m_v13=$(tmp0)

!set tmp0=!texmath  2x

!set m_v14=$(tmp0)

<br />

!set tmp=!trim 1,2	3,4

!set m_v15=!translate internal $	$ to ; in $tmp

!set tmp=!translate $	$ to ; in $m_v15

!set tmp0=!exec pari matdet([$tmp])

!set m_v16=$(tmp0)

<br />

!set tmp=!replace internal .. by , in x^2-1,0,1

!distribute items $tmp into tmp1,tmp2,tmp3

!set tmp2=!replace internal = by , in $tmp2

!distribute items $tmp2 into tmp4,tmp5

!set tmp0=!solve $tmp1 for $tmp4 = $tmp5 to $tmp3

!set m_v17=$(tmp0)

!set t_=!replace internal \( by ( in 2*[3,4]

!set tmp0=!exec pari $t_

!set m_v18=$(tmp0)

!set tmp0=3

!set m_v19=$(tmp0)

!set tmp0=!shuffle 3,5,6,7

!set m_v20=$(tmp0)

!set tmp=!translate $	$ to ; in [2,3;4,5]

!set tmp0=!exec pari matdet([$tmp])

!set m_v21=$(tmp0)

!set t_=!replace internal \( by ( in 3+8;

!set tmp0=!exec maxima $t_

!set m_v22=$(tmp0)

!set t_=!replace internal \( by ( in 3+8;

!set tmp0=!exec yacas $t_

!set m_v23=$(tmp0)

!set tmp0=!htmlmath 3^3

!set m_v24=$(tmp0)

!readproc docu/primitives/canvasdraw.phtml 200,200 \

xrange -1 1	yrange -1, 1

!set tmp0=$canvasdraw_out

!set m_v26=$(tmp0)

!read primitives.phtml 1, draw, 200,200, xrange -1 1	yrange -1, 1

<br />

!if a=a

!set m_b=1

!else

!set m_b=2

!endif

!ifval 0.5=1/2

!set m_b=1

!else

!set m_b=2

!endif

!set m_a=0

!for m_j=1 to 4

!set m_a=$m_a+$m_j

!next

!readproc slib/numeration/ecriturenombre 5678

!set tmp0=$slib_out

!set m_v28=$(tmp0)

!set tmp0=!random 1, 5

!set m_v29=$(tmp0)

!set tmp0=!item 1 of 7,8,9

!set m_v30=$(tmp0)

!set tmp=!nonempty items 1,7,8,9

!set tmp0=!randitem $tmp

!set m_v31=$(tmp0)

!set tmp=!translate internal $	$ to ; in 1,7	8,9

!set tmp=!row 2 of $tmp

!set tmp0=!translate internal $\

$ to ; in $tmp

!set m_v32=$(tmp0)

!set tmp=!translate internal $	$ to ; in 2,1,7	8,9

!set tmp0=!rowcnt $tmp

!set m_v33=$(tmp0)

!set tmp=!translate internal $	$ to ; in 2,1,7	8,9

!set tmp=!nonempty rows $tmp

!set tmp=!randrow $tmp

!set tmp0=!translate internal $\

$ to ; in $tmp

!set m_v34=$(tmp0)

!set tmp0=!nonempty items 2,1,7	8,9

!set m_v35=$(tmp0)

!set tmp=!translate internal $	$ to ; in 1,7	8,9

!set tmp=!column 2 of $tmp

!set tmp0=!translate internal $\

$ to ; in $tmp

!set m_v36=$(tmp0)

<br />

!if a=a

 b=1

!else

 b=2

!endif

!ifval 0.5=1/2

 b=1

!else

 b=2

!endif

a=0

!for m_j=1 to 4

a=$m_a+$m_j

!next

<br />

!insmath  r^6

!insmath  \frac{1}{2}

( parent [ gg ] ) $m_f

<br />

!set m_c=0

!while $m_c<3

!set m_c=$[rint($m_c+1)]

!endwhile

<br />

!set tmp0=!nospace aaa bbb

!set m_a=$(tmp0)