XProfan

English

p.specht

with the arms-registration becomes in the undertow. Beschussamt in a Nylonfaden a slim Holzstange aufgehängte. your length totals 1 m and your weight very 8 kg. with one attempt proposes 0.2 m over the downstairs Stangenende a bullet of 5 gram with of/ one speed of 600 m/s horizontal one and remaining there stick. question: with which speed and Drehgeschwindigkeit (wheel/s) moving the bar to the Einschlag, and circa whom point turn or. moving tappt im dunkeln itself?

enclosed one Program, the physikalische Erhaltungsgrößen How energy and momentum or. Drehimpuls as Lösungsformeln uses, circa different Szenarien at Beschuss of/ one spare hängenden bar numerisch run through to. No Simulation, only pure Physics.

Compile Mark Separation

Window Title upper$("  Stangen-Beschusstest To NmR 35")
'(CL) CopyLeft 2018-07 by P.woodpecker, Vienna/EU
Window Style 24:randomize:font 2
declare p!,mk!,vk!,v!,mS!,D!,lKG!
declare Jm!,dS!,lS!,w!,hPG!,lE!,vtK!,x$
cls rgb(170+rnd(86),170+rnd(86),170+rnd(86))
lS!=1'Stangenhöhe [m]
dS!=0'Stangendicke [m]
mS!=8'Stangengewicht [kg]
mK!=0.005'Kugelgewicht [kg]
vK!=600'Einschlaggeschwindigkeit [m]
lE!=0.2'Einschlaghöhe of downstairs Stangenende measured [m]

REPEAT

    locate 1,1
    print
    print "         Höhe the bar [m]:",stature$("%g",lS!):print
    print "            Stangendicke [m]:",stature$("%g",dS!):print
    print "           Stangenmasse [kg]:",stature$("%g",mS!):print
    print "             Kugelmasse [kg]:",stature$("%g",mK!):print
    Print "          Impact speed [m/s]:",stature$("%g",vK!):print
    print "         Einschlaghöhe [m_L]:",stature$("%g",lE!):print
    print
    print
    print
    print "             momentum [kg m/s]:                           ",stature$("%g",p!):print
    print "       Drehimpuls [kg m^2/s]:                           ",stature$("%g",D!):print
    print " Drehgeschwindigkeit [wheel/s]:                           ",stature$("%g",w!):print
    print "                or.   [°/s]:                           ",stature$("%g",w!*180/pi()):print
    print "                or. [u/mins]:                           ",stature$("%g",w!*9.549296585514):print
    print
    print
    print " Drehpunkthöhe ü.Schwpkt.[m]:                           ",stature$("%g",hPG!):print
    print " v_Translation Schwpkt.[m/s]:                           ",stature$("%g",v!):print
    print " Kugelgeschw. n. thrust [m/s]:                           ",stature$("%g",vtK!);
    locate 1,1
    print
    print "         Höhe the bar [m]:",:input x$:case x$>"":lS!=val(x$):print
    print "            Stangendicke [m]:",:input x$:case x$>"":dS!=val(x$):print
    print "           Stangenmasse [kg]:",:input x$:case x$>"":mS!=val(x$):print
    case (lS!*mS!)=0:continue
    print "             Kugelmasse [kg]:",:input x$:case x$>"":mK!=val(x$):print
    Print "          Impact speed [m/s]:",:input x$:case x$>"":vK!=val(x$):print
    print "         Einschlaghöhe [m_L]:",:input x$:case x$>"":lE!=val(x$):print
    print
    print
    lKG!=lS!/2 - lE!
    p!=mk!*vk!
    v!=p!/(mS!+mK!)
    D!=p!*lKG!
    Jm!=mS!/12*(0.75*dS!+lS!)
    w! = (D!-mk!*v!*lKG!)/Jm!

    if nearly(w!,0,4)

        hPG!=0
        vtK!=v!

    else

        hPG!=v!/w!
        vtK!=w!*(hPG!+lKG!)

    endif

    print
    print "             momentum [kg m/s]:",stature$("%g",p!):print
    print "       Drehimpuls [kg m^2/s]:",stature$("%g",D!):print
    print " Drehgeschwindigkeit [wheel/s]:",stature$("%g",w!):print
    print "                or.   [°/s]:",stature$("%g",w!*180/pi()):print
    print "                or. [u/mins]:",stature$("%g",w!*9.549296585514):print
    print
    print
    print " Drehpunkthöhe ü.Schwpkt.[m]:",stature$("%g",hPG!):print
    print " v_Translation Schwpkt.[m/s]:",stature$("%g",v!):print
    print " Kugelgeschw. n. thrust [m/s]:",stature$("%g",vtK!);
    Waitinput
    cls rgb(170+rnd(86),170+rnd(86),170+rnd(86))

Until %key=27

END

XProfan 11
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...

05/28/21 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

p.specht

The maximum Auslenkung the obigen bar can measured go, in the Umkehrschluß then on The energy the bullet [Joule] closed go.

in the practice uses one often too one other take action:
around the Mündungsgeschwindigkeit Vm of/ one bullet To detect, becomes these through two Pappscheiben shut, The in the stood off of 50 cm voneinander on of/ one joint Welle with 1600 Umdrehungen/Minute rotate. the Geschoß fly parallel to Drehachse and durchschlägt both Scheiben. After Übereinanderlegen the Scheibenmarkierungen yields itself one Winkel between whom Einschußlöchern of z.B. 15 °. How big was Vm?
1 u = 360 ° ==> 1600 u/mins / 60 = 26 2/3 u/s = 9600 °/s
15 ° / 50 cm = 30°/m, ==> 9600 °/s // 30°/m = 320 m/s = Vm

Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...

05/29/21 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote