{VERSION 3 0 "IBM INTEL NT" "3.0" } {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 1 0 0 0 0 0 0 0 0 } {CSTYLE "" -1 257 "" 1 14 0 0 0 0 1 0 0 0 0 0 0 0 0 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 256 1 {CSTYLE "" -1 -1 "" 1 24 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 }{PSTYLE "" 0 257 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 258 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 1 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 260 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 1 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 262 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 1 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 263 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 1 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 264 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 1 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 265 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 1 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 256 "" 0 "" {TEXT -1 18 "Lineare Regression" } {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 257 "" 0 "" {TEXT -1 224 "Die folgen de besteht aus Quadrupeln, deren erstes Element jeweils das Bruttosozi alprodukt pro Einwohner (in US-$) eines Staats f\374r 1997 angibt; das zweite ist die prozentuale Steigerung gegen\374ber dem Vorjahr, die d ritte der " }{TEXT 256 29 "Corruption Perceivment Index " }{TEXT -1 37 "f\374r 1999 und die vierte der f\374r 2000." }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 2169 "Liste := [[1200, +2.8, 3.3, 3.1],\n[760, +2. 2, 2.3, unbekannt],\n[8950, +4.2, 3.0, 3.5],\n[560, -10.7, 2.5, 2.5], \n[510, -16.0, 1.7, 1.5],\n[20650, +2.4, 8.7, 8.3],\n[26730, +1.3, 5.3 , 6.1],\n[970, +2.0, 2.5, 2.7],\n[3310, +1.3, 6.1, 6,0],\n[4790, +1.9, 4.1, 3.9],\n[4820, +6.4, 6.9, 7.4],\n[860, +10.0, 3.4, 3.1],\n[2680, \+ +2.3, 5.1, 5.4],\n[710, +0.9, 2.6, 2.7],\n[34890, +2.5, 10.0, 9.8],\n [28280, +0.7, 8.0, 7.6],\n[1570, +0.9, 2.4, 2.6],\n[1810, +3.5, 3.9, 4 .1],\n[3360, -2.8, 5.7, 5.7],\n[24790, +0.9, 9.8, 10.0],\n[26300, +1.0 , 6.6, 6.7],\n[860, -14.9, 2.3, unbekannt],\n[390, +1.4, 3.3, 3.5],\n[ 11640, +1.0, 4.9, 4,9],\n[20870, +1.9, 8.6, 8.7],\n[1580, +1.5, 3.2, u nbekannt],\n[740, +1.0, 1.8, unbekannt],\n[25200, +3.3, 7.7, 7.7],\n[3 70, +4.3, 2.9, 2.8],\n[1110, +5.9, 1.7, 1.7],\n[17790, +5.6, 7.7, 7.2] ,\n[16180, +2.6, 6.8, 6.6],\n[20170, +1.0, 4.7, 4.6],\n[1550, +0.8, 3. 8, unbekannt],\n[38160, +1.4, 6.0, 6.4],\n[1520, +2.8, 4.4, 4.6],\n[62 0, -3.3, 1.5, 2.0],\n[19640, + 0.8, 9.2, 9.2],\n[1350, -7.4, 2.3, 3.0] ,\n[340, -0.3, 2.0, 2.1],\n[480, -9.7, 2.2, unbekannt],\n[2180, +2.6, \+ 2.9, 3.2],\n[10550, +6.0, 3.8, unbekannt],\n[4060, +2.7, 2.7, 3.7],\n[ 2430, -7.3, 3.4, 3.4],\n[2260, -7.1, 3.8, 4.1],\n[45360, +0.2, 8.8, 8. 6],\n[210, +0.8, 4.1, 4.1],\n[4530, +5.8, 5.1, 4.8],\n[1260, +0.2, 4.1 , 4.7],\n[3870, +3.7, 4.8, 4.7],\n[1100, -2.1, 3.3, unbekannt],\n[3700 , +0.2, 3.4, 3.3],\n[390, -1.4, 4.3, unbekannt],\n[140, +2.6, 3.5, 2.2 ],\n[2110, +1.1, 5.3, 5.4],\n[15830, +1.2, 9.4, 9.4],\n[410, +1.6, 3.1 , unbekannt],\n[25830, +1.9, 9.0, 8.9],\n[280, +0.7, 1.6, 1.2],\n[3610 0, +3.8, 8.9, 9.1],\n[27920, +1.1, 7.6, 7.7],\n[500, +2.0, 2.2, unbeka nnt],\n[2000, +0.0, 2.0, unbekannt],\n[2610, +4.6, 4.5, 4.4],\n[1200, \+ +1.6, 3.6, 2.8],\n[11010, +2.0, 6.7, 6.4],\n[370, -0.9, 3.5, 3.4],\n[2 6210 , +0.2, 9.4, 9.4],\n[43060, -0.5, 8.9, 8.6],\n[540, +0.0, 3.4, 3. 5],\n[720, -0.7, 4.1, unbekannt],\n[32810, +6.7, 9.1, 9.1],\n[9840, +4 .2, 6.0, 5.5],\n[14490, +1.3, 6.6, 7.0],\n[3210, -0.2, 5.0, 5.0],\n[21 0, +0.9, 1.9, 2.5],\n[2740, +5.9, 3.2, 3.2],\n[2110, +2.0, 5.0, 5.2], \n[3130, +2.3, 3.6, 3.8],\n[330, +4.4, 2.2, 2.3],\n[6130, +3.5, 4.4, u nbekannt],\n[1020, -5.6, 1.8, 2.4],\n[3480, -0.2, 2.0, 2.7],\n[29080, \+ +1.7, 7.5, 7.8],\n[310, +6.1, 2.6, 2.5]]:\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "nops(Liste);" }}}{EXCHG {PARA 258 "" 0 "" {TEXT -1 51 "Vergleich zwischen Bruttosozialprodukt und CPI 1999" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 62 "Liste1 := [seq([ Liste[i][1], Liste[i][3]], i=1..nops(Liste))]:" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 42 "plot(Liste1, style=point, symbol=diamond);" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(stats):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 111 "fit[leastsquare[[BSP, CPI]]]([[seq (Liste1[i][1], i=1..nops(Liste1))],\n[seq(Liste1[i][2], i=1..nops(List e1))]]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 112 "plots[display] ([plot(Liste1, style=point, symbol=diamond),\nplot(3.177461442+.169218 7403e-3*BSP, BSP=0..40000)]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 108 "describe[linearcorrelation]([seq(Liste1[i][1], i=1..nops(Liste1 ))],\n[seq(Liste1[i][2], i=1..nops(Liste1))]);" }}}{EXCHG {PARA 260 " " 0 "" {TEXT -1 1 "V" }{MPLTEXT 1 0 0 "" }{TEXT 257 50 "ergleich zwisc hen Bruttosozialprodukt und CPI 2000" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 155 "Liste1a := op([]):\nfor Daten in Liste do\nif Daten[ 4] <> unbekannt then\nListe1a := Liste1a, [Daten[1], Daten[4]]\nfi\nod :\nListe1a := [Liste1a]: nops(Liste1a);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 115 "fit[leastsquare[[BSP, CPI]]]([[seq(Liste1a[i][1], i= 1..nops(Liste1a))],\n[seq(Liste1a[i][2], i=1..nops(Liste1a))]]);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 112 "describe[linearcorrelation] ([seq(Liste1a[i][1], i=1..nops(Liste1a))],\n[seq(Liste1a[i][2], i=1..n ops(Liste1a))]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 113 "plots[ display]([plot(Liste1a, style=point, symbol=diamond),\nplot(3.36930096 5+.1626838231e-3*BSP, BSP=0..40000)]);" }}}{EXCHG {PARA 262 "" 0 "" {TEXT -1 54 "Vergleich der Steigerungsrate des BSP mit dem CPI 1999" } {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 62 "Liste2 \+ := [seq([Liste[i][2], Liste[i][3]], i=1..nops(Liste))]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "plot(Liste2, style=point, symbol=di amond);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 117 "fit[leastsquare [[Delta_BSP, CPI]]]([[seq(Liste2[i][1], i=1..nops(Liste2))],\n[seq(Lis te2[i][2], i=1..nops(Liste2))]]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 120 "plots[display]([plot(Liste2, style=point, symbol=dia mond),\nplot(4.551832914+.1499009016*Delta_BSP, Delta_BSP=-16..10)]); " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 108 "describe[linearcorrela tion]([seq(Liste2[i][1], i=1..nops(Liste2))],\n[seq(Liste2[i][2], i=1. .nops(Liste2))]);" }}}{EXCHG {PARA 263 "" 0 "" {TEXT -1 62 "Sch\344tzu ng des CPI f\374r Deutschland anhand der Ausgleichsgeraden" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "BSP_Deutschland \+ := 28280;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "CPI99 := BSP - > 3.177461442+.1692187403e-3*BSP;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "CPI99(BSP_Deutschland);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "CPI00 := BSP -> 3.369300965+.1626838231e-3*BSP;" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "CPI00(BSP_Deutschland);" }}} {EXCHG {PARA 264 "" 0 "" {TEXT -1 204 "Vergleich zwischen Korruption b ei der Ausfuhr und interner Korruption:\nDie ersten drei Eintr\344ge d er Quadrupel sind wie oben, der vierte ist eine Korruptionsindex f\374 r das Verhalten in Drittl\344ndern f\374r 1999" }{MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 478 "Liste3 := [[20650, +2.4, 8. 7, 8.1],\n[26730, +1.3, 5.3, 6.8],\n[860, +10.0, 3.4, 3.1],\n[28280, + 0.7, 8.0, 6.2],\n[26300, +1.0, 6.6, 5.2],\n[20870, +1.9, 8.6, 7.2],\n[ 20170, +1.0, 4.7, 3.7],\n[38160, +1.4, 6.0, 5.1],\n[19640, + 0.8, 9.2, 8.1],\n[10550, +6.0, 3.8, 3.4],\n[4530, +5.8, 5.1, 3.9],\n[25830, +1. 9, 9.0, 7.4],\n[27920, +1.1, 7.6, 7.8],\n[26210 , +0.2, 9.4, 8.3],\n[4 3060, -0.5, 8.9, 7.7],\n[32810, +6.7, 9.1, 5.7],\n[14490, +1.3, 6.6, 5 .3],\n[29080, +1.7, 7.5, 6.2],\n[0,0,5.6, 3.5]]:\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 90 "plot([seq([Liste3[i][3], Liste3[i][4]], i=1 ..nops(Liste3))], style=point, symbol=diamond);" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 111 "fit[leastsquare[[CPI, BPI]]]([[seq(Liste3[i][ 3], i=1..nops(Liste3))],\n[seq(Liste3[i][4], i=1..nops(Liste3))]]);" } }}{EXCHG {PARA 265 "" 0 "" {TEXT -1 100 "Die graue Gerade im folgenden Diagramm ist die Winkelhalbierende; die rote ist die Ausgleichsgerade ." }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 199 "pl ots[display]([plot([seq([Liste3[i][3], Liste3[i][4]], i=1..nops(Liste3 ))], style=point, symbol=diamond),\nplot(.3544553228+.7961333499*CPI, \+ CPI=3..10, color=red),\nplot(CPI, CPI=3..10, color=gray)]);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 108 "describe[linearcorrelation] ([seq(Liste3[i][3], i=1..nops(Liste3))],\n[seq(Liste3[i][4], i=1..nops (Liste3))]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "2 0 0" 2 }{VIEWOPTS 1 1 0 1 1 1803 }