meta data for this page
  •  

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Both sides previous revisionPrevious revision
Next revision		Previous revision
a_mechanik:kippender_besenstiel:gruppenseiten:gruppe305:start [ 8 January 2021 20:36] – codebund chrisnormanstraechea_mechanik:kippender_besenstiel:gruppenseiten:gruppe305:start [ 8 January 2021 21:44] (current) – viviansattler
Line 165: Line 165:
  
 Es ergeben sich dieselben Fehler wie in der Tabelle oben. Es ergeben sich dieselben Fehler wie in der Tabelle oben.
 +Es folgen die Differenzen der Messwerte des zweiten Aufbaus mit und ohne erhöhtem Luftwiderstand: 
 +|                                        |Mittelwertdifferenzen in s    | 
 +|für die Mittelwerte von 5Grad           | 0,014                        | 
 +| für die Mittelwerte von 5Grad          | 0,021                        |  
 +| für die Mittelwerte von 5Grad          | 0,019                        |  
 +|für die Mittelwerte von 5Grad           | 0,03                         |  
 +|für die Mittelwerte von 5Grad           | 0,016                        |  
 +|für die Mittelwerte von 5Grad           | 0,013                        |
 =====Codes===== =====Codes=====
 ImFolgenden wollen wir den Code der numerischen Lösung darstellen, und ebenso die Codes, die wir für unsere Auswertung benutzt haben. ImFolgenden wollen wir den Code der numerischen Lösung darstellen, und ebenso die Codes, die wir für unsere Auswertung benutzt haben.
-<code mathematica [enable_line_numbers="true"] Besenstiel-Numerisch.nb>+<code mathematica [enable_line_numbers="true"] Besenstiel-Numerisch-305.nb>
 Tau[l_, g_] := Sqrt[(2*l)/(3*g)] Tau[l_, g_] := Sqrt[(2*l)/(3*g)]
 g = 9.81; g = 9.81;
Line 188: Line 195:
  
 Danach wird die Fallzeit als jene Funktion definiert, welche sich für das letzte Tupel der Liste, wo also der Stab auf dem Boden liegt, als erster Eintrag ergibt (da die ersten Einträge von "test" die Zeiten sind. Danach wird die Fallzeit als jene Funktion definiert, welche sich für das letzte Tupel der Liste, wo also der Stab auf dem Boden liegt, als erster Eintrag ergibt (da die ersten Einträge von "test" die Zeiten sind.
 +
 +Es folgt der Code für die Gegenüberstellung der Beschleunigungen:
 +<code mathematica [enable_line_numbers="true"] Besenstiel-Beschleunigung-305.nb>
 +d[l_, g_ , list_] := 
 + Table[{list[[k]][[1]], l*Sin[list[[k]][[2]]]/Tau[l, g]^2}, {k, 1, 
 +   Length[list]}];
 +Show[{ListPlot[d[1.45, 9.81, lösung[0.25, 0, 1.45, 0.01]], 
 +   PlotLegends -> {"Beschleunigung der Stabspitze"}], 
 +  Plot[9.81, {x, 0, 0.8}, PlotLegends -> {"Erdbeschleunigung"}, 
 +   PlotStyle -> Pink]}, 
 + PlotLabel -> 
 +  "Fallbeschleunigung einer Punktmasse und Stabspitze im Vergleich", 
 + AxesLabel -> {"t in s", "a in m/s^2"}, ImageSize -> Large]
 +</code>
 +Mit Hilfe der Funktion d werden die Zeiten aus der bereits erstellten Liste "test" extrahiert. Ebenso die Winkel, nur dass diese noch mit Hilfe von Gleichung (1) (s. Anleitung) zu Beschleunigungen umgerechnet werden und mit der Länge des Besenstiels multipliziert werden, um die Punktbeschleunigung am Stielende zu erhalten. Diese Liste wird zusammen mit der konstanten Erdbeschleunigung geplotted.
  
 Nun folgen die sonstigen Codes für Grafiken/Rechnungen: Nun folgen die sonstigen Codes für Grafiken/Rechnungen:
  
-<code mathematica [enable_line_numbers="true"] Besenstiel-Sonstiges-1.nb>+<code mathematica [enable_line_numbers="true"] Besenstiel-Sonstiges-305.nb>
  
 (*Grafik der Fallzeit für verschiedene Zeitschritte:*) (*Grafik der Fallzeit für verschiedene Zeitschritte:*)
Line 297: Line 319:
 plot1 = Show[{p, f, z}, ImageSize -> Large] plot1 = Show[{p, f, z}, ImageSize -> Large]
  
-ab hier__________________+(*Finaler Vergleichsplot*)
  
 p = Plot[{falltime[x, 0, 1.395, 0.001],  p = Plot[{falltime[x, 0, 1.395, 0.001],