Hei

Hei og velkommen til Børge Nordlis egne lille side på det store internett.

(Ja, jeg har skiftet navn!)

Hjemmesiden min endres med jevne og ujevne mellomrom.

Akkurat nå blir denne siden blir for det meste skapt av deg. Legg igjen melding i gjesteboka!

Hilsen Børge

Regn

Spør Plingri:
Ingrid kan masse om primtall, altså!

Er et primtall?

Om primtallsjekkeren

Se

Bryllupssider
Bryllupssider

Ten Sing Norway 02/03
Ten Sing Norway 02/03

maoNorge.tk
maoNorge.tk

Café UVé Trondheim
Café UVé Trondheim

Skriv

Navn Overskrift
Tekst
sju+tretten =(spamfilter)

Side 2 av 3: Forrige side Neste side

Ole    3.gradsprogram
01.02.07    Hei!
Jeg har en Texas TI-83 kalkulator.
jeg lurer på om noen vet hvordan man kan programmere kalkulatoren til å løse tredjegradsligniger?
På forhånd takk!

HÃ¥vard    YO
28.12.06    Morn Tomas, kan det være at du leser "->" som minus større enn og ikke som ei pil? Prøv og bruk den tasten som (iflg. Google images) heter "sto→" og befinner seg rett til venstre for 1-tasten.

Tomas    2.gradsprogram
27.12.06    Finner ikke >. Får feilmelding, kan noen hjelpe meg fort!!!!!!!!!!!!!!!!!!!!!!!!!

Børge    2.gradsprogram
07.12.06    Hei, Sassan!

Du må trykke på PRGM->NEW->Create New og så velge et passende navn (f.eks. ANDRE), så skriver du inn disse linjene i programmet.

:Prompt A,B,C
:B/(2A->D
:sqrt(D2-C/A
:Disp Ans-D,-D-Ans

sqrt er kvadratrot (over x2), Prompt og Disp finner du ved å trykke PRGM->I/O når du skriver inn programmet.

For å kjøre programmet, velger du programmet ditt under PGRM->EXEC og skriver inn verdier for A, B og C i likningen din (Ax2 + Bx + C = 0).

Programmet bruker den vanlige andregradsformelen (men en del komprimert), som du kan lese om i læreboka, eller på Wikipedia.

Håper dette var nyttig, hvis ikke må du bare spørre mer!

Sassan    2. grads ligning
28.11.06    Hei. har en kalkulator Texas- TI-83. jeg vil gjerne vite hvordan kan jeg programmere kalkulatoren til å regne ut 2. grads ligninger, altså formelen man legger inn i maskinen (programering og formelen) for å regne ut 2. grads ligninger.

mange Takk

Mvh

Sassan

Toril Kremmervik    Lenge siden sist!
20.06.06    Hei, Børge! Lenge siden sist! Står til med deg da? Her er alt bare bra. Har mye å gjøre med studiene, skriver nå på masteroppgaven min i musikkvitenskap, øver mye på fløyta og piano samt jeg har vært dirigentvikar for Sintef-koret dette året. Ellers må du ta deg en titt på hjemmesia mi også:) Må oppdatere den ofte nå. Når du leser bloggen min skjønner du hvorfor...:) Adressen er: http://home.no/tokremme Har nå linken til din liggende ute på min hjemmeside! Hils kjente!

Klem Toril

Fam H-H    Påskeskirenn
25.04.06    Hei og takk for sist.
Børge.

Gratulerer med med førsteplassen i hoppkonkurransen - Påskeskirenn på Skeikampen- .

