{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 }{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 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(stats):" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 16 "with(statplots):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 200 "# Die Prozedur Q berechnet zu gegebenen \n# Datenvektoren x,y u
nd zu gegebenen\n# Koeffizienten a,b die Quadratsumme\n# sum(e_i^2,i=1
..n)\nQ := proc( a, b, n, x, y )\n  sum((y[i]-a-b*x[i])^2,i=1..n);    \+
  " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end;" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 29 "x:=[94,101,106,96,96,91,107];" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 40 "y:=[14.4,18.5,16.5,15.8,13.8,13.8,17.3];
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "n:=7;" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 9 "a:=-6.87;" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 9 "b:=0.229;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
13 "Q(a,b,n,x,y);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "# Gera
de zeichnen\nendpunkte := [[90,a+b*90],[105,a+b*105]];" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "polygonplot(endpunkte);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 115 "  display( \{ scatterplot( x, y, c
olor=black),  \n  polygonplot(endpunkte)\},\n  view=[90..110, 13..19],
 axes=frame ); " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 2 "a;" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 2 "b;" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 13 "Q(a,b,n,x,y);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 31 "plot(Q(a1,b,n,x,y),a1=-10..-5);" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 33 "Q_strich:=diff(Q(a1,b,n,x,y),a1);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "a:=solve(Q_strich=0,a1);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "evalf(Q(a,b,n,x,y));" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "plot(Q(a,b1,n,x,y),b1=0.1..0
.5);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Q_strich:=diff(Q(a,
b1,n,x,y),b1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "b:=solve(
Q_strich=0,b1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}
{MARK "13 0 0" 114 }{VIEWOPTS 1 1 0 1 1 1803 }