|
${
Linear Map: sauna
$}
#CODE="GSP.class"
#CODEBASE = "../jsp"
#ARCHIVE="jsp4.jar"
#WIDTH = 500
#HEIGHT= 520
#ALIGN=Left
*MeasureFont = "CourierNew"
*MeasureSize = 14
*MeasureBold = 1
*MeasureInDegrees = 1
*DirectedAngles = 0
*BackRed = 250
*BackGreen = 250
*BackBlue = 250
${
*BackRed = 34
*BackGreen =176
*BackBlue = 55
$}
${
Bracket macros
$}
$(
Left Bracket(upper,lower)
$!uptr Translation($upper,5,0)[hidden];
$!lotr Translation($lower,5,0)[hidden];
Segment($upper,$uptr)[black];
Segment($lower,$lotr)[black];
Segment($upper,$lower)[black];
$)
$(
Right Bracket(upper,lower)
$!uptr Translation($upper,-5,0)[hidden];
$!lotr Translation($lower,-5,0)[hidden];
Segment($upper,$uptr)[black];
Segment($lower,$lotr)[black];
Segment($upper,$lower)[black];
$)
${
The matrix brackets
$}
$LuppA FixedPoint(260,25)[hidden];
$LlowA FixedPoint(260,75)[hidden];
$LBrA Left Bracket($LuppA,$LlowA)[black];
$RuppA FixedPoint(360,25)[hidden];
$RlowA FixedPoint(360,75)[hidden];
$RBrA Right Bracket($RuppA,$RlowA)[black];
$Luppu FixedPoint(365,25)[hidden];
$Llowu FixedPoint(365,75)[hidden];
$LBru Left Bracket($Luppu,$Llowu)[red];
$Ruppu FixedPoint(410,25)[hidden];
$Rlowu FixedPoint(410,75)[hidden];
$RBru Right Bracket($Ruppu,$Rlowu)[red];
$LuppAu FixedPoint(440,25)[hidden];
$LlowAu FixedPoint(440,75)[hidden];
$LBrAu Left Bracket($LuppAu,$LlowAu)[blue];
$RuppAu FixedPoint(490,25)[hidden];
$RlowAu FixedPoint(490,75)[hidden];
$RBrAu Right Bracket($RuppAu,$RlowAu)[blue];
$ULeq FixedPoint(420,47)[hidden];
$UReq FixedPoint(430,47)[hidden];
$LLeq FixedPoint(420,53)[hidden];
$LReq FixedPoint(430,53)[hidden];
$EQup Segment($ULeq,$UReq)[black];
$EQlo Segment($LLeq,$LReq)[black];
${
The Real Line
$}
$RO FixedPoint(250,500)[black,label('0')];
$Ref Translation($RO,50,0)[hidden];
$Ray Ray($Ref,$RO)[hidden,black];
$Rykk Point on object($Ray,1)[white, label('1'),hidden];
$Rvaleykk FixedPoint(300,500)[black,label('1')];
$RL Line($Rykk,$RO)[black];
$Rpta Point on object($RL,-0.25)[label('a')];
$Rptb Point on object($RL,-1)[label('b')];
$Rptc Point on object($RL,-1.25)[label('c')];
$Rptd Point on object($RL,1.25)[label('d')];
$LUpp FixedPoint(0,486)[hidden];
$LLow FixedPoint(0,520)[hidden];
$RLow FixedPoint(500,520)[hidden];
$RUpp FixedPoint(500,486)[hidden];
$RectA Polygon($LUpp,$LLow,$RLow,$RUpp,$LUpp)[yellow];
${
The Plane Coordinate System
$}
$O FixedPoint(250,250)[black,label('0')];
$ykk FixedPoint(275,250)[white,label('1')];
$yYkk FixedPoint(250,225)[white,label('1')];
$unitp UnitPoint($O,25)[hidden];
$coord Origin&Unit($O,$unitp)[black];
$hor AxisX($coord)[black];
$vert AxisY($coord)[hidden];
$start FixedPoint(250,485)[hidden];
$vertsh Ray($O,$start)[black];
${
Calculations
$}
$Ra Ratio/Points($RO,$Rykk,$Rpta,270,45,'')[black];
$Rb Ratio/Points($RO,$Rykk,$Rptb,320,45,'')[black];
$Rc Ratio/Points($RO,$Rykk,$Rptc,270,65,'')[black];
$Rd Ratio/Points($RO,$Rykk,$Rptd,320,65,'')[black];
$u Point(275,270)[red, label('u')];
$ucoord Coordinates($u,$coord,100,100,'')[hidden];
$xval Calculate(370,45,'','#A1')($ucoord)[red];
$yval Calculate(370,65,'','#A2')($ucoord)[red];
$utr PlotXY($yval,$coord,$xval)[red,traced,hidden];
$xLu Calculate(445,45,'','A C * B D * +')($Ra,$Rb,$xval,$yval)[blue];
$yLu Calculate(445,65,'','A C * B D * +')($Rc,$Rd,$xval,$yval)[blue];
$Lu PlotXY($yLu,$coord,$xLu)[blue,label('L(u)')];
$Lutr PlotXY($yLu,$coord,$xLu)[blue,traced,hidden];
$detA Calculate(325,95,'','A D * B C * -')($Ra,$Rb,$Rc,$Rd)[black];
$SBdetA ShowButton( 260,80,'det(A) = ')($detA)[black];
$SBA ShowButton( 305, 0,'A')($Ra,$Rb,$Rc,$Rd,$LBrA,$RBrA,$SBdetA)[black];
$SBu ShowButton( 380, 0,'u')($xval,$yval,$LBru,$RBru)[red];
$SBAu ShowButton( 450, 0,'A u')( $EQup,$EQlo,$xLu,$yLu,$LBrAu,$RBrAu)[blue];
$SBRep ShowButton( 175, 0,'Representation of L')($SBA,$SBu,$SBAu)[blue];
$HBRep HideButton( 175,20,'Hide all')($Ra,$Rb,$Rc,$Rd,$LBrA,$RBrA,$xval,$yval,$LBru,$RBru,$EQup,$EQlo,$xLu,$yLu,$LBrAu,$RBrAu,$SBdetA,$detA,$SBA,$SBu,$SBAu)[blue];
${
Segments
$}
$SOu Segment($O,$u)[red,thick];
$SLu Segment($O,$Lu)[blue, hidden];
$SuLu Segment($u,$Lu)[magenta,hidden];
$SBSegm ShowButton( 0, 0,'Segments')($SOu,$SLu,$SuLu)[magenta];
$HBSegm HideButton(64,0,'Hide')( $SOu,$SLu,$SuLu)[magenta];
$SBtrLu ShowButton( 0,20,'Trace')($utr,$Lutr)[magenta];
$HBtrLu HideButton(43,20,'Stop')($utr,$Lutr)[magenta];
$Centpt Point(200,150)[magenta, hidden];
$Crefpt VectorTranslation($Centpt,$O,$yYkk)[hidden];
$CdumRay Ray($Crefpt,$Centpt)[hidden];
$Cpt Point on object($CdumRay,1)[magenta,hidden];
$Circ Circle($Centpt,$Cpt)[magenta,thick,hidden];
$ABC AnimateButton(10,110,'Animate')($u,$Circ)(4)(0)(0)[black,hidden];
$LCirc Locus($Lu,$u,$Circ,40)[blue,hidden];
$SBCL ShowButton(10,130,'Locus')($LCirc)[blue,hidden];
$HBCL HideButton(55,130,'Hide')($LCirc)[blue,hidden];
$SBAC ShowButton( 0,90,'CIRCLE')($Centpt,$Cpt,$Circ,$ABC,$SBCL,$HBCL)[magenta,hidden];
$HBAC HideButton(60,90,'Hide')( $Centpt,$Cpt,$Circ,$ABC,$SBCL,$HBCL)[magenta,hidden];
${
Huono yritys
$PtSt Point(200,200)[magenta,hidden];
$Srefpt VectorTranslation($PtSt,$O,$yYkk)[hidden];
$SdumRay Ray($Srefpt,$PtSt)[hidden];
$PtEnd Point on object($SdumRay,2)[magenta,hidden];
$Segm Segment($PtSt,$PtEnd)[magenta,hidden];
Olkoon toistaiseksi sitten ihan vappaa
$}
$PtSt Point(200,200)[magenta,hidden];
$PtEnd Point(175,225)[magenta,hidden];
$Segm Segment($PtSt,$PtEnd)[magenta,thick,hidden];
$ABS AnimateButton(10,180,'Animate')($u,$Segm)(4)(0)(0)[black,hidden];
$LSegm Locus($Lu,$u,$Segm,40)[blue,hidden];
$SBSL ShowButton(10,200,'Locus')($LSegm)[blue,hidden];
$HBSL HideButton(55,200,'Hide')($LSegm)[blue,hidden];
$SBAS ShowButton(0,160,'SEGMENT')($PtSt,$PtEnd,$Segm,$ABS,$SBSL,$HBSL)[magenta,hidden];
$HBAS HideButton(75,160,'Hide')($PtSt,$PtEnd,$Segm,$ABS,$SBSL,$HBSL)[magenta,hidden];
$P01 Point( 50,425)[red,hidden];
$P02 Point( 50,325)[red,hidden];
$P03 Point(100,275)[red,hidden];
$P04 Point(100,225)[red,hidden];
$P05 Point(125,225)[red,hidden];
$P06 Point(125,250)[red,hidden];
$P07 Point(150,225)[red,hidden];
$P08 Point(250,325)[red,hidden];
$P09 Point(250,425)[red,hidden];
$P10 Point(210,425)[red,hidden];
$P11 Point(210,365)[red,hidden];
$P12 Point(175,365)[red,hidden];
$P13 Point(175,425)[red,hidden];
$Sauna Polygon($P01,$P02,$P07,$P08,$P09,$P10,$P11,$P12,$P13,$P01)[color(219,45,45),hidden];
$Piippu Polygon($P03,$P04,$P05,$P06,$P03)[black,layer(10),hidden];
$Ovi Polygon($P10,$P11,$P12,$P13,$P10)[color(255,128,0),layer(10),hidden];
$CKeskiP Point(150,300)[hidden];
$CKehaP Point(175,300)[hidden];
$IkkunaPoka Circle($CKeskiP,$CKehaP)[blue,thick,hidden];
$Ikkunalasi Circle interior($IkkunaPoka)[yellow,layer(10),hidden];
$IP1 Point(75,400)[red,hidden];
$IP2 Point(75,350)[red,hidden];
$IP3 Point(125,350)[red,hidden];
$IP4 Point(125,400)[red,hidden];
$IPoka1 Point(78,397)[red,hidden];
$IPoka2 Point(78,353)[red,hidden];
$IPoka3 Point(122,353)[red,hidden];
$IPoka4 Point(122,397)[red,hidden];
$Alaikkunapoka Polygon($IPoka1,$IPoka2,$IPoka3,$IPoka4,$IPoka1)[yellow,layer(10),hidden];
$Alaikkuna Polygon($IP1,$IP2,$IP3,$IP4,$IP1)[blue,layer(5),hidden];
$RistV Point(75,375)[blue,hidden];
$RistO Point(125,375)[blue,hidden];
$RistY Point(100,350)[blue,hidden];
$RistA Point(100,400)[blue,hidden];
$Vaaka Segment($RistV,$RistO)[blue,thick,hidden];
$Pysty Segment($RistY,$RistA)[blue,thick,hidden];
$PKattoV Point( 37,337)[red,hidden];
$PKattoO Point(262,337)[red,hidden];
$VasenK Segment($PKattoV,$P07)[color(160,75,84),thick,hidden];
$OikeaK Segment($PKattoO,$P07)[color(160,75,84),thick,hidden];
$LSau Locus($Lu,$u,$Sauna,40)[color(219,45,45),thick,hidden];
$LPiip Locus($Lu,$u,$Piippu,40)[black,thick,hidden];
$LOvi Locus($Lu,$u,$Ovi,40)[color(255,128,0),thick,hidden];
$LIkku Locus($Lu,$u,$IkkunaPoka,40)[yellow,thick,hidden];
$LKV Locus($Lu,$u,$VasenK,40)[color(160,75,84),thick,hidden];
$LKO Locus($Lu,$u,$OikeaK,40)[color(160,75,84),thick,hidden];
$LAlaikkunapoka Locus($Lu,$u,$Alaikkunapoka,40)[blue,thick,hidden];
$LAlaikkuna Locus($Lu,$u,$Alaikkuna,40)[yellow,thick,hidden];
$LPysty Locus($Lu,$u,$Pysty,40)[yellow,thick,hidden];
$LVaaka Locus($Lu,$u,$Vaaka,40)[yellow,thick,hidden];
$SBSauL ShowButton(10,252,'Locus')($LSau,$LPiip,$LOvi,$LIkku,$LKV,$LKO,$LAlaikkunapoka,$LAlaikkuna,$LPysty,$LVaaka)[color(219,45,45),hidden];
$HBSauL HideButton(55,252,'Hide' )($LSau,$LPiip,$LOvi,$LIkku,$LKV,$LKO,$LAlaikkunapoka,$LAlaikkuna,$LPysty,$LVaaka)[color(219,45,45),hidden];
$SBASau ShowButton(0,230,'SAUNA')($Vaaka,$Pysty,$Alaikkuna,$Alaikkunapoka,$Ovi,$PKattoO,$PKattoV,$VasenK,$OikeaK,$Piippu,$IkkunaPoka,$Ikkunalasi,$P01,$P02,$P03,$P04,$P05,$P06,$P07,$P08,$P09,$P10,$P11,$P12,$P13,$P01,$Sauna,$SBSauL,$HBSauL)[color(219,45,45),bold,hidden];
$HBASau HideButton(55,230,'Hide')($Vaaka,$Pysty,$Alaikkuna,$Alaikkunapoka,$Ovi,$PKattoO,$PKattoV,$VasenK,$OikeaK,$Piippu,$IkkunaPoka,$Ikkunalasi,$P01,$P02,$P03,$P04,$P05,$P06,$P07,$P08,$P09,$P10,$P11,$P12,$P13,$P01,$Sauna,$SBSauL,$HBSauL)[color(219,45,45),bold,hidden];
ShowButton( 0,65,'A N I M A T I O N S')($SBAC,$HBAC,$SBAS,$HBAS,$SBASau,$HBASau)[black,bold];
|
Tehtäviä (kesken)
Millainen on saunan kuva, kun matriisi on
|