SHOW:
|
|
- or go back to the newest paste.
| 1 | "12X^3+piX^(1/2)+5.6X^7.89->Str1 | |
| 2 | 0->dim(L2 | |
| 3 | 0->dim(L1 | |
| 4 | Str1+"+->Str1 | |
| 5 | 1->A | |
| 6 | 1->B | |
| 7 | Repeat B=length(Str1 | |
| 8 | For(T,1,2 | |
| 9 | inString(Str1,sub("^+",T,1),B->B
| |
| 10 | Pause sub(Str1,A,B-A-(T=1) | |
| 11 | If T=1 | |
| 12 | Ans->C | |
| 13 | If T=2 | |
| 14 | Ans->E | |
| 15 | {0,1->L1
| |
| 16 | CAns+E->L2 | |
| 17 | LinReg(ax+b) {Y1}
| |
| 18 | Equ>String({Y1},Str2
| |
| 19 | Str3+Str2->Str3 | |
| 20 | B+1->A | |
| 21 | End | |
| 22 | End | |
| 23 | ||
| 24 | ||
| 25 |