Tenkte at bildene var lagt ut på denne siden?`


    Børge
05.04.06    Det stemmer nok ikke. Jeg skrev prompt. :P

En kæll fra sør    hihi
05.04.06    Børge skrev "promp" :P

Børge    Alternativ på 91 bytes
24.02.06    Hvis man klarer seg med at alle løsningene blir skrevet ut på én linje, kan programmet presses ned til 91 bytes:

:Prompt A,B,C,D
:-B/(3A -> X
:X3-2-1A-1(D+XC -> Q
:sqrt(Q2-(X2+XC/B)3 -> F
:curt(Q-F -> U
:curt(Q+F -> V
:icurt(i
:{1,Ans,Ans2
:X+AnsU+Ans2V

Ved å fjerne alle linjeskift og sette kolon mellom linjene, vil dette programmet få plass på én skjerm. Det ser faktisk litt imponerende ut, så jeg må få lagt ut en skann her en gang..

(oppdatert 5. mars, fra 95b til 91b)

Børge    under 100!
01.02.06    ..det stopper ikke der!

Siden (1-sqrt(-3))/2 = -curt(i)*i (sjekk selv!), kan de to siste linjene skrives som

:icurt(i
:Disp X+U+V,X+AnsU+Ans2V,X+Ans2U+AnsV

som sparer 5 bytes, og derfor er vi nede på 99b! :)

Ingenting er umulig bare man jobber litt for det! Lykke til med videre optimering, det spørs om det er mulig å skrelle vekk mer nå..

linde    Wow!
01.02.06    Wow, 104b!
:-B/(3 -> H
hade jag bara skrivit ner fel på datorn,
men du har rätt; vid
(9ABC-2B^2-27A^2D)/(54A^3 -> G
gjorde jag ju helt fel :)

Men WOW igen, 104b! Nu ser jag VERKLIGEN inget sätt att få det mindre på. Men jag tittar väl inte tillräckligt noga ;)

Bra jobbat. Jaha, dags för fjärdegradsprogrammet nu då!

Børge    Siste nytt!
31.01.06    Etter litt fiksing på programmet mitt, fikk jeg det ned i ca 115b, men ved å bruke det beste (eller verste) fra begge programmene, har jeg nå laget et fullstendig tredjegradsprogram på 104bytes! :)

:Prompt A,B,C,D
:-B/(3A -> X
:X3-2-1A-1(D+XC -> Q
:sqrt(Q2-(X2+XC/B)3 -> F
:curt(Q-F -> U
:curt(Q+F -> V
:2-1(1 - sqrt(-3
:Disp X+U+V,X-AnsU+Ans2V,X+Ans2U-AnsV

Det hadde vært gøy å få det ned på under 100b, så jeg lar det stå som en åpen utfordring!

Det neste steget vil jo da være et fjerdegradsprogram. Jeg har ikke laget et slikt selv, men det kunne vært gøy å ha et.. Det må stå som et selvstendig program (det vil si: kan ikke kalle på tredjegradsprogrammet), og man kan igjen anta at A != 0.

Børge    Ikke godkjent :P
30.01.06    Hei!

Ved en kjapp gjennomgang er det et par ting som ikke stemmer i programmet ditt. Jeg har sett gjennom det og rettet det som ser opplagt feil ut. Kan du fortelle meg om du er enig?

PROGRAM:D
:Prompt A,B,C,D
:(9ABC-2B^3-27A^2D)/(54A^3 -> G
:-B/(3A -> H
:-.5+sqrt(-3)/2 -> I
:sqrt(((3AC-B^2)/(9A^2))^3+G^2 -> Y
:curt(G+Y -> X
:curt(G-Y -> Y
:Disp H+X+Y,H+I*X+I^2*Y,H+I^2*X+I*Y

Med rettinger tar programmet ditt 125b på min TI-83. Jeg har et 3.gradsprogram som tar 120b, så det er bare å prøve å finne flere muligheter!

(Ett tips: #4 kan skrives slik: -.5+2^(-1)sqrt(-3 -> I for én mindre byte.. ;))

linde    Ett till litet program!
28.01.06    Okej, här är ett som bara tar 132 byte på min räknare! Nu är det optimerat bortom all läslighet.

Ett problem med metoden jag använt är att det inte blir några exakta svar; en hel del försvinner när jag sparar värdena i variabler fram och tillbaka. Testa t.ex. med A=2,B=-4,C=-22,C=24 som borde ge 4, -3 och 1...

(-> = pil, sqrt = roten, curt = tredje roten, ^2 = upphöjt-till-2-tecknet, ^3 = upphöjt-till-3-tecknet):

PROGRAM:D
:Prompt A,B,C,D
:(9ABC-2B^2-27A^2D)/(54A^3 -> G
:-B/(3 -> H
:-.5+sqrt(-3)/2 -> I
:sqrt(((3AC-B^2)/(9A^2))^3+G^2 -> Y
:curt(G+Y -> X
:curt(G-Y -> Y
:Disp H+X+Y,H+I*X+I^2*Y,H+I^2*X+I*Y

Jag har inte tittat på det så mycket så det kan ju gå att göra kortare, men det skulle nog bara handla om någon enstaka byte i så fall.

linde   
28.01.06    Ja, jag använde en TI-83+ så det kanske är därför felet uppstår!

En kompis och jag brukade tävla om vem som kunde göra det kortaste andragradsprogrammet, och resultatet är - förutom en massa förlorade mattelektioner - några väldigt korta program :)

Nu ska jag försöka göra ett litet tredjegradsprogram!

Til linde    Takk for info
22.01.06    Hei!

Jeg står fast ved at programmet mitt er riktig, ved kjøring på min Texas gir A=2, B=3, C=1 svar -.5 og -1.

Men det er klart at ditt program er kortere enn mitt, så gratulerer så mye, jeg skal selv begynne å bruke ditt isteden for mitt :)

(Det er mulig vi har litt forskjellige texas-versjoner, for på min kalkulator tar mitt program 42bytes, og ditt 39bytes.)

Jeg utfordrer deg herved til å lage det korteste 3.grads-programmet. Du kan anta at A (tredjegradskoeffisienten) er ulik 0, slik at programmet slipper å sjekke dette. På min kalkulator tar min versjon foreløpig 206 bytes.

linde    korteste andregradsprogrammet
10.01.06    Angående http://www.stud.ntnu.no/~borgemik/bilder/texas.jpg

Det här programmet gör fel. Testa att skriva in en enkel så som A=2, B=3 och C=1... Den borde visat -.5 och -1, men din visar -.5 och 1. Det är inte det minsta andragradsprogrammet heller. Ditt program tar 44 byte i minnet och mitt eget tar 42!

Så här ser mitt ut (-> = pil, sqrt = roten, ^2 = upphöjt-till-2-tecknet):

PROGRAM:C
Prompt A,B,C
-B/(2A->B
sqrt(B^2-C/A
Disp B+Ans,B-Ans

Aleksander Veksler    Gratulerer!
01.09.05    Hei!

Gratulerer med bryllupet, og lykke til videre! :-D

Hilsen, Aleksander.

Tord    Gratulere
31.08.05    HEi Børge

Veit ikkje om du e i landet eller ka. I allefall, gratulere me dajen... No kan ej tenke mej det e stor fest i NORdLI heimen i Trodheim....Stor bursdagskyss frå Bergen

Side 2 av 3: Forrige side Neste side

© Børge Nordli 2001-2008