Etonnante réalité mathématique

rem ============================================================================
rem                      Amazing Math Fact
rem ============================================================================
rem Pour obtenir le caractère 3 comme exposant, faire <ALT> + 252
rem ============================================================================

height 0,350 : picture 10 : full_space 10 : print_target_is 10
font_bold 10 : font_size 10,16 : font_name 10,"tahoma" :  font_color 10,0,128,0
caption 0,"Amazing Math Fact"
print : print : print : print "  Etonnante réalité mathématique" : print : print
print string$(10," ") + "1³ + 5³ + 3³ = " + str$(Cube(1) + cube(5) + cube(3)) : print
Print string$(10," ") + "16³ + 50³ + 33³ = " + str$(Cube(16) + cube(50) + cube(33)) : print
Print string$(10," ") + "166³ + 500³ + 333³ = " + str$(Cube(166) + cube(500) + cube(333)) : print
Print string$(10," ") + "1666³ + 5000³ + 3333³ = " + str$(Cube(1666) + cube(5000) + cube(3333)) : print
Print string$(10," ") + "16666³ + 50000³ + 33333³ = " + str$(Cube(16666) + cube(50000) + cube(33333)) : print : print

print "  et ainsi de suite ..."

end
rem ============================================================================
' Fonction retournant le cube de son argument
FNC Cube(n)
    result n*n*n
END_FNC
rem ============================================================================

rem ============================================================================
rem                Une autre équation des Z’Amours
rem ============================================================================
dim xc,yc,x,y
picture 10 : full_space 10 : 2d_target_is 10
xc = width_client(10) / 2 : yc = height_client(10) / 3
caption 0,"<ESC> pour sortir ..."
2d_poly_from xc-200,yc
for x = -2 to 2 step .001
    y = sqr(1-(abs(x)-1)*(abs(x)-1))
    2d_poly_to xc+100*x,yc-100*y
'    display : ' pour suivre le tracé
next x

for x = 2 to -2 step -.001
    y = -2.5*sqr(1-sqr(abs(x)/2))
    2d_poly_to xc+100*x,yc-100*y
'    display : ' pour suivre le tracé
next x
repeat
   2d_flood xc,yc+10,255,000,0 : pause 500
   2d_flood xc,yc+10,255,255,0 : pause 500
until scancode = 27
terminate
rem ============================================================================