Essays/Torsion Tensor/TorsionTensor06

...

... exExperimental ...

...

NB. ... plot (ijs) ...

vSgDd2M=:[([-@(hcn smx"2 1 Rcv)hkAx)S03xH{]

load 'plot'

gXcme =:(  1.5           0     0 )"_
gXpAll=:(  0             0     0 )"_
gXqAll=:( _020.62867905  0.5  _1 )"_
gXwAll=:(  0             _     _ )"_

Initx =:  7 , 0.5p1 ,  1p1  , 0           "_
Initdx=:  0 , 0     , _0.01 , 0.0495227363"_

vS00xL    =:Initx
vS01dxL   =:0,0,0,0:
vS02d1L   =:Initd1
vS06ds    =:|@Initds
vS07count =:0,628"_
pd vSgDplot pdDg=:vSgD@vS''

pd 'pdf'
pd 'show'

NB. ... plot (ijs) ...

BB2kRcv=:+/"1@((<0 1)|:])"3@(hcn([smx 0|:])"2 3+/"1@((<0 3)|:])"5@BB2kcv)

vSgDd2M=:[([(hcn smx"2 1 BB2kRcv)hkAx)S03xH{]

load 'plot'

gXcme =:(  1.5           0     0 )"_
gXpAll=:(  0             0     0 )"_
gXqAll=:( _020.62867905  0.5  _1 )"_
gXwAll=:(  0             _     _ )"_

Initx =:  7 , 0.5p1 ,  1p1  , 0             "_
Initdx=:  0 , 0     , _0.01 , 0.047935260915"_

vS00xL    =:Initx
vS01dxL   =:0,0,0,0:
vS02d1L   =:Initd1
vS06ds    =:|@Initds
vS07count =:0,628"_
pd vSgDplot pdDh=:vSgD@vS''

pd 'pdf'
pd 'show'

NB. ... execute (ijx) ...

NB. ... no EM ...

   gXcme =:(  1.5  0     0 )"_
   gXpAll=:(  0    0     0 )"_
   gXqAll=:( _8    0.5  _1 )"_
   gXwAll=:(  0    _     _ )"_

   yCpts=:5 15 7,(0.1,(1p1-0.1),7),0 2p1 7,:0 20 7"_

   *./^:3"3 (0=]) ((2^_44)qtsz]) (gXT([Fcv hkAx)]) (50 yCrandom yCpts)''
1

---

Download MoinMoin source: File:TorsionTensor06.ijs

---

---

Prev Page: Essays/Torsion Tensor/TorsionTensor05

---

---

Contributed by Tom Allen

---