XProfan

Titre de la fenêtre "Kaleidoskop-Berechnung"
'Versuchsprogramm, pas très en détails getestet: OHNE JEDE GEWÄHR!
Fenêtre Style 24
Déclarer b!,d!,n&,ZyDm!,r!,w$

Repeat

    CLS
    font 0
    sound 4000,30
    imprimer "\n dans une Zylinder avec gegebenem Innenradius r devoir n Spiegel (n>2)"
    imprimer " qui Dicke d trop einem KALEIDOSKOP eingepasst volonté. Gesucht ist qui "
    imprimer " Spiegelbreite b des normal (avec 90°) abgekanteten Glases chez qui "
    imprimer " gewünschten Spiegelanzahl, gegebenem Innendurchmesser des Zylinders ZyDm"
    imprimer " et bekannter Dicke D des Spiegelglases.\n\n Formel:\n"
    imprimer " b = 2*sin(Pi/N)*(d*cos(pi-pi/N) + Sqrt(d^2*(sin(Pi-Pi/N))^2+(ZyDm/2)^ 2)) \n"
    font 2
    imprimer "\n Zylinder-Innendurchmesser ZyDm [mm] = ";format$("%g",ZyDm!);"          "
    imprimer "\n Spiegeldicke d [mm] = ";format$("%g",d!);"           "
    imprimer "\n Anzahl Spiegel n = ";n&;"    "
    locate %csrlin-6,1
    imprimer "\n Zylinder-Innendurchmesser ZyDm [mm] = ";:input w$:cas w$>»:ZyDm!=val(w$)
    locate %csrlin-2,1
    imprimer "\n Zylinder-Innendurchmesser ZyDm [mm] = ";format$("%g",ZyDm!);"          "
    imprimer "\n Spiegeldicke d [mm] = ";:input w$:cas w$>»:d!=val(w$)
    locate %csrlin-2,1:imprimer "\n Spiegeldicke d [mm] = ";format$("%g",d!);"           "
    imprimer "\n Anzahl Spiegel n = ";:input w$:cas w$>»:n&=val(w$)
    locate %csrlin-2,1:imprimer "\n Anzahl Spiegel n = ";n&;"    "
    cas (zydm!<=0) or (n&<=2) or (d!<=0) or (d!>=zydm!):continue

    si (sqr(d!)*sqr(sin(pi()-pi()/N&))+sqr(ZyDm!/2))>=0

        b! = 2*sin(Pi()/N&)*(d!*cos(pi()-pi()/N&) + Sqrt(sqr(d!)*sqr(sin(pi()-pi()/N&))+sqr(ZyDm!/2)))
        imprimer "\n\n qui Spiegelbreite sollte betragen: ";format$("######0.#####",b!);" [mm]"
        sound 400,60

    D'autre

        imprimer " Solution négative!":sound 80,333

    endif

    waitinput 10000

UNTIL %Key=27

FIN