XProfan

Título de la ventana "Kaleidoskop-Berechnung"
'Versuchsprogramm, no muy ausführlich getestet: OHNE JEDE GEWÄHR!
Ventana de Estilo 24
Declarar b!,d!,n&,ZyDm!,r!,w$

Repeat

    CLS
    font 0
    sound 4000,30
    imprimir "\n In una Zylinder con gegebenem Innenradius r debería n Spiegel (n>2)"
    imprimir " el Dicke d a una KALEIDOSKOP eingepasst voluntad. Gesucht Es el "
    imprimir " Spiegelbreite b des normal (con 90°) abgekanteten Glases en "
    imprimir " deseado Spiegelanzahl, gegebenem Innendurchmesser des Zylinders ZyDm"
    imprimir " y bekannter Dicke D des Spiegelglases.\n\n Formel:\n"
    imprimir " b = 2*sin(Pi/N)*(d*cos(pi-pi/N) + Sqrt(d^2*(sin(Pi-Pi/N))^2+(ZyDm/2)^2)) \n"
    font 2
    imprimir "\n Zylinder-Innendurchmesser ZyDm [mm] = ";format$("%g",ZyDm!);"          "
    imprimir "\n Spiegeldicke d [mm] = ";format$("%g",d!);"           "
    imprimir "\n Anzahl Spiegel n = ";n&;"    "
    locate %csrlin-6,1
    imprimir "\n Zylinder-Innendurchmesser ZyDm [mm] = ";:input w$:caso w$>"":ZyDm!=val(w$)
    locate %csrlin-2,1
    imprimir "\n Zylinder-Innendurchmesser ZyDm [mm] = ";format$("%g",ZyDm!);"          "
    imprimir "\n Spiegeldicke d [mm] = ";:input w$:caso w$>"":d!=val(w$)
    locate %csrlin-2,1:imprimir "\n Spiegeldicke d [mm] = ";format$("%g",d!);"           "
    imprimir "\n Anzahl Spiegel n = ";:input w$:caso w$>"":n&=val(w$)
    locate %csrlin-2,1:imprimir "\n Anzahl Spiegel n = ";n&;"    "
    caso (zydm!<=0) or (n&<=2) or (d!<=0) or (d!>=zydm!):continue

    if (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)))
        imprimir "\n\n El Spiegelbreite debería betragen: ";format$("######0.#####",b!);" [mm]"
        sound 400,60

    Más

        imprimir " Solución negativo!":sound 80,333

    endif

    waitinput 10000

UNTIL %Key=27

FIN