%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:1128

File Name:AUSSEN-O

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

\SimulOn

""\->\Y 1:""\->\Y 2:""\->\Y 3:""\->\Y 4:""\->\Y 5:""\->\Y 6

0\->A~Z

"AX"?\->A:"AY"?\->G

"BX"?\->B:"BY"?\->H

"CX"?\->C:"CY"?\->I

\Lbl 0

\ClrText

"WOLLEN SIE DIE MIT\(-)":"TELSENKRECHTEN SEHEN"

\Do:\Getkey\->\r:\LpWhile \r\<>45\ And \r\<>64

\r=45\=>1\->E

\Lbl 1

\ClrGraph

'MITTELPUNKT AB"

A-((A-B)/2)\->M

G-((G-H)/2)\->P

'MITTELPUNKT BC'

B-((B-C)/2)\->N

H-((H-I)/2)\->Q

'MITTELPUNKT CA'

C-((C-A)/2)\->O

I-((I-G)/2)\->R

G-P\<>0\=>\(-)((A-M)/(G-P))\->U

H-Q\<>0\=>\(-)((B-N)/(H-Q))\->V

I-R\<>0\=>\(-)((C-O)/(I-R))\->W

0\->F

U-V=0\=>F+1\->F

V-W=0\=>F+1\->F

W-U=0\=>F+1\->F

\If F>1

\Then \ClrText

"DIESE DREI PUNKTE"

"ERGEBEN KEIN DREIECK":\Stop:\IfEnd

G-P\<>0\=>H-Q\<>0\=>((Q-VN)-(P-UM))/(U-V)\->S

H-Q\<>0\=>I-R\<>0\=>((R-WO)-(Q-VN))/(V-W)\->S

I-R\<>0\=>G-P\<>0\=>((P-UM)-(R-WO))/(W-U)\->S

G-P\<>0\=>H-Q\<>0\=>US+(P-UM)\->T

H-Q\<>0\=>I-R\<>0\=>VS+(Q-VN)\->T

I-R\<>0\=>G-P\<>0\=>WS+(R-WO)\->T

\sqrt((S-B)\x^2+(T-H)\x^2)\->D

\ViewWindow S-2.4D,S+2.4D,10,T-1.2D,T+1.2D,10

\Plot A,G

\Plot B,H

\Orange \Line

\Plot C,I

\Orange \Line

\Plot A,G

\Orange \Line

\Green \PlotOn M,P

\Green \PlotOn N,Q

\Green \PlotOn O,R

\If E=1

\Then \Y=Type

"UX+(P-UM)"\->\Y 1

"VX+(Q-VN)"\->\Y 2

"WX+(R-WO)"\->\Y 3

\BlueG 1

\BlueG 2

\BlueG 3

G-P=0\=>\G SelOff 1

H-Q=0\=>\G SelOff 2

I-R=0\=>\G SelOff 3

\DrawGraph

\Else \PlotOn S,T

\IfEnd

\Circle S,T,D\Disp"DATEN DES KREISES"

"M(KR)X:"

"M(KR)Y:"

"\r(KR):"

"A:        \slash"

"B:        \slash"

"C:        \slash"

\File1

{A,G,M,P,U,D}\->\List 1

{B,H,N,Q,V,S}\->\List 2

{C,I,O,R,W,T}\->\List 3

\Locate 9,2,S

\Locate 9,3,T

\Locate 9,4,D

\Locate 4,5,A

\Locate 12,5,G

\Locate 4,6,B

\Locate 12,6,H

\Locate 4,7,C

\Locate 12,7,I

%End