I modsætning til de større maskiner har Texas Instruments TI80 ingen
indbygget integrator. Men da maskinen kan programmeres, laver vi en selv.
Programmet beregner en midtsum for integralet òabf(x)dx,
hvor regneforskriften for f(x) er lagt i Y1.
1. Vælg PRGM / NEW , og brug ALPHA-knappen til at navngive programmet f.eks. NUMINT.
2. Efter at navnet er lagt i maskinen med ENTER, viser et :, at her begynder en kodelinie.
| Kodelinie | Kommentar |
| :INPUT "A:",A | findes i PRGM / I/O |
| :INPUT "B:",B | |
| :0 ® S | start med summen 0 |
| :A+(B–A)/200 ® X | første intervalmidtpunkt |
| :FOR(I,1,100) | start på løkken |
| :S+Y1(X) ® S | opdater summen |
| :X+(B–A)/100 ® X | næste intervalmidtpunkt |
| :END | løkken slut |
| :DISP S*(B–A)/100 | udskriv midtsummens værdi |
er en mere effektiv metode. En beskrivelse af metoden findes her.
| Kodelinie | Kommentar |
| :INPUT "A:",A | findes i PRGM / I/O |
| :INPUT "B:",B | |
| :–Y1(A)–Y1(B) ® S | start med summen –f(a)–f(b) |
| :A ® X | første intervalpunkt |
| :FOR(I,0,20) | start på løkken |
| :S+(3–(-1)^I)Y1(X) ® S | opdater summen |
| :X+(B–A)/20 ® X | næste intervalpunkt |
| :END | løkken slut |
| :DISP S*(B–A)/60 | udskriv summens værdi |
[ Toppen af siden ]