XProfan

Français

p.specht

on denke sich un Gewicht à einer Schnur, qui par un Loch dans einer vertical Platte trop einem quelque chose schwereren contrepoids führt. quelque chose hochtrabend erklärt: qui entstehende Figur ist vom Startort, qui Anfangsgeschwindigkeit (dans x- et dans y-direction) sowie de qui Reibung à qui Platte dépendant. Zum finissons quelque chose länger qui ESC drücken!

Kompilieren Marque Séparation

Titre de la fenêtre "Gravi-Spirograph"'(CL) CopyLeft 2014-03 by P.Specht, vienne
Windowstyle 24:Font 2:Randomiser:Fenêtre 0,0-%maxx,%maxy-40
var xx&=width(%hwnd):var yy&=height(%hwnd):var xh&=xx&\2:var yh&=yy&*0.2'Nullpunktshöhe
set("decimals",15):set("numwidth",30):var g2r!=Pi()/180:var ende&=0

proc point :parameters x!,y!

    usepen 0,1,0:line xh&,0 - xh&,yy&:line 0,yh&-xx&,yh&
    usepen 0,24,rgb(100+rnd(156),100+rnd(156),100+0*rnd(156))
    line xh&+x!,(yh&-y!) - xh&+x!+1,yh&-y!-1

endproc

declare x!,y!,d!,a!,ax!,ay!,vx!,vy!,t!,g!
g!=9.80665' Erdbeschleunigung dans -y direction
t!=0.1' = 1/FPS Simulierter Zeitschritt, 1/FPS = "Echtzeit"
'x!=200:y!=0:vy!=10:vx!=0  'Startpunkt et Initialgeschwindigkeit y=Nach obeb
'x!=200:y!=-100:vy!=8
x!=500:y!=-100:vy!=rnd(12)

repeat

    d!=sqrt(sqr(x!)+sqr(y!))

    si d!>1

        a!=d!*0.0001' Zentripetalbeschleunigung, ici vom la distance linear dépendant
        ax!=-x!/d!
        ay!=-g!/17-y!/d!
        vx!=vx!+ax!/2*t!
        vx!=vx!*(1-0.002*t!)' Dämpfung qui x-Komponente (2%/sek)
        vy!=vy!+ay!/2*t!
        vy!=vy!*(1-0.002*t!)'Dämpfung qui y-Komponente
        x!=x!+vx!*t!
        y!=y!+vy!*t!
        point x!,y!

    endif

    si rnd()<0.01:waitinput 5:cas %clé=27:ende&=1:endif

    until ende&

    end