<JSP>
{ Taala-JSP CODE FOR JSX CONVERSION 27.11.2019 MEP }
{ Muista täpättää LaTeX labels: }

{ 3. Suoran sovitus neljän pisteen joukkoon }

{ JSX board name: PNSsuora03 }
{ JSX element id: pnssuora03 }

#CODEBASE = "../jsp"
#ARCHIVE  = "jsp4.jar"
#WIDTH    = 400
#HEIGHT   = 400
#ALIGN    = Center
*Frame          =   1
*TextFont       =   "Courier"
*TextBold       =   0
*TextSize       =  14
*LabelFont      =   "Courier"
*LabelBold      =   0
*LabelSize      =  14
*MeasureFont        =   "Courier"
*MeasureSize        =  14
*MeasureBold        =   0
*MeasureInDegrees   =   1
*DirectedAngles     =   0
*BackBlue       = 255
*BackGreen      = 240
*BackRed        = 255

${
$reset  FixedText(385,15,'Reset = ''R''')[red,bold,justifyRight];
$Clear  FixedText(365,390,'Puhdistus: x ->')[red,plain,font('Courier'),bold,justifyRight,hidden];
$}
$xText  FixedText(385,195,'t')[bold, black, justifyCenter];
{,text('\\( t \\)'),LabelAlign(25,-5)}
$yText  FixedText(195, 10,'s')[bold, black, justifyCenter];
{,text('\\( s \\)'),LabelAlign(45,8)}

{ The Plane Coordinate System }
$O	FixedPoint(200, 200) [black, label('0')];
{,LabelAlign(5,5)}
$unitp  UnitPoint($O, 40)    [white, label('1')];
{,LabelAlign(5,5)}
$coord  Origin&Unit($O, $unitp)[black, hidden];
$Xax    AxisX($coord)[black];
{,dash(2)}
$Yax    AxisY($coord)[black];
{,dash(2)}

{ Määritellään mittaluvut 0 ja 1 }
$SOunitp Segment($O,$unitp)[hidden];
$luku1 Length($SOunitp,50,50,'')[hidden];
$nolla	Calculate( 200,80,'','0 A*')($luku1)[hidden];

$P1	Point( 150,300)[red, label('P1')];
{,label('PSUB{1} \\, = (tSUB{1},, sSUB{1} )'),highlight}
$P2	Point( 240,260)[red, label('P2')];
{,label('PSUB{2} \\, = (tSUB{2},, sSUB{2} )'),highlight}
$P3	Point( 250,150)[red, label('P3')];
{,label('PSUB{3} \\, = (tSUB{3},, sSUB{3} )'),highlight}
$P4	Point( 220,190)[red, label('P4')];
{,label('PSUB{4} \\, = (tSUB{4},, sSUB{4} )'),highlight}
$TS1	Coordinates($P1,$coord,55,12,'')[red];
$TS1text FixedText(85,15,'P1 =')[red];
{,text('\\( PSUB{1} \\ = \\)')}
$TS2	Coordinates($P2,$coord,55,32,'')[red];
$TS2text FixedText(85,35,'P2 =')[red];
{,text('\\( PSUB{2} \\ = \\)')}
$TS3	Coordinates($P3,$coord,55,52,'')[red];
$TS3text FixedText(85,55,'P3 =')[red];
{,text('\\( PSUB{3} \\ = \\)')}
$TS4	Coordinates($P4,$coord,55,72,'')[red];
$TS4text FixedText(85,75,'P4 =')[red];
{,text('\\( PSUB{4} \\ = \\)')}

$t1	Calculate( 200,10,'','#A1')($TS1)[red,hidden];
$s1	Calculate( 300,10,'','#A2')($TS1)[red,hidden];
$t2	Calculate( 200,30,'','#A1')($TS2)[red,hidden];
$s2	Calculate( 300,30,'','#A2')($TS2)[red,hidden];
$t3	Calculate( 200,50,'','#A1')($TS3)[red,hidden];
$s3	Calculate( 300,50,'','#A2')($TS3)[red,hidden];
$t4	Calculate( 200,70,'','#A1')($TS4)[red,hidden];
$s4	Calculate( 300,70,'','#A2')($TS4)[red,hidden];

$a11	Calculate( 200,80,'a11 = ','4 A 0*+')($t1)[blue,hidden];
$a12	Calculate( 300,80,'a12 = ','AB+C+D+')($t1,$t2,$t3,$t4)[blue,hidden];
$a22	Calculate( 300,100,'a22 = ','A2^ B2^ + C2^ + D2^ +')($t1,$t2,$t3,$t4)[blue,hidden];
$det	Calculate( 200,130,'det = ','AC * B2^ -')($a11,$a12,$a22)[blue,hidden];
$b1	Calculate( 200,150,'b1 = ','AB+C+D+')($s1,$s2,$s3,$s4)[blue,hidden];
$b2	Calculate( 300,150,'b2 = ','#A1 #A2 * #B1 #B2 * + #C1 #C2 * + #D1 #D2 * +')($TS1,$TS2,$TS3,$TS4)[blue,hidden];
$c0	Calculate(  50,213,'','AD * BC * - E /')($b1,$b2,$a12,$a22,$det)[blue];
$c0text FixedText(85,218,'c0 =')[blue];
{,text('\\( cSUB{0} \\ = \\)')}
$c1	Calculate(  50,230,'','BC * AD * - E /')($b1,$b2,$a11,$a12,$det)[blue];
$c1text FixedText(85,236,'c1 =')[blue];
{,text('\\( cSUB{1} \\ = \\)')}

$R1	PlotXY($c0,$coord,$nolla)[white];
$c0plusc1 Calculate( 200,80,'','AB+')($c0,$c1)[blue,hidden];
$R2	PlotXY($c0plusc1,$coord,$luku1)[white];
$LR1R2	Line($R1,$R2);

{ Residuaali ja neliösumma }
$r1     Calculate(250,10,'r1 =','0 A BC* + D- -')($c0,$c1,$t1,$s1)[black,hidden];
$r2     Calculate(250,30,'r2 =','0 A BC* + D- -')($c0,$c1,$t2,$s2)[black,hidden];
$r3     Calculate(250,50,'r3 =','0 A BC* + D- -')($c0,$c1,$t3,$s3)[black,hidden];
$r4     Calculate(250,70,'r4 =','0 A BC* + D- -')($c0,$c1,$t4,$s4)[black,hidden];

$r1pot2	Calculate(250, 50,'r1^2 =','A 2^')($r1)[black,hidden];
$r2pot2	Calculate(250, 70,'r2^2 =','A 2^')($r2)[black,hidden];
$r3pot2	Calculate(250, 90,'r3^2 =','A 2^')($r3)[black,hidden];
$r4pot2	Calculate(250,110,'r4^2 =','A 2^')($r4)[black,hidden];
$rnormi	Calculate(70,265,'','AB+C+D+')($r1pot2,$r2pot2,$r3pot2,$r4pot2)[magenta];
$rnormitext  FixedText(190,265,'||r||^2 = ')[magenta];
{,text('\\( \\Vert \\, \\mathbf{r} \\,\\VertSUP{2} \\ = \\)')}

</JSP>