User:Tom Allen/ta/AddendumW03P00

... from WikipediA (Helix 220px-Helix.svg.png) ...

load 'plot'

pd 'reset'

w2Rx2   =:(0{])+((1{])-0{])*(i.@>:%])@(2{])

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 geometry ...

w2A=:0.252709p1
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)''

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.6"_
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)''

pGy0=:pBy0
pGy2=:pBy2+w2Q*w2r*w2I

pd 'color purple'
pd ((pBy0,pGy0);pBy2,pGy2)''

pHy0=:pBy0+((w2Q*w2r*w2I)*cos@w2Rx1)*sin@w2Rx1
pHy2=:pBy2+((w2Q*w2r*w2I)*cos@w2Rx1)*cos@w2Rx1

pd 'color pink'
pd ((pBy0,pHy0);pBy2,pHy2)''
pd ((pGy0,pHy0);pGy2,pHy2)''

pIy0=:pBy0-((w2Q*w2r*w2I)*sin@w2Rx1)*cos@w2Rx1
pIy2=:pBy2+((w2Q*w2r*w2I)*sin@w2Rx1)*sin@w2Rx1

pd 'color red'
pd ((pBy0,pIy0);pBy2,pIy2)''
pd ((pGy0,pIy0);pGy2,pIy2)''

pd 'aspect 1'
pd 'pdf'

---

Download: File:LW03P0000D.txt
Download: File:LW03P0001F.txt
Download: File:LW03P0002C.txt
Download: File:LW03P0003E.txt
Download: File:LW03P0004E.txt
Download: File:LW03P0005C.txt
Download: File:LW03P0006C.txt
Download: File:LW03P0007C.txt
Download: File:LW03P0008C.txt
Download: File:LW03P0009C.txt
Download: File:LW03P0010D.txt
Download: File:LW03P0011C.txt
Download: File:LW03P0012C.txt

---

---

Next Page: User:Tom Allen/ta/AddendumW03P01
Prev Page: User:Tom Allen/ta

---