您所在位置：主题：椭圆以及斜椭圆
ljxh401
[专家分：200] 发布于 2004-03-19 09:19:00
DIM rate AS SINGLE
DIM jiao AS SINGLE
DIM r AS INTEGER
DIM i1 AS SINGLE
DIM x
DIM y
DIM x1
DIM y1
CLS
INPUT " Banjing:", r
INPUT " Bili:", rate
INPUT " Shuan zhuan jiao du:", jiao
SCREEN 12
FOR i1 = 0 TO 6.283 STEP .001
x = r * COS(i1)
y = r * rate * SIN(i1)
PSET (320 + x, 240 + y), 1 '椭圆
x1 = x * COS(jiao) - y * SIN(jiao) '旋转变换矩阵为*1
y1 = x * SIN(jiao) + y * COs(jiao)
PSET (320 + x1, 240 + y1), 1 '旋转之后的椭圆
NEXT i1
'*1 ( cos(jiao) sin(jiao) 0 )
' ( -sin(jiao) cos(jiao) 0 )
' ( 0 0 1 )
DIM jiao AS SINGLE
DIM r AS INTEGER
DIM i1 AS SINGLE
DIM x
DIM y
DIM x1
DIM y1
CLS
INPUT " Banjing:", r
INPUT " Bili:", rate
INPUT " Shuan zhuan jiao du:", jiao
SCREEN 12
FOR i1 = 0 TO 6.283 STEP .001
x = r * COS(i1)
y = r * rate * SIN(i1)
PSET (320 + x, 240 + y), 1 '椭圆
x1 = x * COS(jiao) - y * SIN(jiao) '旋转变换矩阵为*1
y1 = x * SIN(jiao) + y * COs(jiao)
PSET (320 + x1, 240 + y1), 1 '旋转之后的椭圆
NEXT i1
'*1 ( cos(jiao) sin(jiao) 0 )
' ( -sin(jiao) cos(jiao) 0 )
' ( 0 0 1 )
