|
SLOPEName:
<SUBSET/EXCEPT/FOR qualification> where <x1> is a variable or a parameter containing the x coordinates of the first point; <y1> is a variable or a parameter containing the y coordinates of the first point; <x2> is a variable or a parameter containing the x coordinates of the second point; <y2> is a variable or a parameter containing the y coordinates of the second point; <y> is a variable or a parameter (depending on what the input arguments are) where the computed slope values are stored; and where the <SUBSET/EXCEPT/FOR qualification> is optional.
LET A = SLOPE(X1,Y1,X2,Y2)
skip 25 read convhull.dat x y . let y2 x2 = 2d convex hull y x let xtemp = x2(1) let ytemp = y2(1) let y2 = combine y2 ytemp let x2 = combine x2 xtemp let x3 = x2 let y3 = y2 let n = size y2 let nm1 = n - 1 retain x2 y2 for i = 1 1 nm1 retain x3 y3 for i = 2 1 n let slope = slope(x2,y2,x3,y3) . set write decimals 4 print x2 y2 x3 y3 slopeThe following output is generated --------------------------------------------------------------------------- X2 Y2 X3 Y3 SLOPE --------------------------------------------------------------------------- 0.0000 -2.0000 1.0000 -1.7300 0.2700 1.0000 -1.7300 1.7300 -1.0000 1.0000 1.7300 -1.0000 2.0000 0.0000 3.7037 2.0000 0.0000 1.7300 1.0000 -3.7037 1.7300 1.0000 1.0000 1.7300 -1.0000 1.0000 1.7300 0.0000 2.0000 -0.2700 0.0000 2.0000 -1.0000 1.7300 0.2700 -1.0000 1.7300 -1.7300 1.0000 1.0000 -1.7300 1.0000 -2.0000 0.0000 3.7037 -2.0000 0.0000 -1.7300 -1.0000 -3.7037 -1.7300 -1.0000 -1.0000 -1.7300 -1.0000 -1.0000 -1.7300 0.0000 -2.0000 -0.2700
Date created: 01/23/2013 |