<commit_before>'Copyright (c) by <NAME> (Koopakiller)
'Zahl = Was wird berechnet? Wert von 1 bis 6
'Punkt 1  = x|y|z
'Mehrere Punkte pxyz, qxyz
'Gerade 1 = x=Axyz+Bxyz
'Ebene 1  = ax+by+cz=D
'r, s, t = Stringvariablen
'u, v = Hilfsvariable
'f = Format für Dezimale Ausgaben
'name = Name für Ein/Ausgabewert
'm, n, k, l, d, u, v = Hilfsvariablen

SetDegree
"Fix5"⇒θf

ClrText
Lbl Start
Print "Lage PgE"
Print "P - Punkt"
Print "g - Gerade"
Print "E - Ebene"
Print ""
Print "   P  g  E"
Print " E 1  2  3"
Print " g 4  5  2"
Print " P 6  4  1"
Print ""
Print "0 - Über L_PGE_P"

Input θZahl

'Punkt erfragen
If θZahl=1 Or θZahl=4 Or θZahl=6
Then
  6 ⇒ θg
  "P"⇒name
  Goto InputP
  Lbl g6

  If θZahl=6 
  Then
    θx⇒θpx:θy⇒θpy:θz⇒θpz
    9 ⇒ θg
    "Q"⇒θname
    Goto InputP
    Lbl g9
    θx⇒θqx:θy⇒θqy:θz⇒θqz
  IfEnd
IfEnd

'Gerade erfragen
If θZahl=2 Or θZahl=4 Or θZahl=5
Then
  7 ⇒ θg
  "g"⇒θname
  Goto InputG
  Lbl g7
  
  If θZahl=5
  Then
    θAx⇒θgAx : θAy⇒θgAy : θAz⇒θgAz
    θBx⇒θgBx : θBy⇒θgBy : θBz⇒θgBz
    12 ⇒ θg
    "h"⇒θname
    Goto InputG
    Lbl g12
    θAx⇒θhAx : θAy⇒θhAy : θAz⇒θhAz
    θBx⇒θhBx : θBy⇒θhBy : θBz⇒θhBz
  IfEnd
IfEnd


'Ebene erfragen
If θZahl=1 Or θZahl=2 Or θZahl=3
Then
  8 ⇒ θg
  "E"⇒θname
  Goto InputE
  Lbl g8
  
  If θZahl=3
  Then
    θa⇒θEa : θb⇒θEb : θc⇒θEc : θD⇒θED
    13 ⇒ θg
    "F"⇒θname
    Goto InputE
    Lbl g13
    θa⇒θFa : θb⇒θFb : θc⇒θFc : θD⇒θFD
  IfEnd
IfEnd

ClrText
Switch Zahl
 Case 1
  Print "Punkt - Ebene"
  Print ""
  
  0⇒θg
  "P"⇒θname
  Goto PrintP
  Lbl g0
  Print ""
  1⇒θg
  "E"⇒θname
  Goto PrintE
  Lbl g1
  Print ""
<commit_msg>Updated Casio\L_PGE_P2<commit_after>'Copyright (c) by <NAME> (Koopakiller)
'Zahl = Was wird berechnet? Wert von 1 bis 6
'Punkt 1  = x|y|z
'Mehrere Punkte pxyz, qxyz
'Gerade 1 = x=Axyz+Bxyz
'Ebene 1  = ax+by+cz=D
'r, s, t = Stringvariablen
'u, v = Hilfsvariable
'f = Format für Dezimale Ausgaben
'name = Name für Ein/Ausgabewert
'm, n, k, l, d, u, v = Hilfsvariablen

SetDegree
"Fix5"⇒θf

ClrText
Lbl Start
Print "Lage PgE"
Print "P - Punkt"
Print "g - Gerade"
Print "E - Ebene"
Print ""
Print "   P  g  E"
Print " E 1  2  3"
Print " g 4  5  2"
Print " P 6  4  1"
Print ""
Print "0 - Über L_PGE_P"

Input θZahl

'Punkt erfragen
If θZahl=1 Or θZahl=4 Or θZahl=6
Then
  6 ⇒ θg
  "P"⇒θname
  Goto InputP
  Lbl g6

  If θZahl=6 
  Then
    θx⇒θpx:θy⇒θpy:θz⇒θpz
    9 ⇒ θg
    "Q"⇒θname
    Goto InputP
    Lbl g9
    θx⇒θqx:θy⇒θqy:θz⇒θqz
  IfEnd
IfEnd

'Gerade erfragen
If θZahl=2 Or θZahl=4 Or θZahl=5
Then
  7 ⇒ θg
  "g"⇒θname
  Goto InputG
  Lbl g7
  
  If θZahl=5
  Then
    θAx⇒θgAx : θAy⇒θgAy : θAz⇒θgAz
    θBx⇒θgBx : θBy⇒θgBy : θBz⇒θgBz
    12 ⇒ θg
    "h"⇒θname
    Goto InputG
    Lbl g12
    θAx⇒θhAx : θAy⇒θhAy : θAz⇒θhAz
    θBx⇒θhBx : θBy⇒θhBy : θBz⇒θhBz
  IfEnd
IfEnd


'Ebene erfragen
If θZahl=1 Or θZahl=2 Or θZahl=3
Then
  8 ⇒ θg
  "E"⇒θname
  Goto InputE
  Lbl g8
  
  If θZahl=3
  Then
    θa⇒θEa : θb⇒θEb : θc⇒θEc : θD⇒θED
    13 ⇒ θg
    "F"⇒θname
    Goto InputE
    Lbl g13
    θa⇒θFa : θb⇒θFb : θc⇒θFc : θD⇒θFD
  IfEnd
IfEnd

ClrText
Switch θZahl
 Case 1
  Print "Punkt - Ebene"
  Print ""
  
  0⇒θg
  "P"⇒θname
  Goto PrintP
  Lbl g0
  Print ""
  1⇒θg
  "E"⇒θname
  Goto PrintE
  Lbl g1
  Print ""

{'fraction_non_alphanumeric': 0.1100092965602727, 'fraction_numerical': 0.030678648899907034, 'mean_word_length': 2.5668508287292817, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 5, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '62556', 'n_tokens_mistral': 1884, 'n_tokens_neox': 1920, 'n_words': 461}