XProfan

Français

p.specht

chez qui Waffen-Zulassung wird im sog. Beschussamt à einem Nylonfaden une schlanke Holzstange aufgehängte. ses Longueur beträgt 1 m et son Gewicht oui c'est ca 8 kg. chez einem Versuch schlägt 0.2 m sur dem unteren Stangenende une Gewehrkugel de 5 Gramm avec einer Geschwindigkeit de 600 m/s horizontal un et bleibt là stecken. Frage: avec quel Geschwindigkeit et Drehgeschwindigkeit (roue/s) bewegt sich qui Stange pour dem Einschlag, et um welchen Punkt dreht bzw. bewegt vous sich?

Anbei un Programme, cela physikalische Erhaltungsgrößen comment Energie et impulsion bzw. Drehimpuls comme Lösungsformeln verwendet, um verschiedene Szenarien beim Beschuss einer libre hängenden Stange numerisch durchspielen trop peut. aucun Simulation, seulement reine Physik.

Kompilieren Marque Séparation

Titre de la fenêtre upper$("  Stangen-Beschusstest trop NmR 35")
'(CL) CopyLeft 2018-07 by P.Specht, Vienna/EU
Fenêtre 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 vom unteren Stangenende gemessen [m]

REPEAT

    locate 1,1
    imprimer
    imprimer "         Hauteur qui Stange [m]:",format$("%g",lS!):imprimer
    imprimer "            Stangendicke [m]:",format$("%g",dS!):imprimer
    imprimer "           Stangenmasse [kg]:",format$("%g",mS!):imprimer
    imprimer "             Kugelmasse [kg]:",format$("%g",mK!):imprimer
    Imprimer "          Impact speed [m/s]:",format$("%g",vK!):imprimer
    imprimer "         Einschlaghöhe [m_L]:",format$("%g",lE!):imprimer
    imprimer
    imprimer
    imprimer
    imprimer "             impulsion [kg m/s]:                           ",format$("%g",p!):imprimer
    imprimer "       Drehimpuls [kg m^2/s]:                           ",format$("%g",D!):imprimer
    imprimer " Drehgeschwindigkeit [roue/s]:                           ",format$("%g",w!):imprimer
    imprimer "                bzw.   [°/s]:                           ",format$("%g",w!*180/pi()):imprimer
    imprimer "                bzw. [U/min]:                           ",format$("%g",w!*9.549296585514):imprimer
    imprimer
    imprimer
    imprimer " Drehpunkthöhe ü.Schwpkt.[m]:                           ",format$("%g",hPG!):imprimer
    imprimer " v_Translation Schwpkt.[m/s]:                           ",format$("%g",v!):imprimer
    imprimer " Kugelgeschw. n. Stoss [m/s]:                           ",format$("%g",vtK!);
    locate 1,1
    imprimer
    imprimer "         Hauteur qui Stange [m]:",:input x$:cas x$>»:lS!=val(x$):imprimer
    imprimer "            Stangendicke [m]:",:input x$:cas x$>»:dS!=val(x$):imprimer
    imprimer "           Stangenmasse [kg]:",:input x$:cas x$>»:mS!=val(x$):imprimer
    cas (lS!*mS!)=0:continue
    imprimer "             Kugelmasse [kg]:",:input x$:cas x$>»:mK!=val(x$):imprimer
    Imprimer "          Impact speed [m/s]:",:input x$:cas x$>»:vK!=val(x$):imprimer
    imprimer "         Einschlaghöhe [m_L]:",:input x$:cas x$>»:lE!=val(x$):imprimer
    imprimer
    imprimer
    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!

    si nearly(w!,0,4)

        hPG!=0
        vtK!=v!

    d'autre

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

    endif

    imprimer
    imprimer "             impulsion [kg m/s]:",format$("%g",p!):imprimer
    imprimer "       Drehimpuls [kg m^2/s]:",format$("%g",D!):imprimer
    imprimer " Drehgeschwindigkeit [roue/s]:",format$("%g",w!):imprimer
    imprimer "                bzw.   [°/s]:",format$("%g",w!*180/pi()):imprimer
    imprimer "                bzw. [U/min]:",format$("%g",w!*9.549296585514):imprimer
    imprimer
    imprimer
    imprimer " Drehpunkthöhe ü.Schwpkt.[m]:",format$("%g",hPG!):imprimer
    imprimer " v_Translation Schwpkt.[m/s]:",format$("%g",v!):imprimer
    imprimer " Kugelgeschw. n. Stoss [m/s]:",format$("%g",vtK!);
    Waitinput
    cls rgb(170+rnd(86),170+rnd(86),170+rnd(86))

Until %clé=27

FIN

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

28.05.2021 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

p.specht

qui maximale Auslenkung qui obigen Stange peux gemessen volonté, im Umkehrschluß ensuite sur qui Energie qui Gewehrkugel [Joule] geschlossen volonté.

dans qui Praxis verwendet on souvent aussi un d'autre procéder:
Um qui Mündungsgeschwindigkeit Vm einer Gewehrkugel trop ermitteln, wird cet par deux Pappscheiben geschossen, qui im la distance de 50 cm voneinander sur einer gemeinsamen onde avec 1600 Umdrehungen/minute rotieren. cela Geschoß fliegt parallèle zur Drehachse et durchschlägt beide Scheiben. Pour Übereinanderlegen qui Scheibenmarkierungen ergibt sich un Winkel entre den Einschußlöchern de z.B. 15 °. comment grand était Vm?
1 U = 360 ° ==> 1600 U/min / 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'...

29.05.2021 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation