User:Tom Allen/ta/AddendumW02P00
< User:Tom Allen | ta
Jump to navigation
Jump to search
load 'plot' pd 'reset' w2Rx2 =:(0{])+((1{])-0{])*(i.@>:%])@(2{]) w2spiral=:(w2m*^@(w2q*]-w2p))(([*cos@]);[*sin@])] NB. ... the dimensions for the plot ... pd 'color gray' w2S=:1.60"_ pd ((-@w2S,w2S); 0 0"_ )'' pd ( 0 0"_ ;(-@w2S,w2S))'' pd 'color black' w2r=:1.2"_ pd ((w2r*cos@]);w2r*sin@]) w2Rx2 0p1 2p1 100 NB. ... the spiral ,,, pd 'color green' w2m=:0.8"_ w2q=:1.5"_ w2p=:1p1%6"_ pd w2spiral w2Rx2 _1.834p1 0.340p1 1500 NB. ... the geometry ... w2A=:w2p+%@w2q*^.@(w2r%w2m) w2I=:0.1p1"_ pAy0=:0"_ pAy1=:0"_ pBy0=:(w2r*cos@])@w2A pBy1=:(w2r*sin@])@w2A pd 'color blue' pd ((pAy0,pBy0);pAy1,pBy1)'' pCy0=:(w2r*cos@])@(w2A+w2I) pCy1=:(w2r*sin@])@(w2A+w2I) pd 'color blue' pd ((pAy0,pCy0);pAy1,pCy1)'' pD0y0=:pBy0-w2r*w2I*sin@w2A pD0y1=:pBy1+w2r*w2I*cos@w2A pd 'color red' pd ((pBy0,pD0y0);pBy1,pD0y1)'' pE0y0=:pBy0+w2q*w2r*w2I*cos@w2A pE0y1=:pBy1+w2q*w2r*w2I*sin@w2A pd 'color red' pd ((pBy0,pE0y0);pBy1,pE0y1)'' pF0y0=:pBy0+((((w2q*w2r*w2I)^2"_)+(w2r*w2I)^2"_)^0.5"_)*cos@(w2A+_3&o.@(1%w2q)) pF0y1=:pBy1+((((w2q*w2r*w2I)^2"_)+(w2r*w2I)^2"_)^0.5"_)*sin@(w2A+_3&o.@(1%w2q)) pd 'color purple' pd ((pBy0,pF0y0);pBy1,pF0y1)'' pF1y0=:pD0y0+w2q*w2r*w2I*cos@w2A pF1y1=:pD0y1+w2q*w2r*w2I*sin@w2A pd 'color pink' pd ((pD0y0,pF1y0);pD0y1,pF1y1)'' pF2y0=:pE0y0-w2r*w2I*sin@w2A pF2y1=:pE0y1+w2r*w2I*cos@w2A pd 'color pink' pd ((pE0y0,pF2y0);pE0y1,pF2y1)'' pd 'aspect 1' pd 'pdf'
load 'plot' pd 'reset' w2pts=:(0{])+((1{])-0{])*(i.@>:%])@(2{]) NB. ... the dimensions for the plot ... pd 'color gray' w2S=:2.10"_ pd ((-@w2S,w2S); 0 0"_ )'' pd ( 0 0"_ ;(-@w2S,w2S))'' w2r =:1.2"_ w2Rx1=:0.3p1"_ w2Rx0=:w2r%sin@w2Rx1 pd 'color black' pd ((w2Rx0*cos@]);w2Rx0*sin@]) w2pts 0p1 2p1 100 NB. ... the geometry ... w2q=:1.5"_ w2I=:0.1p1"_ pAy0=:0"_ pAy2=:0"_ pBy0=:w2Rx0*sin@w2Rx1 pBy2=:w2Rx0*cos@w2Rx1 pd 'color blue' pd ((pAy0,pBy0);pAy2,pBy2)'' pCy0=:0"_ pCy2=:w2Rx0*cos@w2Rx1 pd 'color blue' pd ((pCy0,pBy0);pCy2,pBy2)'' pDy0=:pBy0+w2q*w2r*w2I pDy2=:pBy2 pd 'color purple' pd ((pBy0,pDy0);pBy2,pDy2)'' pEy0=:pBy0+((w2q*w2r*w2I)*sin@w2Rx1)*sin@w2Rx1 pEy2=:pBy2+((w2q*w2r*w2I)*sin@w2Rx1)*cos@w2Rx1 pd 'color pink' pd ((pBy0,pEy0);pBy2,pEy2)'' pd ((pDy0,pEy0);pDy2,pEy2)'' pFy0=:pBy0+((w2q*w2r*w2I)*cos@w2Rx1)*cos@w2Rx1 pFy2=:pBy2-((w2q*w2r*w2I)*cos@w2Rx1)*sin@w2Rx1 pd 'color red' pd ((pBy0,pFy0);pBy2,pFy2)'' pd ((pDy0,pFy0);pDy2,pFy2)'' pd 'aspect 1' pd 'pdf'
...
...
...
load 'plot' pd 'reset' w2Rx2 =:(0{])+((1{])-0{])*(i.@>:%])@(2{]) w2spiral=:(w2m*^@(w2q*]-w2p))(([*cos@]);[*sin@])] NB. ... the dimensions for the plot ... pd 'color gray' w2S=:1.60"_ pd ((-@w2S,w2S); 0 0"_ )'' pd ( 0 0"_ ;(-@w2S,w2S))'' pd 'color black' w2r=:1.2"_ pd ((w2r*cos@]);w2r*sin@]) w2Rx2 0p1 2p1 100 NB. ... the spiral ,,, pd 'color green' w2m=:0.8"_ w2q=:1.5"_ w2p=:1p1%6"_ pd w2spiral w2Rx2 _1.834p1 0.340p1 1500 NB. ... the geometry ... w2A=:w2p+%@w2q*^.@(w2r%w2m) w2I=:0.1p1"_ pAy0=:0"_ pAy1=:0"_ pBy0=:(w2r*cos@])@w2A pBy1=:(w2r*sin@])@w2A pd 'color blue' pd ((pAy0,pBy0);pAy1,pBy1)'' pCy0=:(w2r*cos@])@(w2A+w2I) pCy1=:(w2r*sin@])@(w2A+w2I) pd 'color blue' pd ((pAy0,pCy0);pAy1,pCy1)'' pD0y0=:pBy0-w2r*w2I*sin@w2A pD0y1=:pBy1+w2r*w2I*cos@w2A pd 'color red' pd ((pBy0,pD0y0);pBy1,pD0y1)'' pGy0=:pBy0-(w2r*w2I*sin@])@w2A pGy1=:pBy1 pd 'color pink' pd ((pBy0 ,pGy0);pBy1 ,pGy1)'' pd ((pD0y0,pGy0);pD0y1,pGy1)'' pd 'aspect 1' pd 'pdf'
...
...
...
load 'plot' pd 'reset' x6Rx2 =.(0{])+((1{])-0{])*(i.@>:%])@(2{]) x6spiral=.(x6m*^@(x6q*]-x6p))(([*cos@]);[*sin@])] pd (cos@];sin@]) x6Rx2 0p1 2p1 100 NB. ... a circle at r=1 ... NB. ... p1 ... x6m=.0.855"_ NB. ... m1 ... x6q=.1"_ x6p=.0.00p1"_ pd x6spiral x6Rx2 _2.00p1 0.20p1 1500 x6p=.0.50p1"_ pd x6spiral x6Rx2 _1.50p1 0.70p1 1500 x6p=.1.00p1"_ pd x6spiral x6Rx2 _1.00p1 1.20p1 1500 x6p=.1.50p1"_ pd x6spiral x6Rx2 _0.50p1 1.70p1 1500 NB. ... p2 ... x6m=.1"_ NB. ... m2 ... x6q=.1"_ x6p=.0.049864p1"_ pd x6spiral x6Rx2 _2.00p1 0.20p1 1500 x6p=.0.549864p1"_ pd x6spiral x6Rx2 _1.50p1 0.70p1 1500 x6p=.1.049864p1"_ pd x6spiral x6Rx2 _1.00p1 1.20p1 1500 x6p=.1.549864p1"_ pd x6spiral x6Rx2 _0.50p1 1.70p1 1500 pd 'aspect 1' pd 'pdf'
Download: File:LW02P0000O.ijs
Download: File:LW02P0001K.ijs
Download: File:LW02P0002I.ijs
Download: File:LW02P0003I.ijs
Download: File:LW02P0004H.ijs
Download: File:LW02P0005I.ijs
Download: File:LW02P0006F.ijs
Download: File:LW02P0007G.ijs
Download: File:LW02P0008E.ijs
Download: File:LW02P0009F.ijs
Download: File:LW02P0010J.txt
Download: File:LW02P0011K.ijs
Download: File:LW02P0012C.ijs
Next Page: User:Tom Allen/ta/AddendumW02P01
Prev Page: User:Tom Allen/ta