User:Tom Allen/ta/AddendumW03P00
< User:Tom Allen | ta
Jump to navigation
Jump to search
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