A01 Mie-Streuung

<< Graphics`Graphics`

<< NumericalMath`PolynomialFit`

<< Statistics`LinearRegression`

<< Graphics`MultipleListPlot`

q-Wert Berechnung:

V = 2.3 10^3; r = 5 10^-3; ν = 463; 
    qm = 43 10^-3; δqm = 31/43;

qz = qm V/(π r ν)^2

δV = 0.2/V; δν = 5/ν;

Sqrt[δV^2 + 2 δν^2 + δqm^2] qz

a-Wert Berechnung

U = 20 ; r = 5 10^-3; ν = 300; 
    qm = 8.7 10^-3; δqm = 1.3/8.7;

az = 2 qm U/(π r ν)^2

δU = 0.1/U; δν = 5/ν;

Sqrt[δU^2 + 2 δν^2 + δqm^2] az

Verdampfungsparameterbestimmung

\(SWert1 = 
      ReadList["D:/studium/5. Fachsemester/FP A/A01/verdampfung.txt", {Real, Real}]\)

SWert = 
      Replace[SWert1, {de_, 
            dg_} -> {dg 10^-3, (de/2 10^-6)^2}, 
        2]

SWert2 = 
        Replace[SWert, {da_, db_} -> {da, db, 1 (10^-6)^2}, 
          2];

Regress[SWert, {1, x}, x]

b = -2.4542292065072337`*^-12; Δb = 
      6.165495462206096`*^-14; 
    a = 5.749605321745345`*^-10; Δa = 
      5.471910933275471`*^-12;

DisplayTogether[
      Plot[{b x  + a,  (b +  Δb) x + 
            a + Δa, (b - Δb) x + 
            a - Δa}, {x, 0, 180}, 
        PlotStyle -> {Dashing[{ .0}], Dashing[{0.01}], 
            Dashing[{ .01}]}], ErrorListPlot[SWert2], ImageSize -> 550, 
      AxesLabel -> {t/s, R^2/m^2}]