Käyttöympäristö tekstin ja numeerisen tiedon luovaan käsittelyyn

Millimetripaperi ja korkeusellipsit

S.Mustonen (1989)

Toimituskenttä:

   1 *
   2 *LINETYPE=[color(0,1,1,0)]
   3 *XDIV=0,1,0 YDIV=0,1,0 SIZE=1000,1000 HEADER= FRAME=0 SCALE=0,1000
   4 *t10=0,1000,100 t5=50,950,100 t=0,1000,10
   5 *eps10=-2,2,1   eps5=-1,1,1   u=0,1000,100
   6 *PLOT Y(u)=t10+eps10        / X-viivat 10 mm, paksuus 5 DEVICE=PS,MMX10.PS
   7 *PLOT Y(u)=t5+eps5          / X-viivat  5 mm, paksuus 3 DEVICE=PS,MMX5.PS
   8 *PLOT Y(u)=t                / X-viivat  1 mm, paksuus 1 DEVICE=PS,MMX1.PS
   9 *PLOT X(u)=t10+eps10,Y(u)=u / Y-viivat 10 mm, paksuus 5 DEVICE=PS,MMY10.PS
  10 *PLOT X(u)=t5+eps5,Y(u)=u   / Y-viivat  5 mm, paksuus 3 DEVICE=PS,MMY5.PS
  11 *PLOT X(u)=t,Y(u)=u         / Y-viivat  1 mm, paksuus 1 DEVICE=PS,MMY1.PS
  12 *........................................................................
  13 *PLOT X(t)=s1*sqrt(-2*log(1-eps))*cos(t), 
  14 *     Y(t)=s2*sqrt(-2*log(1-eps))*sin(t+atn(rho/sqrt(1-rho*rho))) 
  15 *HEADER=[SwissB(18)],Korkeusellipsit
  16 *s1=4 s2=3 rho=0.9 t=0,2*pi pi=3.14159265 eps=0.5,0.9,0.05
  17 *XDIV=1,8,1 YDIV=1,8,1 SIZE=1000,1000
  18 *SCALE=[SwissB(10)],-8(2)8   FRAME=1
  19 *LINETYPE=[line_width(1)]         DEVICE=PS,CONTOUR.PS
  20 *TEXTS=T T=[BOLD],Millimetripaperin_ja_korkeusellipsien_piirto,10,-50
  21 *........................................................................
  22 *PRINT CUR+1,E TO EX.PS 
  23   30
  24 - picture MMX10.PS,400,*
  25 - picture MMX5.PS,400,*
  26 - picture MMX1.PS,400,*
  27 - picture MMY10.PS,400,*
  28 - picture MMY5.PS,400,*
  29 - picture MMY1.PS,400,*
  30 - picture CONTOUR.PS,400,*
  31 E
  32 *

  Hakemisto | Kuvasto | Edellinen | Seuraava