{* Поверхность вращения *}

REM basic

' Поверхность вращения функции у = 1/1+х


SCREEN 9
LINE (0, 175) - (640, 175), 15 
LINE (320, 0) - (320, 350), 15 
DEF FNY(X) = 1/(1+хл2)
For X = 320 ТО 640 Step 5
Y = 175 - 30*FNY((X - 320)/30)
CIRCLE (X, 175), 175 - Y, 15,,,3 Next X End