4/3. feladat feszültségeloszlások

Logaritmikus ϑ(r) esetén

σrlog[r_]:=36.36 Log[r]-142.51+(13440/(r^2))
σθlog[r_]:=36.36 Log[r]-106.16-(13440/(r^2))

Lineáris (közelítő) ϑ(r) esetén

σrlin[r_]:=0.84 r-39.2+(8960/(r^2))
σθlin[r_]:=1.68 r-39.2-(8960/(r^2))

Plot[{σrlog[r],σrlin[r]},{r,20,40},PlotLegends->{"(Subscript[σ, r])(r) logaritmikus ϑ(r) esetén","(Subscript[σ, r])(r) lineáris ϑ(r) esetén"},AxesLabel->{"r [mm]","(Subscript[σ, r]) [MPa]"},ImageSize->400]

Plot[{σθlog[r],σθlin[r]},{r,20,40},PlotLegends->{"(Subscript[σ, θ])(r) logaritmikus ϑ(r) esetén","(Subscript[σ, θ])(r) lineáris ϑ(r) esetén"},AxesLabel->{"r [mm]","(Subscript[σ, θ]) [MPa]"},ImageSize->400]

Az eltérés MPa-ban:

Plot[{σrlog[r]-σrlin[r],σθlog[r]-σθlin[r]},{r,20,40},PlotLegends->{"(Subscript[σ, r])(r) hibája","(Subscript[σ, θ])(r) hibája"},Filling->Axis,PlotRange->5,AxesLabel->{"r [mm]","\!\(\*SubsuperscriptBox[\(σ\), \(r, θ\), \(log - lin\\ hiba\)]\)[MPa]"},ImageSize->400]