Vektorprodukt, program for casio:
Lagt inn: 08/03-2009 21:55
Dett programmet fungerer på min casio cfx-9850GC plus, men er sikkert ikke umulig å overføre til mange kalkulatorer med litt flaks og fikling.
Som takk for hjelp på forumet skal jeg stresse litt her.
En av brukerne på forumet har fått det til å virke, så da kan man nesten garantere at det ikke er noe slurvefeil igjen...
meny, program...
velg nytt program og gi det ett navn, feks "v.produkt"
kommandoer etc(når du er inne i programmeringsmodusen)
Nå noen hint om hvor man skal leite for å få fram kommandoene, da ikke de kan skrives direkte men må finnes i menyer:
-For å få fram "Lbl", trykk (shift)(prgm)(f3(jump))(f1(Lbl))
-Når et linjeskift er markert med [tex]\Leftarrow[/tex] her, betyr det at du trykker på den blå exe-tasten og du får et "krokete piltegn" (symbolet for entertasten) Når det er linjeskift her uten [tex]\Leftarrow[/tex] betyr det bare at det bare at forumet har brutt teksten automatisk og du skal late som ingenting.
-Matematiske kommandoer og funksjoner finnes vel stort sett der de pleier og være og kan brukes i programmeringen.
- tegnet [tex]\triangleleft[/tex]: (shift)(prgm)(f5) viser seg som en svart fyltliten trekant i motsetning til den jeg fikk til her.
-ClrText : (shift)(prgm)(f6)(f1)(f1)
-Locate: (shift)(prgm)(f6)(f4)(f1)
-List: (optn)(f1)
Programmet:
Lbl 1[tex]\Leftarrow[/tex]
ClrText[tex]\Leftarrow[/tex]
"vektor 1"[tex]\Leftarrow[/tex]
?[tex]\rightarrow[/tex]List 1[tex]\Leftarrow[/tex]
"vektor 2"[tex]\Leftarrow[/tex]
?[tex]\rightarrow[/tex]List2[tex]\Leftarrow[/tex]
List 1[tex]\rightarrow[/tex]List 3:List 1[2]*List2[3]-List 1[3]*List 2[2][tex]\rightarrow[/tex]List 3[1]:List 1[3]*List 2[1]-List 1[1]*List 2[3][tex]\rightarrow[/tex]List 3[2]:List 1[1]*List 2[2]-List 1[2]*List 2[1][tex]\rightarrow[/tex]List 3[3]:0[tex]\rightarrow[/tex]R[tex]\Leftarrow[/tex]
For 1[tex]\rightarrow[/tex]I To 3[tex]\Leftarrow[/tex]
List 3[sup]2[/sup]+R[tex]\rightarrow[/tex]R[tex]\Leftarrow[/tex]
Next[tex]\Leftarrow[/tex]
ClrText[tex]\Leftarrow[/tex]
For 1[tex]\rightarrow[/tex]D To 3[tex]\Leftarrow[/tex]
If List 3[d][tex]\geq[/tex]0[tex]\Leftarrow[/tex]
Then Locate 3,1+D,List 3[D][tex]\Leftarrow[/tex]
Else Locate 2,1+D,List 3[D][tex]\Leftarrow[/tex]
IfEnd[tex]\Leftarrow[/tex]
Next[tex]\Leftarrow[/tex]
Locate 1,6,"R[sup]2[/sup]="[tex]\Leftarrow[/tex]
Locate 1,7,"R="[tex]\Leftarrow[/tex]
Locate 5,6,R[tex]\Leftarrow[/tex]
Locate 5,7, [symbol:rot] R[tex]\triangleleft[/tex]
Goto 1[tex]\Leftarrow[/tex]
For å bruke programmet
Velg PRGM i meny og velg programmet ditt (kanskje du har flere fra før?)
Hvis du skal ha vektorproduktet av feks [1,2,3] og [3,3,0]
så skriver du:
{1,2,3 (trykk exe)
{3,3,0 (trykk exe)
Nå vil du få vektorproduktet:
-9
9
-3
R[sub]2[/sub] = 171 (dette er kjekt å ha for å skrive lengden som en rot og ikke masse desimaler)
R= 13.07669683 (som er lengden av vektorproduktet)
Dett var dett.
Fint å støtte seg på å prøver for å unngå tullefeil med determinanter.
Har et program liggende for vinkel mellom to vektorer i rommet også, det er kortere.
Som takk for hjelp på forumet skal jeg stresse litt her.
En av brukerne på forumet har fått det til å virke, så da kan man nesten garantere at det ikke er noe slurvefeil igjen...
meny, program...
velg nytt program og gi det ett navn, feks "v.produkt"
kommandoer etc(når du er inne i programmeringsmodusen)
Nå noen hint om hvor man skal leite for å få fram kommandoene, da ikke de kan skrives direkte men må finnes i menyer:
-For å få fram "Lbl", trykk (shift)(prgm)(f3(jump))(f1(Lbl))
-Når et linjeskift er markert med [tex]\Leftarrow[/tex] her, betyr det at du trykker på den blå exe-tasten og du får et "krokete piltegn" (symbolet for entertasten) Når det er linjeskift her uten [tex]\Leftarrow[/tex] betyr det bare at det bare at forumet har brutt teksten automatisk og du skal late som ingenting.
-Matematiske kommandoer og funksjoner finnes vel stort sett der de pleier og være og kan brukes i programmeringen.
- tegnet [tex]\triangleleft[/tex]: (shift)(prgm)(f5) viser seg som en svart fyltliten trekant i motsetning til den jeg fikk til her.
-ClrText : (shift)(prgm)(f6)(f1)(f1)
-Locate: (shift)(prgm)(f6)(f4)(f1)
-List: (optn)(f1)
Programmet:
Lbl 1[tex]\Leftarrow[/tex]
ClrText[tex]\Leftarrow[/tex]
"vektor 1"[tex]\Leftarrow[/tex]
?[tex]\rightarrow[/tex]List 1[tex]\Leftarrow[/tex]
"vektor 2"[tex]\Leftarrow[/tex]
?[tex]\rightarrow[/tex]List2[tex]\Leftarrow[/tex]
List 1[tex]\rightarrow[/tex]List 3:List 1[2]*List2[3]-List 1[3]*List 2[2][tex]\rightarrow[/tex]List 3[1]:List 1[3]*List 2[1]-List 1[1]*List 2[3][tex]\rightarrow[/tex]List 3[2]:List 1[1]*List 2[2]-List 1[2]*List 2[1][tex]\rightarrow[/tex]List 3[3]:0[tex]\rightarrow[/tex]R[tex]\Leftarrow[/tex]
For 1[tex]\rightarrow[/tex]I To 3[tex]\Leftarrow[/tex]
List 3[sup]2[/sup]+R[tex]\rightarrow[/tex]R[tex]\Leftarrow[/tex]
Next[tex]\Leftarrow[/tex]
ClrText[tex]\Leftarrow[/tex]
For 1[tex]\rightarrow[/tex]D To 3[tex]\Leftarrow[/tex]
If List 3[d][tex]\geq[/tex]0[tex]\Leftarrow[/tex]
Then Locate 3,1+D,List 3[D][tex]\Leftarrow[/tex]
Else Locate 2,1+D,List 3[D][tex]\Leftarrow[/tex]
IfEnd[tex]\Leftarrow[/tex]
Next[tex]\Leftarrow[/tex]
Locate 1,6,"R[sup]2[/sup]="[tex]\Leftarrow[/tex]
Locate 1,7,"R="[tex]\Leftarrow[/tex]
Locate 5,6,R[tex]\Leftarrow[/tex]
Locate 5,7, [symbol:rot] R[tex]\triangleleft[/tex]
Goto 1[tex]\Leftarrow[/tex]
For å bruke programmet
Velg PRGM i meny og velg programmet ditt (kanskje du har flere fra før?)
Hvis du skal ha vektorproduktet av feks [1,2,3] og [3,3,0]
så skriver du:
{1,2,3 (trykk exe)
{3,3,0 (trykk exe)
Nå vil du få vektorproduktet:
-9
9
-3
R[sub]2[/sub] = 171 (dette er kjekt å ha for å skrive lengden som en rot og ikke masse desimaler)
R= 13.07669683 (som er lengden av vektorproduktet)
Dett var dett.
Fint å støtte seg på å prøver for å unngå tullefeil med determinanter.
Har et program liggende for vinkel mellom to vektorer i rommet også, det er kortere.