# 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 *

```

Home  |  News  |  Publications  |  Download  |  Flash
Copyright © Survo Systems 2001-2008. All rights reserved.
Updated 2008-10-20 by webmaster'at'survo.fi.
Best viewed with any browser.