Environment for creative processing of text and numerical data

Graph paper and contour ellipses

S.Mustonen (1989)

Edit field:

   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 lines 10 mm, thickn. 5 DEVICE=PS,MMX10.PS
   7 *PLOT Y(u)=t5+eps5          / X lines  5 mm, thickn. 3 DEVICE=PS,MMX5.PS
   8 *PLOT Y(u)=t                / X lines  1 mm, thickn. 1 DEVICE=PS,MMX1.PS
   9 *PLOT X(u)=t10+eps10,Y(u)=u / Y lines 10 mm, thickn. 5 DEVICE=PS,MMY10.PS
  10 *PLOT X(u)=t5+eps5,Y(u)=u   / Y lines  5 mm, thickn. 3 DEVICE=PS,MMY5.PS
  11 *PLOT X(u)=t,Y(u)=u         / Y lines  1 mm, thickn. 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)],Contour_ellipses
  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],Plotting_a_graph_paper_and_contour_ellipses,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 *

  Index | Catalog | Previous | Next