XProfan

Window Title "Kaleidoskop-Berechnung"
'Versuchsprogramm, not very in detail tested: OHNE EACH GEWÄHR!
Window Style 24
Declare b!,d!,n&,ZyDm!,r!,w$

Repeat

    CLS
    font 0
    sound 4000,30
    print "\n In a Zylinder with gegebenem Innenradius r should n mirror (n>2)"
    print " the fat d to a KALEIDOSKOP eingepasst go. sought is the "
    print " Spiegelbreite b the normal (with 90°) abgekanteten Glases with the "
    print " desired Spiegelanzahl, gegebenem Innendurchmesser the Zylinders ZyDm"
    print "And known fat D the Spiegelglases.\n\n Formel:\n"
    print " b = 2*sin(Pi/n)*(d*cos(pi-pi/n) + Sqrt(d^2*(sin(Pi-Pi/n))^2+(ZyDm/2)^2)) \n"
    font 2
    print "\n Zylinder-Innendurchmesser ZyDm [mm] = ";stature$("%g",ZyDm!);"          "
    print "\n Spiegeldicke d [mm] = ";stature$("%g",d!);"           "
    print "\n amount mirror n = ";n&;"    "
    locate %csrlin-6,1
    print "\n Zylinder-Innendurchmesser ZyDm [mm] = ";:input w$:case w$>"":ZyDm!=val(w$)
    locate %csrlin-2,1
    print "\n Zylinder-Innendurchmesser ZyDm [mm] = ";stature$("%g",ZyDm!);"          "
    print "\n Spiegeldicke d [mm] = ";:input w$:case w$>"":d!=val(w$)
    locate %csrlin-2,1:print "\n Spiegeldicke d [mm] = ";stature$("%g",d!);"           "
    print "\n amount mirror n = ";:input w$:case w$>"":n&=val(w$)
    locate %csrlin-2,1:print "\n amount mirror n = ";n&;"    "
    case (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)))
        print "\n\n The Spiegelbreite ought to total: ";stature$("######0.#####",b!);" [mm]"
        sound 400,60

    Else

        print " Solution negative!":sound 80,333

    endif

    waitinput 10000

UNTIL %Key=27

END