>>#Start
>>Def Input
>>Input=geometry set: geometry set A
>>Set A: confirm surface type: confirm
>>Set A as global group: group type prompt elements
>>SurfaceType:SurfaceType True
>>x=0:2pi
>>y=0:pi/2
>>(x^2)/A +(y^2)/B = q
>>def q:constant
>>q=0:1
>> # surface variations in A
>>ASet:Set change x
>>ASet:Set change y
>>(x^2) to x:
>>(y^2)to y:
>>detx^2 dety^2
>>setSelection change x x1 y1 y2:
>>x to x1 to y1 to y2
>>SetVariable surface A:A True
>>Hyperbola:Ellipse:Saddle
>>Start group 10th element in grid
>>End group 100th element in grid
>>End