{VERSION 2 3 "IBM INTEL NT" "2.3" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 }{CSTYLE "" -1 256 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 } {CSTYLE "" -1 257 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 258 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 259 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 260 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 } {CSTYLE "" -1 261 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 262 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 263 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 264 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 } {CSTYLE "" -1 265 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 266 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 267 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 268 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Heading 1" -1 256 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 2 2 2 2 1 1 1 }3 1 0 0 8 4 1 0 1 0 2 2 0 1 }{PSTYLE "" 0 257 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 256 "" 0 "" {TEXT -1 0 "" }}{PARA 256 "" 0 "" {TEXT -1 75 "Spektrale Leistungsdichte eines einzelnen, unsymmetrische n Rechteckimpulses" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 257 "" 0 " " {TEXT -1 98 "Dipl.- Ing. Bj\366rnstjerne Zindler, M.Sc. , Erstellt: \+ 25. Juni 2014 - Letzte Revision: 26. Juni 2014" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 " restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 256 107 "Definition des Rechteckimpulses (aus de r Fourieranalyse von Heaviside( tau + 0,5 ) - Heaviside( tau - 1 ) )" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 327 "expr_sum:=-(-.2500000000 -.4501581580*cos(1/2*Pi*tau)-.3183098862*cos(Pi*tau)-.1500527193*cos(3 /2*Pi*tau)+.9003163160e-1*cos(5/2*Pi*tau)+.1061032954*cos(3*Pi*tau)+.6 430830826e-1*cos(7/2*Pi*tau)-.5001757310e-1*cos(9/2*Pi*tau)-.636619772 0e-1*cos(5*Pi*tau)):plot(expr_sum,tau=-2..2,numpoints=2000,axes=boxed, thickness=2,color=red);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "# " }}}{EXCHG {PARA 0 "" 0 "" {TEXT 257 47 "Definition einer zeitvariant en Rechteckfunktion" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 288 "exp r_sum_t:=-(-.2500000000-.4501581580*cos(1/2*Pi*(tau+t))-.3183098862*co s(Pi*(tau+t))-.1500527193*cos(3/2*Pi*(tau+t))+.9003163160e-1*cos(5/2*P i*(tau+t))+.1061032954*cos(3*Pi*(tau+t))+.6430830826e-1*cos(7/2*Pi*(ta u+t))-.5001757310e-1*cos(9/2*Pi*(tau+t))-.6366197720e-1*cos(5*Pi*(tau+ t))):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 258 60 "Berechnung der zeitlich limitierten Autokorrel ationsfunktion" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "AKF_unlim :=1/(2*T)*int(expr_sum*expr_sum_t,tau=-T..+T):" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 259 62 "Bere chnung der zeitlich unlimitierten Autokorrelationsfunktion" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "AKF:=limit(AKF_unlim,T=infinity):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 260 75 "Berechnung der zeitlich limitierten Funktion der Spek tralen Leistungsdichte" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "S LD_unlim:=1/sqrt(2*Pi)*int(AKF*exp(-I*omega*t),t=-T..T):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 261 64 "Realanteil der komplexen Funktion der Spektralen Leistungsgich te" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "Re_SLD_unlim:=evalc(R e(SLD_unlim)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}} {EXCHG {PARA 0 "" 0 "" {TEXT 262 68 "Imagin\344ranteil der komplexen F unktion der Spektralen Leistungsdichte" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "Im_SLD_unlim:=evalc(Im(SLD_unlim)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 263 61 "Berechnung der realen Funktion der Spektralen Leistungsdichte" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "Betrag_SLD_unlim:=Re_SLD_unl im^2+Im_SLD_unlim^2:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" } }}{EXCHG {PARA 0 "" 0 "" {TEXT 264 45 "Auswahl ders zeitlichen Betrach tungsintervall" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "T:=30:" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "" 0 " " {TEXT 265 94 "Grafische Darstellung der Spektralen Leistungsdichte d es oben synthetisierten Rechteckimpulses" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 87 "plot(Betrag_SLD_unlim,omega=0.1..6*Pi,numpoints=2000, axes=boxed,thickness=2,color=red);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 268 118 "Grafische Darstellung der Spektralen Leistungsdichte des oben synthetisierten Rechteckimpulses ( reduzierte Ordinate )" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 95 "plot(Betrag_SLD_unlim,omega=0.1..6* Pi,0..0.02,numpoints=2000,axes=boxed,thickness=2,color=red);" }}} {EXCHG {PARA 0 "" 0 "" {TEXT 267 45 "Auswahl ders zeitlichen Betrachtu ngsintervall" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "T:=5000:" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "" 0 " " {TEXT 266 119 "Grafische Darstellung der Spektralen Leistungsdichte \+ des oben synthetisierten Rechteckimpulses (Ordinate logarithmisch)" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 98 "plot(ln(Betrag_SLD_unlim)/l n(10),omega=0.1..6*Pi,numpoints=2000,axes=boxed,thickness=2,color=red) ;" }}}}{MARK "0 3 0" 87 }{VIEWOPTS 1 1 0 1 1 1803 }