meta data for this page
Differences
This shows you the differences between two versions of the page.
Both sides previous revisionPrevious revisionNext revision | Previous revision | ||
a_mechanik:kippender_besenstiel:gruppenseiten:gruppe325:start [15 January 2021 18:19] – [Vergleich der Beschleunigung von frei fallender Punktmasse und Punktmasse des Stabendes] lindawagner | a_mechanik:kippender_besenstiel:gruppenseiten:gruppe325:start [28 January 2021 20:39] (current) – hannahrohkamm | ||
---|---|---|---|
Line 137: | Line 137: | ||
Um den Einfluss der Luftreibung auf die Falldauer zu untersuchen, | Um den Einfluss der Luftreibung auf die Falldauer zu untersuchen, | ||
- | Dazu wickeln | + | Dazu befestigen |
Nun ermitteln wir mit dem gleichen Verfahren wie vorher die Fallzeit des Besenstiels. | Nun ermitteln wir mit dem gleichen Verfahren wie vorher die Fallzeit des Besenstiels. | ||
Wir erhalten die folgenden Werte: | Wir erhalten die folgenden Werte: | ||
- | ^ angepeilter Winkel: | | + | ^ Messung mit Luftsegel: |
- | | | Winkel in ° | Zeit in s | Winkel in ° | Zeit in s | Winkel in ° | Zeit in s | Winkel in ° | Zeit in s | Winkel in ° | Zeit in s | Winkel in ° | Zeit in s | | + | | |
- | | | 10,31 | + | | |
- | | | 9,83 | 1,113 | + | | |
- | | | 9,42 | + | | |
- | | | 9,88 | 0,982 | + | | Mittelwert |
- | | | 9,53 | 1,071 | + | | Standardabw. |
- | | Mittelwert | + | | Standarfehl. |
- | | Standardabweichung | + | | |
- | | Standardfehler | + | | | 55,78 | 0,402 | |
+ | | | ||
+ | | Mittelwert | ||
+ | | Standardabw. | ||
+ | | Standarfehl. | ||
+ | | | ||
+ | | | 50,72 | 0,435 | | ||
+ | | | ||
+ | | Mittelwert | ||
+ | | Standardabw. | ||
+ | | Standarfehl. | ||
+ | | | 31,2 | ||
+ | | | 30,7 | 0,638 | | ||
+ | | | 27,9 | ||
+ | | Mittelwert | ||
+ | | Standardabw. | ||
+ | | Standarfehl. | ||
+ | | | 16,85 | 0,851 | | ||
+ | | | 17,39 | 0,831 | ||
+ | | | ||
+ | | Mittelwert | ||
+ | | Standardabw. | ||
+ | | Standarfehl. | ||
+ | | | 7,4 | 1,181 | ||
+ | | | ||
+ | | | 9,58 | ||
+ | | Mittelwert | ||
+ | | Standardabw. | ||
+ | | Standarfehl. | ||
Diese Werte unterscheiden sich nur wenig von den zuvor ermittelten Werten. | Diese Werte unterscheiden sich nur wenig von den zuvor ermittelten Werten. | ||
Line 165: | Line 193: | ||
<code Wolfram Mathematica 12.0 > | <code Wolfram Mathematica 12.0 > | ||
- | In[1]:= τ:= 0.298825; "Φ0:= 0.25"; Φ´[0]= 0;Δt:= 0.01; | + | l= 1.45;g= 9.81;τ = Sqrt[(2 l)/(3 g)]; |
- | In[2]:= Φ´´[0]:= Sin[Φ0]/ | + | Φ[0]=0.25; Φ´[0]= 0;Φ´´[0]= Sin[Φ[0]]/(τ^2); |
+ | Δt= 0.01; | ||
- | In[3]:= Φ´[Δt]= Φ´[0]+Δt*Φ´´[0] | + | f[ϕ0_]:= |
+ | Module[{Φ0=ϕ0}, | ||
+ | Φ[0]=Φ0; | ||
- | In[4]:= Φ[Δt]= Φ0 +Δt*Φ´[Δt] | + | Catch[For[n=1,Φ[n-1]<= N[Pi/2],n++, |
- | + | Φ´[n]=Φ´[n-1]+Δt*Φ´´[n-1]; | |
- | In[5]: | + | Φ[n]= Φ[n-1] +Δt*Φ´[n]; |
- | + | Φ´´[n]= Sin[Φ[n-1]]/(τ^2); | |
- | In[6]: | + | list=Append[{},{Φ[n],n*Δt}]; |
- | + | If[Φ[n]>N[Pi/2],Throw[(n-1)*Δt]] | |
- | In[7]: | + | ]] |
- | + | ] | |
- | In[8]: | + | |
- | + | ||
- | In[9]:= Plot[(Length[Select[list,#< | + | |
- | + | ||
- | In[10]:= Φ0= Insert; | + | |
- | + | ||
- | In[11]:= (Length[Select[list,#< | + | |
+ | Plot[f[ϕ0], | ||
</ | </ | ||