{VERSION 5 0 "HP RISC UNIX" "5.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 256 1 {CSTYLE "" -1 -1 "Helvetica" 1 18 0 0 0 0 0 0 0 0 0 0 0 0 0 1 } 3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 257 1 {CSTYLE "" -1 -1 " Helvetica" 1 18 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 258 1 {CSTYLE "" -1 -1 "Helvetica" 1 18 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 78 "restart:\nwith(stats ): with(fit): with(describe): with(plots): with(plottools):" }}} {EXCHG {PARA 256 "" 0 "" {TEXT -1 40 "Zeitabh\344ngigkeit des CPI f \374r Deutschland" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 90 "Jahre := [1982.5, 1990, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 79 "CPIs := [8.14, 8.13, 8.14, 8.27, 8.23, 7.9, 8.0, 7.6, 7.4, 7.3, 7.7, 8.2, 8.2]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "Paare := seq([Jahre[i], CPIs[i]], i=1..nops(CPIs)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 194 "display([plot([[1980, 8.14], Paare ], Jahr=1980..2006, style=line, thickness=2),\nseq(ellipse(Paare[i], 0 .2, 0.015, filled=true, color=blue), i=1..nops(CPIs))], xtickmarks=10, labels=[Jahr, CPI]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 67 "Ge rade := rhs(fit[leastsquare[[Jahr, Korruption]]]([Jahre, CPIs])):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 251 "display([plot(Gerade, Jahr= 1980..2005, color=green, thickness=3),\nplot([[1980, 8.14], Paare], Ja hr=1980..2004, style=line, thickness=2),\nseq(ellipse(Paare[i], 0.2, 0 .015, filled=true, color=blue), i=1..nops(CPIs))], xtickmarks=10, labe ls=[Jahr, CPI]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "linearc orrelation(Jahre, CPIs);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "evalf(180*arccos(%)/Pi);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 121 "evalf(fit[leastsquare[[Jahr, Korruption], Korruption=a*Jahr^2 + b *Jahr + c, \{a,b,c\}]]([Jahre, CPIs])):\nParabel := rhs(%);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 232 "display([plot(Parabel, Jahr =1980..2006, color=green, thickness=3),\nplot([[1980, 8.14], Paare], J ahr=1980..2006, style=line, thickness=2),\nseq(ellipse(Paare[i], 0.2, \+ 0.015, filled=true, color=blue), i=1..nops(CPIs))], xtickmarks=10);" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 132 "evalf(fit[leastsquare[[Ja hr, Korruption], Korruption=a*Jahr^3 + b*Jahr^2 + c*Jahr + d, \{a,b,c, d\}]]([Jahre, CPIs]));\nKubik := rhs(%):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 230 "display([plot(Kubik, Jahr=1980..2003, color=green, t hickness=3),\nplot([[1980, 8.14], Paare], Jahr=1980..2004, style=line, thickness=2),\nseq(ellipse(Paare[i], 0.2, 0.015, filled=true, color=b lue), i=1..nops(CPIs))], xtickmarks=10);" }}}{EXCHG {PARA 257 "" 0 "" {TEXT -1 37 "Vergleich Europawahl/Gemeinderatswahl" }{MPLTEXT 1 0 0 " " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 107 "Ergebnisse := [[\"CDU \", 38.14, 40.41], [\"SPD\", 28.91, 33.38], [\"Gruene\", 14.72, 10.19] ,[\"FDP\", 5.86, 3,43]]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "Euro := [seq(Ergebnisse[i][2], i=1..4)]:" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 38 "GR := [seq(Ergebnisse[i][3], i=1..4)]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "Paare := [seq(Ergebnisse[i][2..3], \+ i=1..4)]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 106 "plots[display ](seq(plottools[ellipse](Paare[i], 0.3, 0.6, filled=true, style=patch, color=blue), i=1..4));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 " Gerade := rhs(fit[leastsquare[[EU, MA]]]([Euro, GR]));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 156 "plots[display](plot(Gerade, EU=0.. 50, thickness=3, color=green),\nseq(plottools[ellipse](Paare[i], 0.3, \+ 0.6, filled=true, style=patch, color=blue), i=1..4));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "linearcorrelation(Euro, GR);\nevalf (180/Pi*arccos(%));" }}}{EXCHG {PARA 258 "" 0 "" {TEXT -1 60 "Korrelat ionskoeffizienten bei deterministischem Zusammenhang" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 116 "for n in [5, 10, 20, \+ 50, 100, 200, 500, 1000] do\nevalf(linearcorrelation([$1..n], [seq(eva lf(sin(i)), i=1..n)]))\nod;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 113 "for n in [5, 10, 20, 50, 100, 200, 500, 1000] do\nevalf(linearcor relation([$1..n], [seq(evalf(i^2), i=1..n)]))\nod;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 294 "setoptions(resoluti on=600, axesfont=[HELVETICA,7], labelfont=[HELVETICA,7], font=[HELVETI CA,7]);\nsetoptions3d(axesfont=[HELVETICA,7], labelfont=[HELVETICA,7], font=[HELVETICA,7]);\nplotsetup(ps,plotoutput=`C:\\\\texte\\\\HM\\\\A bb17-20.ps`,plotoptions=`portrait,noborder,color,height=250,width=400` );\n" }}}}{MARK "0 0 0" 9 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 } {PAGENUMBERS 0 1 2 33 1 1 }