User:Tom Allen/ta/AddendumW02P00

From J Wiki
Jump to navigation Jump to search


GW02P0000O.jpg


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'


JW02P0000C.png


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'


JW02P0001E.png


GW02P0001K.jpg


GW02P0002I.jpg


GW02P0003I.jpg


GW02P0004H.jpg


GW02P0005I.jpg


GW02P0006F.jpg


GW02P0007G.jpg


GW02P0008E.jpg


GW02P0009F.jpg


...
...
...


GW02P0010J.png


GW02P0011K.jpg


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'


JW02P0002D.png


...
...
...


GW02P0012C.jpg


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'


JW02P0003C.jpg



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