00 { 66158-Byte Prgm }
01▸LBL "HPFX"
02 STD
03 SF 25
04 INDEX "HPReg"
05 FC? 25
06 GTO 00
07 STO "Xext"
08 XASTO "#####"
09 "Xext"
10 ASTO ST X
11 RCL "#####"
12 0
13 4
14 SF 25
15 SUBSTR
16 X=Y?
17 GTO 48
18 CLV "Xext"
19 CLV "#####"
20 CLA
21 ASTO ST X
22 ASTO ST Y
23 SF 25
24 RCL "#-eval-"
25 SF 25
26 RCL "#-cmd-#"
27 APPEND
28 STO "#-eval-"
29 LENGTH
30 X=0?
31 CLV "#-eval-"
32 X=0?
33 GTO 00
34 ADV
35 "Error f(X) in:"
36 PRA
37 SF 25
38 RCL "XF"
39 FC? 25
40 GTO 00
41 SF 25
42 RCL "#-errX-"
43 STO "#-errX-"
44 "X = "
45 ARCL "#-errX-"
46 PRA
47 ADV
48▸LBL 00
49 SF 25
50 INDEX "HPReg"
51 FC? 25
52 XEQ 97
53 INDEX "HPReg"
54 J-
55 RCLIJ
56 50
57 X>Y?
58 XEQ 97
59 SF 25
60 RCL "EQN-#"
61 FS? 25
62 "GTO 10"
63 INDEX "HPReg"
64 J+
65 RCLEL
66 "EQN"
67 ASTO ST Y
68 X≠Y?
69 XEQ 97
70 INDEX "HPReg"
71 J+
72 RCLEL
73 STO "FKT"
74 STO "FKT-TYP"
75 J+
76 RCLEL
77 STO "EQNold"
78 STO "EQNf(X)"
79 J+
80 J+
81 J+
82 J+
83 CLA
84 RCLEL
85 ARCL ST X
86 XASTO ST X
87 STO "#PRGM"
88 "EQN"
89 ASTO ST Y
90 RCL ST Y
91 RCL "FKT"
92 X≠Y?
93 R↑
94 R↑
95 STO "FKT"
96▸LBL 00
97 CLMENU
98 PRON
99 MAN
100 XEQ 96
101 SF 25
102 4STK
103 8
104 ENTER
105 22
106 SF 25
107 SETDS
108 INDEX "HPReg"
109 RCLEL
110 STO "FKT"
111 J+
112 J+
113 RCLEL
114 STO "EQNf(X)"
115 J+
116 RCLEL
117 STO "EQN-#"
118 J+
119 RCLEL
120 STO "EQN-X"
121 J+
122 RCLEL
123 STO "EQN-Z"
124 J+
125 RCLEL
126 CLA
127 ARCL ST X
128 ASTO "#PRGM"
129 J+
130 RCLEL
131 STO "#IT"
132 J+
133 RCLEL
134 STO "#YDIFF"
135 J+
136 RCLEL
137 STO "#XDIFF"
138 J+
139 RCLEL
140 STO "#PRTYN"
141 J+
142 RCLEL
143 STO "#H"
144 J+
145 RCLEL
146 CLA
147 ARCL ST X
148 ASTO "#METHOD"
149 J+
150 RCLEL
151 CLA
152 ARCL ST X
153 ASTO "#METH2"
154▸LBL 10
155 "EXIST FKT?"
156 CF 19
157 TIME
158 DATE
159 +
160 STO "F0"
161 1
162 +
163 1/X
164 STO "XF"
165 SF 25
166 XEQ IND "#PRGM"
167 CLA
168 FS? 25
169 ARCL "#PRGM"
170 ASTO "#PRGM"
171 CLST
172 FS? 42
173 1
174 FS? 43
175 2
176 STO "#MODE"
177 RAD
178▸LBL 11
179 "MAIN MENU"
180 CLV "#-cmd-#"
181 SF 25
182 RCL "FKT-TYP"
183 FC? 25
184 GTO 01
185 "EQN"
186 ASTO ST Y
187 X≠Y?
188 GTO 01
189▸LBL 01
190 CLMENU
191 CLA
192 CLV "###"
193 ARCL "FKT"
194 ALENG
195 X=0?
196 "EQN"
197 X=0?
198 ASTO "FKT"
199 KEY 1 GTO 13
200 "∫f(x)dx"
201 "INTEG"
202 KEY 2 GTO 40
203 "f(x)=0"
204 "SOLVE"
205 KEY 3 GTO 50
206 "f(n)(x)"
207 "DERIV"
208 KEY 4 GTO 65
209 "Print"
210 KEY 5 GTO 75
211 "EXIT"
212 KEY 6 GTO 07
213 " "
214 KEY 7 GTO 10
215 KEY 8 GTO 10
216 KEY 9 GTO 98
217 MENU
218 "R/S  glob. "
219 ├"Param.  R/S"
220 CLST
221 PROMPT
222▸LBL 12
223 CLMENU
224 "Xdiff"
225 KEY 1 GTO 01
226 "Ydiff"
227 KEY 2 GTO 02
228 "#IT"
229 KEY 3 GTO 03
230 "PRT+"
231 RCL "#PRTYN"
232 X=0?
233 "PRT0"
234 X<0?
235 "PRT-"
236 KEY 4 GTO 04
237 "h=E"
238 1ᴇ-4
239 SF 25
240 RCL "#H"
241 STO "#H"
242 LOG
243 AIP
244 KEY 5 GTO 05
245 "BACK"
246 KEY 6 GTO 06
247 KEY 7 GTO 11
248 KEY 8 GTO 11
249 KEY 9 GTO 98
250 CLA
251 MENU
252 0
253 RCL "#IT"
254 RCL "#YDIFF"
255 RCL "#XDIFF"
256 "0  #IT |Ydiff| "
257 ├"|Xdiff|"
258 PROMPT
259 GTO 11
260▸LBL 01
261 X≤0?
262 99
263 999
264 X>Y?
265 X<>Y
266 STO "#IT"
267 GTO 12
268▸LBL 02
269 X≤0?
270 CLX
271 STO "#YDIFF"
272 GTO 12
273▸LBL 03
274 X≤0?
275 CLX
276 STO "#XDIFF"
277 GTO 12
278▸LBL 04
279 -1
280 RCL "#PRTYN"
281 1
282 -
283 X<Y?
284 1
285 STO "#PRTYN"
286 GTO 12
287▸LBL 05
288 FS? 64
289 1ᴇ-4
290 X≤0?
291 RCL "#H"
292 STO "#H"
293 GTO 12
294▸LBL 06
295 FC? 64
296 GTO 11
297 ADV
298 "------------"
299 ├"------------"
300 PRA
301 "f(X) PARAMETER:"
302 PRA
303 PRV "#IT"
304 PRV "#YDIFF"
305 PRV "#XDIFF"
306 PRV "#H"
307 "------------"
308 ├"------------"
309 PRA
310 ADV
311 GTO 11
312▸LBL 07
313 "EXIT MAIN MENU"
314 FS? 64
315 GTO 94
316 GTO 98
317▸LBL 13
318 "EQN or ext. PGM"
319 "INPUT: NAME"
320 "EQN"
321 KEY 1 GTO 03
322 "old"
323 SF 25
324 RCL "EQNold"
325 FC? 25
326 CLA
327 SF 25
328 RCL "EQNf(X)"
329 X=Y?
330 CLA
331 ASTO "#KEY-2#"
332 KEY 2 GTO 02
333 CLA
334 KEY 3 GTO 13
335 "gDGL"
336 KEY 4 GTO 01
337 CLA
338 KEY 5 GTO 13
339 "PRGM"
340 KEY 6 GTO 06
341 KEY 7 GTO 13
342 KEY 8 GTO 13
343 KEY 9 GTO 09
344 CLST
345 "EQN or ext. "
346 ├"PRGM?"
347 MENU
348 PROMPT
349 GTO 13
350▸LBL 01
351 SF 25
352 GTO "HPDGL"
353 GTO 13
354▸LBL 02
355 RCL "#KEY-2#"
356 LENGTH
357 X=0?
358 GTO 13
359 CLV "#KEY-2#"
360 RCL "EQNf(X)"
361 X<> "EQNold"
362 STO "EQNf(X)"
363▸LBL 03
364 CLV "#LASTn"
365 CLST
366 "VAR = X or Z"
367 ├" or #"
368 XASTO ST Z
369 "^ = ** or ×× or"
370 ├" '"
371 XASTO ST Y
372 "Use SKIN: HP-41"
373 ├"EQN or:"
374 ├"Write Equation"
375 ├" direct"
376 PROFF
377 AVIEW
378 PRON
379 CLA
380 SF 25
381 RCL "EQNf(X)"
382 FC? 25
383 ENTER
384 X<>Y
385 FS? 25
386 ARCL ST Y
387 AON
388 CLMENU
389 STOP
390 GTO 05
391▸LBL 09
392 SF 25
393 INDEX "EQN-ARR"
394 FC? 25
395 GTO 02
396 X>0?
397 GTO 01
398 ALENG
399 X>0?
400 GTO 03
401 GTO 04
402▸LBL 01
403 1
404 -
405 X>0?
406 GTO 01
407 RCL "EQN-ARR"
408 DIM?
409 STOIJ
410 RCLEL
411 ENTER
412 "("
413 ASTO ST Y
414 X=Y?
415 DSE "#(-n"
416 STO ST X
417 ")"
418 ASTO ST Y
419 X=Y?
420 ISG "#(-n"
421 STO ST X
422 R↓
423 R↓
424 1
425 -
426 X=0?
427 10↑X
428 DIM "EQN-ARR"
429 GTO 04
430▸LBL 01
431 1
432 -
433 X>0?
434 GTO 01
435 CLV "#EQN"
436 CLV "###VON"
437 CLV "###BIS"
438▸LBL 01
439 1
440 -
441 X>0?
442 GTO 01
443▸LBL 02
444 ASTO "###"
445 1
446 ENTER
447 DIM "EQN-ARR"
448 "#EQN"
449 ASTO ST X
450 INDEX "EQN-ARR"
451 STOEL
452 CLST
453 STO "#(-n"
454 CLA
455 ARCL "###"
456 CLV "###"
457 ALENG
458 X>0?
459 GTO 03
460 CLA
461 ASTO ST X
462 "Equation = ?"
463 PROMPT
464▸LBL 01
465 1
466 -
467 X>0?
468 GTO 01
469 CLV "#(-n"
470 CLV "#EQN"
471 CLV "###EQN"
472 CLV "###VON"
473 CLV "###BIS"
474 CLV "EQN-ARR"
475 CLST
476 "Back to HP-41G "
477 ├"& R/S"
478 PROMPT
479 CLA
480 ARCL "EQNf(X)"
481 GTO 05
482▸LBL 01
483 RCL "#(-n"
484 X≤0?
485 GTO 01
486 RCL "###EQN"
487 LENGTH
488 +
489 RCL "###EQN"
490 ENTER
491 ")))))))))))))))"
492 ├"))))))))))))))"
493 XASTO ST X
494 APPEND
495 X<>Y
496 0
497 X<>Y
498 SUBSTR
499 STO "###EQN"
500▸LBL 01
501 CLV "#(-n"
502 RCL "###EQN"
503 STO "#EQN"
504 CLV "###EQN"
505 CLV "###VON"
506 CLV "###BIS"
507 CLV "EQN-ARR"
508 "Equation #EQN "
509 ├"saved   "
510 ├"Change SKIN & "
511 ├"R/S"
512 PROMPT
513 GTO 05
514▸LBL 03
515 RCL "EQN-ARR"
516 DIM?
517 1
518 +
519 DIM "EQN-ARR"
520 INDEX "EQN-ARR"
521 J-
522 ASTO ST X
523 STOEL
524 "("
525 ASTO ST Y
526 X=Y?
527 ISG "#(-n"
528 STO ST X
529 ")"
530 ASTO ST Y
531 X=Y?
532 DSE "#(-n"
533 STO ST X
534▸LBL 04
535 CLA
536 ASTO "###EQN"
537 2
538 STO "###VON"
539 RCL "EQN-ARR"
540 DIM?
541 STO "###BIS"
542▸LBL 14
543 RCL "###BIS"
544 RCL "###VON"
545 X>Y?
546 GTO 01
547 1
548 STO+ "###VON"
549 X<>Y
550 INDEX "EQN-ARR"
551 STOIJ
552 RCL "###EQN"
553 RCLEL
554 APPEND
555 STO "###EQN"
556 GTO 14
557▸LBL 01
558 CLST
559 CLA
560 RCL "###EQN"
561 LENGTH
562 16
563 X<Y?
564 "…"
565 -
566 X<0?
567 0
568 RCL "###EQN"
569 X<>Y
570 SUBSTR
571 ARCL ST X
572 CLST
573 XASTO ST X
574 STOP
575 CLV "#(-n"
576 CLV "#EQN"
577 CLV "###EQN"
578 CLV "###VON"
579 CLV "###BIS"
580 CLV "EQN-ARR"
581 CLST
582 CLA
583▸LBL 05
584 CLV "#EQN"
585 AOFF
586 XASTO ST Y
587 ENTER
588 TYPE?
589 5
590 -
591 X≠0?
592 R↓
593 R↓
594 STO "###"
595 LENGTH
596 X=0?
597 GTO 13
598 RCL "###"
599 ENTER
600 "="
601 ASTO ST X
602 POS
603 X<0?
604 GTO 01
605 RCL "###"
606 X<>Y
607 1
608 +
609 SUBSTR
610 STO "###"
611▸LBL 01
612 "EQN"
613 ASTO "FKT-TYP"
614 RCL "###"
615 STO "EQNf(X)"
616 LENGTH
617 STO "#I"
618 CLV "#KEY-2#"
619 CLV "###("
620 CLV "###130"
621 GTO 15
622▸LBL 06
623 "f(X): PRGM-"
624 ├"Name    R/S"
625 ├"Length L: 1"
626 ├"≤ L ≤ 7"
627 CLV "#KEY-2#"
628 PROFF
629 AVIEW
630 PRON
631 CLA
632 SF 25
633 ARCL "#PRGM"
634 AON
635 STOP
636 AOFF
637 ALENG
638 X=0?
639 GTO 11
640 7
641 X<Y?
642 GTO 11
643 ASTO "#PRGM"
644 TIME
645 DATE
646 +
647 STO "F0"
648 1
649 +
650 1/X
651 STO "XF"
652 SF 25
653 XEQ IND "#PRGM"
654 CLA
655 FC? 25
656 ASTO "#PRGM"
657 FC? 25
658 GTO 11
659 "PRGM"
660 ASTO "FKT-TYP"
661 RCL "#PRGM"
662 STO "FKT"
663 STO "#MBEST"
664 GTO 11
665▸LBL 08
666 CLV "###"
667 CLV "#KEY-2#"
668 GTO 98
669▸LBL 01
670 GTO 13
671▸LBL 15
672 "Umbau EQN ..."
673 RCL "#I"
674 X≤0?
675 GTO IND "#15-GTO"
676 RCL "###"
677 0
678 ENTER
679 1
680 STO "#15-GTO"
681 SUBSTR
682 STO "#CHARa"
683 CLA
684 ARCL ST X
685 122
686 ATOX
687 STO "#CHARn"
688 SF 25
689 RCL "#LASTn"
690 STO "#LASTn"
691 FS? 25
692 R↓
693 -
694 LASTX
695 97
696 -
697 ×
698 X≥0?
699 32
700 X>0?
701 STO- "#CHARn"
702 "*"
703 57
704 RCL "#LASTn"
705 -
706 LASTX
707 48
708 -
709 ×
710 X<0?
711 CLA
712 90
713 RCL "#CHARn"
714 -
715 LASTX
716 63
717 -
718 ×
719 X<0?
720 CLA
721 RCL "#CHARn"
722 STO "#LASTn"
723 XTOA
724 RCL "###"
725 1
726 SUBSTR
727 ENTER
728 ASTO ST X
729 APPEND
730 STO "###"
731 DSE "#I"
732 GTO 15
733 CLV "#LASTa"
734 RCL "###"
735 STO "###130"
736 XEQ 09
737 XEQ 08
738 XEQ 07
739 RCL "###("
740 STO "###"
741 STO "EQNf(X)"
742 GTO 15
743▸LBL 01
744 "... fÜr EQNf(X)"
745 RCL "###"
746 ENTER
747 ENTER
748 ENTER
749 "*DIV"
750 ASTO ST X
751 POS
752 X<0?
753 GTO 01
754 STO "#POS"
755 0
756 X<>Y
757 SUBSTR
758 ENTER
759 "/"
760 ASTO ST X
761 APPEND
762 X<>Y
763 RCL "#POS"
764 4
765 +
766 SUBSTR
767 APPEND
768 STO "###"
769 GTO 15
770▸LBL 01
771 RCL "###"
772 ENTER
773 ENTER
774 ENTER
775 "DIV"
776 ASTO ST X
777 POS
778 X<0?
779 GTO 01
780 STO "#POS"
781 0
782 X<>Y
783 SUBSTR
784 ENTER
785 "/"
786 ASTO ST X
787 APPEND
788 X<>Y
789 RCL "#POS"
790 3
791 +
792 SUBSTR
793 APPEND
794 STO "###"
795 STO "EQNf(X)"
796 GTO 15
797▸LBL 01
798 RCL "###"
799 ENTER
800 ENTER
801 ENTER
802 "/+"
803 ASTO ST X
804 POS
805 STO "#POS"
806 "÷+"
807 ASTO ST X
808 POS
809 RCL "#POS"
810 X>Y?
811 X<>Y
812 R↓
813 X<0?
814 GTO 01
815 STO "#POS"
816 0
817 X<>Y
818 SUBSTR
819 ENTER
820 "/"
821 ASTO ST X
822 APPEND
823 X<>Y
824 RCL "#POS"
825 2
826 +
827 SUBSTR
828 APPEND
829 STO "###"
830 GTO 15
831▸LBL 01
832 RCL "###"
833 ENTER
834 ENTER
835 ENTER
836 "++"
837 ASTO ST X
838 POS
839 X<0?
840 GTO 01
841 STO "#POS"
842 0
843 X<>Y
844 SUBSTR
845 X<>Y
846 RCL "#POS"
847 1
848 +
849 SUBSTR
850 APPEND
851 STO "###"
852 STO "EQNf(X)"
853 GTO 15
854▸LBL 01
855 RCL "###"
856 ENTER
857 ENTER
858 ENTER
859 "--"
860 ASTO ST X
861 POS
862 X<0?
863 GTO 01
864 STO "#POS"
865 0
866 X<>Y
867 SUBSTR
868 ENTER
869 "+"
870 ASTO ST X
871 APPEND
872 X<>Y
873 RCL "#POS"
874 2
875 +
876 SUBSTR
877 APPEND
878 STO "###"
879 STO "EQNf(X)"
880 GTO 15
881▸LBL 01
882 RCL "###"
883 ENTER
884 ENTER
885 ENTER
886 "+-"
887 ASTO ST X
888 POS
889 X<0?
890 GTO 01
891 STO "#POS"
892 0
893 X<>Y
894 SUBSTR
895 X<>Y
896 RCL "#POS"
897 1
898 +
899 SUBSTR
900 APPEND
901 STO "###"
902 STO "EQNf(X)"
903 GTO 15
904▸LBL 01
905 RCL "###"
906 ENTER
907 ENTER
908 ENTER
909 "-+"
910 ASTO ST X
911 POS
912 X<0?
913 GTO 01
914 1
915 +
916 STO "#POS"
917 0
918 X<>Y
919 SUBSTR
920 X<>Y
921 RCL "#POS"
922 1
923 +
924 SUBSTR
925 APPEND
926 STO "###"
927 STO "EQNf(X)"
928 GTO 15
929▸LBL 01
930 RCL "###"
931 ENTER
932 ENTER
933 ENTER
934 0
935 1
936 SUBSTR
937 "+"
938 ASTO ST Y
939 X≠Y?
940 GTO 01
941 R↓
942 R↓
943 1
944 SUBSTR
945 STO "###"
946 STO "EQNf(X)"
947 GTO 15
948▸LBL 01
949 RCL "###"
950 ENTER
951 ENTER
952 ENTER
953 "LG"
954 ASTO ST X
955 POS
956 X<0?
957 GTO 01
958 STO "#POS"
959 0
960 X<>Y
961 SUBSTR
962 ENTER
963 "LOG"
964 ASTO ST X
965 APPEND
966 X<>Y
967 RCL "#POS"
968 2
969 +
970 SUBSTR
971 APPEND
972 STO "###"
973 STO "EQNf(X)"
974 GTO 15
975▸LBL 01
976 RCL "###"
977 ENTER
978 ENTER
979 ENTER
980 "ALN"
981 ASTO ST X
982 POS
983 X<0?
984 GTO 01
985 STO "#POS"
986 0
987 X<>Y
988 SUBSTR
989 ENTER
990 "EXP"
991 ASTO ST X
992 APPEND
993 X<>Y
994 RCL "#POS"
995 3
996 +
997 SUBSTR
998 APPEND
999 STO "###"
1000 STO "EQNf(X)"
1001 GTO 15
1002▸LBL 01
1003 RCL "###"
1004 ENTER
1005 ENTER
1006 ENTER
1007 "ALOG"
1008 ASTO ST X
1009 POS
1010 X<0?
1011 GTO 01
1012 STO "#POS"
1013 0
1014 X<>Y
1015 SUBSTR
1016 ENTER
1017 "10^"
1018 ASTO ST X
1019 APPEND
1020 X<>Y
1021 RCL "#POS"
1022 4
1023 +
1024 SUBSTR
1025 APPEND
1026 STO "###"
1027 STO "EQNf(X)"
1028 GTO 15
1029▸LBL 01
1030 RCL "###"
1031 ENTER
1032 ENTER
1033 ENTER
1034 "•LOG•_("
1035 XASTO ST X
1036 POS
1037 X<0?
1038 GTO 01
1039 STO "#POS"
1040 0
1041 X<>Y
1042 SUBSTR
1043 ENTER
1044 "LOG↓"
1045 ASTO ST X
1046 APPEND
1047 X<>Y
1048 RCL "#POS"
1049 7
1050 +
1051 SUBSTR
1052 ENTER
1053 ENTER
1054 ") "
1055 ASTO ST X
1056 POS
1057 STO+ "#POS"
1058 0
1059 X<>Y
1060 SUBSTR
1061 APPEND
1062 ENTER
1063 "↓"
1064 ASTO ST X
1065 APPEND
1066 RCL "###"
1067 RCL "#POS"
1068 9
1069 +
1070 SUBSTR
1071 APPEND
1072 STO "###"
1073 STO "EQNf(X)"
1074 GTO 15
1075▸LBL 01
1076 RCL "###"
1077 ENTER
1078 ENTER
1079 ENTER
1080 "•LOG•_"
1081 ASTO ST X
1082 POS
1083 X<0?
1084 GTO 01
1085 STO "#POS"
1086 0
1087 X<>Y
1088 SUBSTR
1089 ENTER
1090 "LOG↓"
1091 ASTO ST X
1092 APPEND
1093 X<>Y
1094 RCL "#POS"
1095 6
1096 +
1097 SUBSTR
1098 ENTER
1099 ENTER
1100 " "
1101 ASTO ST X
1102 POS
1103 STO+ "#POS"
1104 0
1105 X<>Y
1106 SUBSTR
1107 APPEND
1108 ENTER
1109 "↓"
1110 ASTO ST X
1111 APPEND
1112 RCL "###"
1113 RCL "#POS"
1114 7
1115 +
1116 SUBSTR
1117 APPEND
1118 STO "###"
1119 STO "EQNf(X)"
1120 GTO 15
1121▸LBL 01
1122 RCL "###"
1123 ENTER
1124 ENTER
1125 ENTER
1126 "_"
1127 ASTO ST X
1128 POS
1129 X<0?
1130 GTO 01
1131 STO "#POS"
1132 0
1133 X<>Y
1134 SUBSTR
1135 ENTER
1136 "↓"
1137 ASTO ST X
1138 APPEND
1139 X<>Y
1140 RCL "#POS"
1141 1
1142 +
1143 SUBSTR
1144 APPEND
1145 STO "###"
1146 STO "EQNf(X)"
1147 GTO 15
1148▸LBL 01
1149 RCL "###"
1150 ENTER
1151 ENTER
1152 ENTER
1153 "•"
1154 ASTO ST X
1155 POS
1156 X<0?
1157 GTO 01
1158 STO "#POS"
1159 0
1160 X<>Y
1161 SUBSTR
1162 X<>Y
1163 RCL "#POS"
1164 1
1165 +
1166 SUBSTR
1167 APPEND
1168 STO "###"
1169 STO "EQNf(X)"
1170 GTO 15
1171▸LBL 01
1172 RCL "###"
1173 ENTER
1174 ENTER
1175 ENTER
1176 " "
1177 ASTO ST X
1178 POS
1179 X<0?
1180 GTO 01
1181 STO "#POS"
1182 0
1183 X<>Y
1184 SUBSTR
1185 X<>Y
1186 RCL "#POS"
1187 1
1188 +
1189 SUBSTR
1190 APPEND
1191 STO "###"
1192 STO "EQNf(X)"
1193 GTO 15
1194▸LBL 01
1195 RCL "###"
1196 ENTER
1197 ENTER
1198 ENTER
1199 "PI"
1200 ASTO ST X
1201 POS
1202 X<0?
1203 GTO 01
1204 STO "#POS"
1205 0
1206 X<>Y
1207 SUBSTR
1208 ENTER
1209 "π"
1210 ASTO ST X
1211 APPEND
1212 X<>Y
1213 RCL "#POS"
1214 2
1215 +
1216 SUBSTR
1217 APPEND
1218 STO "###"
1219 STO "EQNf(X)"
1220 GTO 15
1221▸LBL 01
1222 RCL "###"
1223 ENTER
1224 ENTER
1225 ENTER
1226 "CTG"
1227 ASTO ST X
1228 POS
1229 X<0?
1230 GTO 01
1231 STO "#POS"
1232 0
1233 X<>Y
1234 SUBSTR
1235 ENTER
1236 "COT"
1237 ASTO ST X
1238 APPEND
1239 X<>Y
1240 RCL "#POS"
1241 3
1242 +
1243 SUBSTR
1244 APPEND
1245 STO "###"
1246 STO "EQNf(X)"
1247 GTO 15
1248▸LBL 01
1249 RCL "###"
1250 ENTER
1251 ENTER
1252 ENTER
1253 "COSEC"
1254 ASTO ST X
1255 POS
1256 X<0?
1257 GTO 01
1258 STO "#POS"
1259 0
1260 X<>Y
1261 SUBSTR
1262 ENTER
1263 "CSC"
1264 ASTO ST X
1265 APPEND
1266 X<>Y
1267 RCL "#POS"
1268 5
1269 +
1270 SUBSTR
1271 APPEND
1272 STO "###"
1273 STO "EQNf(X)"
1274 GTO 15
1275▸LBL 01
1276 RCL "###"
1277 ENTER
1278 ENTER
1279 ENTER
1280 "SEC"
1281 ASTO ST X
1282 POS
1283 X<0?
1284 GTO 01
1285 STO "#POS"
1286 0
1287 X<>Y
1288 SUBSTR
1289 ENTER
1290 "SÅC"
1291 ASTO ST X
1292 APPEND
1293 X<>Y
1294 RCL "#POS"
1295 3
1296 +
1297 SUBSTR
1298 APPEND
1299 STO "###"
1300 STO "EQNf(X)"
1301 GTO 15
1302▸LBL 01
1303 RCL "###"
1304 ENTER
1305 ENTER
1306 ENTER
1307 "ARCC"
1308 ASTO ST X
1309 POS
1310 X<0?
1311 GTO 01
1312 STO "#POS"
1313 0
1314 X<>Y
1315 SUBSTR
1316 ENTER
1317 "AC"
1318 ASTO ST X
1319 APPEND
1320 X<>Y
1321 RCL "#POS"
1322 4
1323 +
1324 SUBSTR
1325 APPEND
1326 STO "###"
1327 STO "EQNf(X)"
1328 GTO 15
1329▸LBL 01
1330 RCL "###"
1331 ENTER
1332 ENTER
1333 ENTER
1334 "ARCSC"
1335 ASTO ST X
1336 POS
1337 X<0?
1338 GTO 01
1339 STO "#POS"
1340 0
1341 X<>Y
1342 SUBSTR
1343 ENTER
1344 "ACSC"
1345 ASTO ST X
1346 APPEND
1347 X<>Y
1348 RCL "#POS"
1349 5
1350 +
1351 SUBSTR
1352 APPEND
1353 STO "###"
1354 STO "EQNf(X)"
1355 GTO 15
1356▸LBL 01
1357 RCL "###"
1358 ENTER
1359 ENTER
1360 ENTER
1361 "ARCS"
1362 ASTO ST X
1363 POS
1364 X<0?
1365 GTO 01
1366 STO "#POS"
1367 0
1368 X<>Y
1369 SUBSTR
1370 ENTER
1371 "AS"
1372 ASTO ST X
1373 APPEND
1374 X<>Y
1375 RCL "#POS"
1376 2
1377 STO- "#I"
1378 STO+ ST X
1379 +
1380 SUBSTR
1381 APPEND
1382 STO "###"
1383 STO "EQNf(X)"
1384 GTO 15
1385▸LBL 01
1386 RCL "###"
1387 ENTER
1388 ENTER
1389 ENTER
1390 "ARCT"
1391 ASTO ST X
1392 POS
1393 X<0?
1394 GTO 01
1395 STO "#POS"
1396 0
1397 X<>Y
1398 SUBSTR
1399 ENTER
1400 "AT"
1401 ASTO ST X
1402 APPEND
1403 X<>Y
1404 RCL "#POS"
1405 4
1406 +
1407 SUBSTR
1408 APPEND
1409 STO "###"
1410 STO "EQNf(X)"
1411 GTO 15
1412▸LBL 01
1413 RCL "###"
1414 ENTER
1415 ENTER
1416 ENTER
1417 "AR"
1418 ASTO ST X
1419 POS
1420 X<0?
1421 GTO 01
1422 STO "#POS"
1423 0
1424 X<>Y
1425 SUBSTR
1426 ENTER
1427 "A"
1428 ASTO ST X
1429 APPEND
1430 X<>Y
1431 RCL "#POS"
1432 2
1433 +
1434 SUBSTR
1435 APPEND
1436 STO "###"
1437 STO "EQNf(X)"
1438 GTO 15
1439▸LBL 01
1440 RCL "###"
1441 ENTER
1442 ENTER
1443 ENTER
1444 "."
1445 ASTO ST X
1446 POS
1447 X<>Y
1448 ENTER
1449 ":"
1450 ASTO ST X
1451 POS
1452 X>Y?
1453 X<>Y
1454 R↓
1455 X<>Y
1456 ENTER
1457 ";"
1458 ASTO ST X
1459 POS
1460 X>Y?
1461 X<>Y
1462 R↓
1463 X<0?
1464 GTO 01
1465 STO "#POS"
1466 0
1467 X<>Y
1468 SUBSTR
1469 ENTER
1470 ","
1471 ASTO ST X
1472 APPEND
1473 X<>Y
1474 RCL "#POS"
1475 1
1476 +
1477 SUBSTR
1478 APPEND
1479 STO "###"
1480 STO "EQNf(X)"
1481 GTO 15
1482▸LBL 01
1483 RCL "###"
1484 ENTER
1485 ENTER
1486 ENTER
1487 0
1488 1
1489 SUBSTR
1490 ","
1491 ASTO ST Y
1492 X≠Y?
1493 GTO 01
1494 "0"
1495 ASTO ST X
1496 R↑
1497 APPEND
1498 STO "###"
1499 STO "EQNf(X)"
1500 GTO 15
1501▸LBL 01
1502 RCL "###"
1503 REV
1504 ENTER
1505 ENTER
1506 ENTER
1507 0
1508 1
1509 SUBSTR
1510 ","
1511 ASTO ST Y
1512 X≠Y?
1513 GTO 01
1514 "0"
1515 ASTO ST X
1516 R↑
1517 APPEND
1518 REV
1519 STO "###"
1520 STO "EQNf(X)"
1521 GTO 15
1522▸LBL 01
1523 RCL "###"
1524 ENTER
1525 ENTER
1526 ENTER
1527 "{"
1528 ASTO ST X
1529 POS
1530 X<>Y
1531 ENTER
1532 "["
1533 ASTO ST X
1534 POS
1535 X>Y?
1536 X<>Y
1537 R↓
1538 X<>Y
1539 ENTER
1540 "<"
1541 ASTO ST X
1542 POS
1543 X>Y?
1544 X<>Y
1545 R↓
1546 X<0?
1547 GTO 01
1548 STO "#POS"
1549 0
1550 X<>Y
1551 SUBSTR
1552 ENTER
1553 "("
1554 ASTO ST X
1555 APPEND
1556 X<>Y
1557 RCL "#POS"
1558 1
1559 +
1560 SUBSTR
1561 APPEND
1562 STO "###"
1563 STO "EQNf(X)"
1564 GTO 15
1565▸LBL 01
1566 RCL "###"
1567 ENTER
1568 ENTER
1569 ENTER
1570 "}"
1571 ASTO ST X
1572 POS
1573 X<>Y
1574 ENTER
1575 "]"
1576 ASTO ST X
1577 POS
1578 X>Y?
1579 X<>Y
1580 R↓
1581 X<>Y
1582 ENTER
1583 ">"
1584 ASTO ST X
1585 POS
1586 X>Y?
1587 X<>Y
1588 R↓
1589 X<0?
1590 GTO 01
1591 STO "#POS"
1592 0
1593 X<>Y
1594 SUBSTR
1595 ENTER
1596 ")"
1597 ASTO ST X
1598 APPEND
1599 X<>Y
1600 RCL "#POS"
1601 1
1602 +
1603 SUBSTR
1604 APPEND
1605 STO "###"
1606 STO "EQNf(X)"
1607 GTO 15
1608▸LBL 01
1609 RCL "###"
1610 ENTER
1611 ENTER
1612 ENTER
1613 "(+"
1614 ASTO ST X
1615 POS
1616 X<0?
1617 GTO 01
1618 1
1619 +
1620 STO "#POS"
1621 0
1622 X<>Y
1623 SUBSTR
1624 X<>Y
1625 RCL "#POS"
1626 1
1627 +
1628 SUBSTR
1629 APPEND
1630 STO "###"
1631 STO "EQNf(X)"
1632 GTO 15
1633▸LBL 01
1634 RCL "###"
1635 ENTER
1636 ENTER
1637 ENTER
1638 "÷"
1639 ASTO ST X
1640 POS
1641 X<0?
1642 GTO 01
1643 STO "#POS"
1644 0
1645 X<>Y
1646 SUBSTR
1647 ENTER
1648 "/"
1649 ASTO ST X
1650 APPEND
1651 X<>Y
1652 RCL "#POS"
1653 1
1654 +
1655 SUBSTR
1656 APPEND
1657 STO "###"
1658 STO "EQNf(X)"
1659 GTO 15
1660▸LBL 01
1661 RCL "###"
1662 ENTER
1663 ENTER
1664 ENTER
1665 "×"
1666 ASTO ST X
1667 POS
1668 X<0?
1669 GTO 01
1670 STO "#POS"
1671 0
1672 X<>Y
1673 SUBSTR
1674 ENTER
1675 "*"
1676 ASTO ST X
1677 APPEND
1678 X<>Y
1679 RCL "#POS"
1680 1
1681 +
1682 SUBSTR
1683 APPEND
1684 STO "###"
1685 STO "EQNf(X)"
1686 GTO 15
1687▸LBL 01
1688 RCL "###"
1689 ENTER
1690 ENTER
1691 ENTER
1692 "**"
1693 ASTO ST X
1694 POS
1695 X<0?
1696 GTO 01
1697 STO "#POS"
1698 0
1699 X<>Y
1700 SUBSTR
1701 ENTER
1702 "^"
1703 ASTO ST X
1704 APPEND
1705 X<>Y
1706 RCL "#POS"
1707 2
1708 +
1709 SUBSTR
1710 APPEND
1711 STO "###"
1712 STO "EQNf(X)"
1713 GTO 15
1714▸LBL 01
1715 RCL "###"
1716 ENTER
1717 ENTER
1718 ENTER
1719 "^^"
1720 ASTO ST X
1721 POS
1722 X<0?
1723 GTO 01
1724 STO "#POS"
1725 0
1726 X<>Y
1727 SUBSTR
1728 ENTER
1729 "^"
1730 ASTO ST X
1731 APPEND
1732 X<>Y
1733 RCL "#POS"
1734 2
1735 +
1736 SUBSTR
1737 APPEND
1738 STO "###"
1739 STO "EQNf(X)"
1740 GTO 15
1741▸LBL 01
1742 RCL "###"
1743 ENTER
1744 ENTER
1745 ENTER
1746 "^+"
1747 ASTO ST X
1748 POS
1749 X<0?
1750 GTO 01
1751 STO "#POS"
1752 0
1753 X<>Y
1754 SUBSTR
1755 ENTER
1756 "^"
1757 ASTO ST X
1758 APPEND
1759 X<>Y
1760 RCL "#POS"
1761 2
1762 +
1763 SUBSTR
1764 APPEND
1765 STO "###"
1766 STO "EQNf(X)"
1767 GTO 15
1768▸LBL 01
1769 RCL "###"
1770 ENTER
1771 ENTER
1772 ENTER
1773 "N^"
1774 ASTO ST X
1775 POS
1776 STO "#POS"
1777 "G^"
1778 ASTO ST X
1779 POS
1780 RCL "#POS"
1781 X<Y?
1782 X<>Y
1783 STO "#POS"
1784 +
1785 "S^"
1786 ASTO ST X
1787 POS
1788 RCL "#POS"
1789 X<Y?
1790 X<>Y
1791 STO "#POS"
1792 +
1793 "T^"
1794 ASTO ST X
1795 POS
1796 RCL "#POS"
1797 X<Y?
1798 X<>Y
1799 STO "#POS"
1800 +
1801 "C^"
1802 ASTO ST X
1803 POS
1804 RCL "#POS"
1805 X<Y?
1806 X<>Y
1807 STO "#POS"
1808 +
1809 "H^"
1810 ASTO ST X
1811 POS
1812 RCL "#POS"
1813 X>Y?
1814 X<>Y
1815 R↓
1816 X<0?
1817 GTO 01
1818 STO "#POS"
1819 2
1820 +
1821 SUBSTR
1822 ENTER
1823 ENTER
1824 ENTER
1825 "("
1826 ASTO ST X
1827 POS
1828 0
1829 X<>Y
1830 SUBSTR
1831 STO "#TXT3"
1832 X<>Y
1833 LASTX
1834 SUBSTR
1835 ENTER
1836 ENTER
1837 ENTER
1838 ")"
1839 ASTO ST X
1840 POS
1841 1
1842 +
1843 SUBSTR
1844 STO "#TXT4"
1845 X<>Y
1846 0
1847 LASTX
1848 SUBSTR
1849 STO "#TXT2"
1850 RCL "###"
1851 0
1852 RCL "#POS"
1853 1
1854 +
1855 SUBSTR
1856 REV
1857 STO "#TXT"
1858 ENTER
1859 ENTER
1860 ENTER
1861 LENGTH
1862 STO "#POS2"
1863 "+"
1864 ASTO ST X
1865 POS
1866 RCL "#POS2"
1867 X>Y?
1868 X<>Y
1869 X<0?
1870 X<>Y
1871 STO "#POS2"
1872 +
1873 "-"
1874 ASTO ST X
1875 POS
1876 RCL "#POS2"
1877 X>Y?
1878 X<>Y
1879 X<0?
1880 X<>Y
1881 STO "#POS2"
1882 +
1883 "*"
1884 ASTO ST X
1885 POS
1886 RCL "#POS2"
1887 X>Y?
1888 X<>Y
1889 X<0?
1890 X<>Y
1891 STO "#POS2"
1892 +
1893 "/"
1894 ASTO ST X
1895 POS
1896 RCL "#POS2"
1897 X>Y?
1898 X<>Y
1899 X<0?
1900 X<>Y
1901 STO "#POS2"
1902 +
1903 "^"
1904 ASTO ST X
1905 POS
1906 RCL "#POS2"
1907 X>Y?
1908 X<>Y
1909 X<0?
1910 X<>Y
1911 STO "#POS2"
1912 RCL "#TXT"
1913 0
1914 RCL "#POS2"
1915 SUBSTR
1916 ENTER
1917 "("
1918 ASTO ST X
1919 APPEND
1920 RCL "#TXT"
1921 RCL "#POS2"
1922 SUBSTR
1923 APPEND
1924 REV
1925 RCL "#TXT2"
1926 APPEND
1927 ENTER
1928 ")^("
1929 ASTO ST X
1930 APPEND
1931 RCL "#TXT3"
1932 APPEND
1933 ENTER
1934 ")"
1935 ASTO ST X
1936 APPEND
1937 RCL "#TXT4"
1938 APPEND
1939 STO "###"
1940 GTO 15
1941▸LBL 01
1942 RCL "###"
1943 ENTER
1944 ENTER
1945 ENTER
1946 "*+"
1947 ASTO ST X
1948 POS
1949 X<0?
1950 GTO 01
1951 1
1952 +
1953 STO "#POS"
1954 0
1955 X<>Y
1956 SUBSTR
1957 X<>Y
1958 RCL "#POS"
1959 1
1960 +
1961 SUBSTR
1962 APPEND
1963 STO "###"
1964 STO "EQNf(X)"
1965 GTO 15
1966▸LBL 01
1967 RCL "###"
1968 ENTER
1969 ENTER
1970 ENTER
1971 "E↑"
1972 ASTO ST X
1973 POS
1974 X<>Y
1975 ENTER
1976 "E'"
1977 ASTO ST X
1978 POS
1979 X>Y?
1980 X<>Y
1981 R↓
1982 X<>Y
1983 ENTER
1984 "E^"
1985 ASTO ST X
1986 POS
1987 X>Y?
1988 X<>Y
1989 R↓
1990 X<0?
1991 GTO 01
1992 STO "#POS"
1993 0
1994 X<>Y
1995 SUBSTR
1996 ENTER
1997 "?"
1998 ASTO ST X
1999 APPEND
2000 X<>Y
2001 RCL "#POS"
2002 2
2003 +
2004 SUBSTR
2005 APPEND
2006 STO "###"
2007 STO "EQNf(X)"
2008 GTO 15
2009▸LBL 01
2010 RCL "###"
2011 ENTER
2012 ENTER
2013 ENTER
2014 "EXP"
2015 ASTO ST X
2016 POS
2017 X<0?
2018 GTO 01
2019 STO "#POS"
2020 0
2021 X<>Y
2022 SUBSTR
2023 ENTER
2024 "?"
2025 ASTO ST X
2026 APPEND
2027 X<>Y
2028 RCL "#POS"
2029 3
2030 +
2031 SUBSTR
2032 APPEND
2033 STO "###"
2034 STO "EQNf(X)"
2035 GTO 15
2036▸LBL 01
2037 RCL "###"
2038 ENTER
2039 ENTER
2040 ENTER
2041 "?-"
2042 ASTO ST X
2043 POS
2044 X<0?
2045 GTO 01
2046 STO "#POS"
2047 0
2048 X<>Y
2049 SUBSTR
2050 ENTER
2051 "¿"
2052 ASTO ST X
2053 APPEND
2054 X<>Y
2055 RCL "#POS"
2056 2
2057 +
2058 SUBSTR
2059 APPEND
2060 STO "###"
2061 STO "EQNf(X)"
2062 GTO 15
2063▸LBL 01
2064 RCL "###"
2065 ENTER
2066 ENTER
2067 ENTER
2068 "E"
2069 ASTO ST X
2070 POS
2071 X<0?
2072 GTO 01
2073 STO "#POS"
2074 1
2075 +
2076 ENTER
2077 ISG ST X
2078 STO ST X
2079 SF 25
2080 SUBSTR
2081 CLA
2082 FC? 25
2083 +
2084 FC? 25
2085 +/-
2086 ARCL ST X
2087 R↓
2088 57
2089 ATOX
2090 -
2091 LASTX
2092 48
2093 -
2094 ×
2095 "e"
2096 X≥0?
2097 ├"*"
2098 R↓
2099 0
2100 RCL "#POS"
2101 SF 25
2102 SUBSTR
2103 ENTER
2104 ASTO ST X
2105 APPEND
2106 X<>Y
2107 RCL "#POS"
2108 1
2109 +
2110 SUBSTR
2111 APPEND
2112 STO "###"
2113 STO "EQNf(X)"
2114 GTO 15
2115▸LBL 01
2116 RCL "###"
2117 ENTER
2118 ENTER
2119 ENTER
2120 "e("
2121 ASTO ST X
2122 POS
2123 X<0?
2124 GTO 01
2125 STO "#POS"
2126 0
2127 X<>Y
2128 SUBSTR
2129 ENTER
2130 "e*("
2131 ASTO ST X
2132 APPEND
2133 X<>Y
2134 RCL "#POS"
2135 2
2136 +
2137 SUBSTR
2138 APPEND
2139 STO "###"
2140 STO "EQNf(X)"
2141 GTO 15
2142▸LBL 01
2143 RCL "###"
2144 ENTER
2145 ENTER
2146 ENTER
2147 ")e"
2148 ASTO ST X
2149 POS
2150 X<0?
2151 GTO 01
2152 STO "#POS"
2153 0
2154 X<>Y
2155 SUBSTR
2156 ENTER
2157 ")*e"
2158 ASTO ST X
2159 APPEND
2160 X<>Y
2161 RCL "#POS"
2162 2
2163 +
2164 SUBSTR
2165 APPEND
2166 STO "###"
2167 STO "EQNf(X)"
2168 GTO 15
2169▸LBL 01
2170 RCL "###"
2171 ENTER
2172 ENTER
2173 ENTER
2174 "SQRT"
2175 ASTO ST X
2176 POS
2177 X<0?
2178 GTO 01
2179 STO "#POS"
2180 0
2181 X<>Y
2182 SUBSTR
2183 ENTER
2184 "V"
2185 ASTO ST X
2186 APPEND
2187 X<>Y
2188 RCL "#POS"
2189 4
2190 +
2191 SUBSTR
2192 APPEND
2193 STO "###"
2194 STO "EQNf(X)"
2195 GTO 15
2196▸LBL 01
2197 RCL "###"
2198 ENTER
2199 ENTER
2200 ENTER
2201 "√"
2202 ASTO ST X
2203 POS
2204 X<0?
2205 GTO 01
2206 STO "#POS"
2207 0
2208 X<>Y
2209 SUBSTR
2210 ENTER
2211 "V"
2212 ASTO ST X
2213 APPEND
2214 X<>Y
2215 RCL "#POS"
2216 1
2217 +
2218 SUBSTR
2219 APPEND
2220 STO "###"
2221 STO "EQNf(X)"
2222 GTO 15
2223▸LBL 01
2224 RCL "###"
2225 ENTER
2226 ENTER
2227 ENTER
2228 "W"
2229 ASTO ST X
2230 POS
2231 X<0?
2232 GTO 01
2233 STO "#POS"
2234 0
2235 X<>Y
2236 SUBSTR
2237 ENTER
2238 "V"
2239 ASTO ST X
2240 APPEND
2241 X<>Y
2242 RCL "#POS"
2243 1
2244 +
2245 SUBSTR
2246 APPEND
2247 STO "###"
2248 STO "EQNf(X)"
2249 GTO 15
2250▸LBL 01
2251 RCL "###"
2252 ENTER
2253 ENTER
2254 ENTER
2255 "Q"
2256 ASTO ST X
2257 POS
2258 X<0?
2259 GTO 01
2260 STO "#POS"
2261 ENTER
2262 DSE ST Y
2263 STO ST X
2264 X=0?
2265 STO ST Y
2266 SUBSTR
2267 "S"
2268 ASTO ST Y
2269 RCL "#POS"
2270 X<> ST Z
2271 X=Y?
2272 DSE ST Z
2273 STO ST X
2274 R↓
2275 R↓
2276 0
2277 X<>Y
2278 SUBSTR
2279 ENTER
2280 "q"
2281 ASTO ST X
2282 APPEND
2283 RCL "###"
2284 RCL "#POS"
2285 1
2286 +
2287 SUBSTR
2288 0
2289 1
2290 SUBSTR
2291 "R"
2292 ASTO ST Y
2293 X=Y?
2294 ISG "#POS"
2295 STO ST X
2296 R↑
2297 RCL "###"
2298 RCL "#POS"
2299 1
2300 +
2301 SUBSTR
2302 APPEND
2303 STO "###"
2304 STO "EQNf(X)"
2305 GTO 15
2306▸LBL 01
2307 RCL "###"
2308 ENTER
2309 ENTER
2310 ENTER
2311 "|"
2312 ASTO ST X
2313 POS
2314 X<0?
2315 GTO 01
2316 STO "#POS"
2317 0
2318 X<>Y
2319 SUBSTR
2320 ENTER
2321 "ABS("
2322 ASTO ST X
2323 APPEND
2324 X<>Y
2325 RCL "#POS"
2326 1
2327 +
2328 SUBSTR
2329 APPEND
2330 ENTER
2331 ENTER
2332 ENTER
2333 "|"
2334 ASTO ST X
2335 POS
2336 STO "#POS"
2337 0
2338 X<>Y
2339 SUBSTR
2340 ENTER
2341 ")"
2342 ASTO ST X
2343 APPEND
2344 X<>Y
2345 RCL "#POS"
2346 1
2347 +
2348 SUBSTR
2349 APPEND
2350 STO "###"
2351 STO "EQNf(X)"
2352 GTO 15
2353▸LBL 01
2354 2
2355 STO "#15-GTO"
2356▸LBL 02
2357 RCL "###"
2358 ENTER
2359 ENTER
2360 ENTER
2361 ","
2362 ASTO ST X
2363 POS
2364 X<0?
2365 GTO 02
2366 STO "#POS"
2367 ENTER
2368 DSE ST Y
2369 STO ST X
2370 X=0?
2371 STO ST Y
2372 SUBSTR
2373 CLA
2374 ARCL ST X
2375 R↓
2376 57
2377 ATOX
2378 -
2379 LASTX
2380 48
2381 -
2382 ×
2383 X≥0?
2384 1
2385 X<0?
2386 0
2387 STO "#J"
2388 R↓
2389 R↓
2390 RCL "#POS"
2391 1
2392 +
2393 RCL "#POS"
2394 2
2395 +
2396 SF 25
2397 SUBSTR
2398 CLA
2399 ARCL ST X
2400 R↓
2401 57
2402 ATOX
2403 -
2404 LASTX
2405 48
2406 -
2407 ×
2408 X≥0?
2409 2
2410 X<0?
2411 0
2412 STO+ "#J"
2413 R↓
2414 R↓
2415 RCL "#J"
2416 X>0?
2417 GTO 01
2418 R↓
2419 0
2420 RCL "#POS"
2421 SUBSTR
2422 ENTER
2423 "0"
2424 ASTO ST X
2425 APPEND
2426 X<>Y
2427 RCL "#POS"
2428 1
2429 +
2430 SUBSTR
2431 APPEND
2432 STO "###"
2433 STO "EQNf(X)"
2434 GTO 15
2435▸LBL 01
2436 1
2437 -
2438 X>0?
2439 GTO 01
2440 R↓
2441 0
2442 RCL "#POS"
2443 SUBSTR
2444 X<>Y
2445 RCL "#POS"
2446 1
2447 +
2448 SUBSTR
2449 APPEND
2450 STO "###"
2451 STO "EQNf(X)"
2452 GTO 15
2453▸LBL 01
2454 1
2455 -
2456 X>0?
2457 GTO 01
2458 R↓
2459 0
2460 RCL "#POS"
2461 SUBSTR
2462 ENTER
2463 "0."
2464 ASTO ST X
2465 APPEND
2466 X<>Y
2467 RCL "#POS"
2468 1
2469 +
2470 SUBSTR
2471 APPEND
2472 STO "###"
2473 STO "EQNf(X)"
2474 GTO 15
2475▸LBL 01
2476 R↓
2477 0
2478 RCL "#POS"
2479 SUBSTR
2480 ENTER
2481 "."
2482 ASTO ST X
2483 APPEND
2484 X<>Y
2485 RCL "#POS"
2486 1
2487 +
2488 SUBSTR
2489 APPEND
2490 STO "###"
2491 STO "EQNf(X)"
2492 GTO 15
2493▸LBL 02
2494 RCL "###"
2495 ENTER
2496 ENTER
2497 ENTER
2498 0
2499 2
2500 SF 25
2501 SUBSTR
2502 FC? 25
2503 GTO 02
2504 "0+"
2505 ASTO ST Y
2506 X≠Y?
2507 GTO 02
2508 R↑
2509 2
2510 SUBSTR
2511 STO "###"
2512 STO "EQNf(X)"
2513 GTO 15
2514▸LBL 02
2515 RCL "###"
2516 ENTER
2517 ENTER
2518 ENTER
2519 0
2520 4
2521 SF 25
2522 SUBSTR
2523 FC? 25
2524 GTO 02
2525 "0.0+"
2526 ASTO ST Y
2527 X≠Y?
2528 GTO 02
2529 R↑
2530 4
2531 SUBSTR
2532 STO "###"
2533 STO "EQNf(X)"
2534 GTO 15
2535▸LBL 02
2536 RCL "###"
2537 REV
2538 ENTER
2539 ENTER
2540 ENTER
2541 0
2542 2
2543 SF 25
2544 SUBSTR
2545 FC? 25
2546 GTO 02
2547 "0+"
2548 ASTO ST Y
2549 X≠Y?
2550 GTO 02
2551 R↑
2552 2
2553 SUBSTR
2554 REV
2555 STO "###"
2556 STO "EQNf(X)"
2557 GTO 15
2558▸LBL 02
2559 RCL "###"
2560 REV
2561 ENTER
2562 ENTER
2563 ENTER
2564 0
2565 2
2566 SF 25
2567 SUBSTR
2568 FC? 25
2569 GTO 02
2570 "0."
2571 ASTO ST Y
2572 X≠Y?
2573 GTO 02
2574 R↑
2575 2
2576 SUBSTR
2577 REV
2578 STO "###"
2579 STO "EQNf(X)"
2580 GTO 15
2581▸LBL 02
2582 RCL "###"
2583 REV
2584 ENTER
2585 ENTER
2586 ENTER
2587 0
2588 4
2589 SF 25
2590 SUBSTR
2591 FC? 25
2592 GTO 02
2593 "0.0+"
2594 ASTO ST Y
2595 X≠Y?
2596 GTO 02
2597 R↑
2598 4
2599 SUBSTR
2600 REV
2601 STO "###"
2602 STO "EQNf(X)"
2603 GTO 15
2604▸LBL 02
2605 RCL "###"
2606 ENTER
2607 ENTER
2608 ENTER
2609 "qe"
2610 ASTO ST X
2611 POS
2612 X<0?
2613 GTO 02
2614 STO "#POS"
2615 0
2616 X<>Y
2617 SUBSTR
2618 STO "#TXT"
2619 ENTER
2620 "SQ(e)"
2621 ASTO ST X
2622 APPEND
2623 RCL "###"
2624 RCL "#POS"
2625 2
2626 +
2627 SUBSTR
2628 APPEND
2629 STO "EQNf(X)"
2630 RCL "#TXT"
2631 ENTER
2632 "SQ(e)"
2633 XASTO ST X
2634 APPEND
2635 RCL "###"
2636 RCL "#POS"
2637 2
2638 +
2639 SUBSTR
2640 APPEND
2641 STO "###"
2642 GTO 15
2643▸LBL 02
2644 RCL "###"
2645 ENTER
2646 ENTER
2647 ENTER
2648 "qπ"
2649 ASTO ST X
2650 POS
2651 X<0?
2652 GTO 02
2653 STO "#POS"
2654 0
2655 X<>Y
2656 SUBSTR
2657 ENTER
2658 "SQ(π)"
2659 ASTO ST X
2660 APPEND
2661 X<>Y
2662 RCL "#POS"
2663 2
2664 +
2665 SUBSTR
2666 APPEND
2667 STO "###"
2668 STO "EQNf(X)"
2669 GTO 15
2670▸LBL 02
2671 RCL "###"
2672 ENTER
2673 ENTER
2674 ENTER
2675 "q"
2676 ASTO ST X
2677 POS
2678 X<0?
2679 GTO 02
2680 STO "#POS"
2681 1
2682 +
2683 ENTER
2684 ISG ST X
2685 STO ST X
2686 SUBSTR
2687 CLA
2688 ARCL ST X
2689 57
2690 ATOX
2691 -
2692 LASTX
2693 48
2694 -
2695 ×
2696 X<0?
2697 GTO 02
2698 RCL "###"
2699 RCL "#POS"
2700 1
2701 +
2702 SUBSTR
2703 STO "#TXT2"
2704 ENTER
2705 ENTER
2706 ENTER
2707 LENGTH
2708 STO "#POS2"
2709 "+"
2710 ASTO ST X
2711 POS
2712 RCL "#POS2"
2713 X>Y?
2714 X<>Y
2715 X<0?
2716 X<>Y
2717 STO "#POS2"
2718 +
2719 "-"
2720 ASTO ST X
2721 POS
2722 RCL "#POS2"
2723 X>Y?
2724 X<>Y
2725 X<0?
2726 X<>Y
2727 STO "#POS2"
2728 +
2729 "*"
2730 ASTO ST X
2731 POS
2732 RCL "#POS2"
2733 X>Y?
2734 X<>Y
2735 X<0?
2736 X<>Y
2737 STO "#POS2"
2738 +
2739 "/"
2740 ASTO ST X
2741 POS
2742 RCL "#POS2"
2743 X>Y?
2744 X<>Y
2745 X<0?
2746 X<>Y
2747 STO "#POS2"
2748 +
2749 "↑"
2750 ASTO ST X
2751 POS
2752 RCL "#POS2"
2753 X>Y?
2754 X<>Y
2755 X<0?
2756 X<>Y
2757 STO "#POS2"
2758 +
2759 "^"
2760 ASTO ST X
2761 POS
2762 RCL "#POS2"
2763 X>Y?
2764 X<>Y
2765 X<0?
2766 X<>Y
2767 STO "#POS2"
2768 RCL "###"
2769 0
2770 RCL "#POS"
2771 SUBSTR
2772 ENTER
2773 "SQ("
2774 ASTO ST X
2775 APPEND
2776 RCL "#TXT2"
2777 0
2778 RCL "#POS2"
2779 SUBSTR
2780 APPEND
2781 ENTER
2782 ")"
2783 ASTO ST X
2784 APPEND
2785 RCL "#TXT2"
2786 RCL "#POS2"
2787 SUBSTR
2788 APPEND
2789 STO "###"
2790 STO "EQNf(X)"
2791 GTO 15
2792▸LBL 02
2793 RCL "###"
2794 ENTER
2795 ENTER
2796 ENTER
2797 "V↑"
2798 ASTO ST X
2799 POS
2800 X<0?
2801 GTO 02
2802 STO "#POS"
2803 0
2804 X<>Y
2805 SUBSTR
2806 ENTER
2807 "√↑"
2808 ASTO ST X
2809 APPEND
2810 X<>Y
2811 RCL "#POS"
2812 2
2813 +
2814 SUBSTR
2815 APPEND
2816 STO "###"
2817 STO "EQNf(X)"
2818 GTO 15
2819▸LBL 02
2820 RCL "###"
2821 ENTER
2822 ENTER
2823 ENTER
2824 "V(2&"
2825 ASTO ST X
2826 POS
2827 X<0?
2828 GTO 02
2829 STO "#POS"
2830 0
2831 X<>Y
2832 SUBSTR
2833 ENTER
2834 "√("
2835 ASTO ST X
2836 APPEND
2837 X<>Y
2838 RCL "#POS"
2839 4
2840 +
2841 SUBSTR
2842 APPEND
2843 STO "###"
2844 STO "EQNf(X)"
2845 GTO 15
2846▸LBL 02
2847 RCL "###"
2848 ENTER
2849 ENTER
2850 ENTER
2851 "V("
2852 ASTO ST X
2853 POS
2854 X<0?
2855 GTO 02
2856 STO "#POS1"
2857 RCL "###"
2858 STO "###("
2859 XEQ 08
2860 RCL "###130"
2861 ENTER
2862 RCL "#POS1"
2863 1
2864 +
2865 RCL "#POS1"
2866 2
2867 +
2868 SUBSTR
2869 STO "#()-A"
2870 POS
2871 1
2872 +
2873 SUBSTR
2874 ENTER
2875 ENTER
2876 ENTER
2877 RCL "#()-A"
2878 POS
2879 0
2880 X<>Y
2881 SUBSTR
2882 ENTER
2883 "&"
2884 ASTO ST X
2885 POS
2886 X<0?
2887 GTO 02
2888 STO "#POS"
2889 RCL "###"
2890 RCL "#POS1"
2891 0
2892 X<>Y
2893 SUBSTR
2894 ENTER
2895 "√↑"
2896 ASTO ST X
2897 APPEND
2898 RCL "###"
2899 RCL "#POS1"
2900 2
2901 +
2902 SUBSTR
2903 APPEND
2904 ENTER
2905 ENTER
2906 ENTER
2907 RCL "#POS1"
2908 2
2909 +
2910 RCL "#POS"
2911 +
2912 STO "#POS"
2913 0
2914 X<>Y
2915 SUBSTR
2916 ENTER
2917 "↑("
2918 ASTO ST X
2919 APPEND
2920 X<>Y
2921 RCL "#POS"
2922 1
2923 +
2924 SUBSTR
2925 APPEND
2926 STO "###"
2927 STO "EQNf(X)"
2928 GTO 15
2929▸LBL 02
2930 RCL "###"
2931 ENTER
2932 ENTER
2933 ENTER
2934 "V'"
2935 ASTO ST X
2936 POS
2937 X<0?
2938 GTO 02
2939 STO "#POS"
2940 0
2941 X<>Y
2942 SUBSTR
2943 ENTER
2944 "√↑"
2945 ASTO ST X
2946 APPEND
2947 X<>Y
2948 RCL "#POS"
2949 2
2950 +
2951 SUBSTR
2952 ENTER
2953 ENTER
2954 "'"
2955 ASTO ST X
2956 POS
2957 STO+ "#POS"
2958 0
2959 X<>Y
2960 SUBSTR
2961 APPEND
2962 ENTER
2963 "↑"
2964 ASTO ST X
2965 APPEND
2966 RCL "###"
2967 RCL "#POS"
2968 3
2969 +
2970 SUBSTR
2971 APPEND
2972 STO "###"
2973 STO "EQNf(X)"
2974 GTO 15
2975▸LBL 02
2976 RCL "###"
2977 ENTER
2978 ENTER
2979 ENTER
2980 "V"
2981 ASTO ST X
2982 POS
2983 X<0?
2984 GTO 02
2985 STO "#POS"
2986 ENTER
2987 DSE ST Y
2988 STO ST X
2989 SUBSTR
2990 ")"
2991 ASTO ST Y
2992 X=Y?
2993 GTO 01
2994 CLA
2995 ARCL ST X
2996 57
2997 ATOX
2998 -
2999 LASTX
3000 48
3001 -
3002 ×
3003 X≥0?
3004 1
3005 RCL "#POS"
3006 ×
3007 X>0?
3008 GTO 01
3009 RCL "###"
3010 ENTER
3011 ENTER
3012 0
3013 RCL "#POS"
3014 SUBSTR
3015 X<>Y
3016 "√"
3017 ASTO ST X
3018 APPEND
3019 X<>Y
3020 RCL "#POS"
3021 1
3022 +
3023 SUBSTR
3024 APPEND
3025 STO "###"
3026 STO "EQNf(X)"
3027 GTO 15
3028▸LBL 01
3029 RCL "###"
3030 ENTER
3031 ENTER
3032 ENTER
3033 0
3034 RCL "#POS"
3035 SUBSTR
3036 ENTER
3037 "*√"
3038 ASTO ST X
3039 APPEND
3040 X<>Y
3041 RCL "#POS"
3042 1
3043 +
3044 SUBSTR
3045 APPEND
3046 STO "###"
3047 GTO 15
3048▸LBL 02
3049 RCL "###"
3050 ENTER
3051 ENTER
3052 ENTER
3053 "'"
3054 ASTO ST X
3055 POS
3056 STO "#POS"
3057 "↑"
3058 ASTO ST X
3059 POS
3060 RCL "#POS"
3061 X>Y?
3062 X<>Y
3063 R↓
3064 X<0?
3065 GTO 02
3066 STO "#POS"
3067 0
3068 X<>Y
3069 SUBSTR
3070 ENTER
3071 "^"
3072 ASTO ST X
3073 APPEND
3074 X<>Y
3075 RCL "#POS"
3076 1
3077 +
3078 SUBSTR
3079 APPEND
3080 STO "###"
3081 STO "EQNf(X)"
3082 GTO 15
3083▸LBL 02
3084 RCL "###"
3085 ENTER
3086 ENTER
3087 ENTER
3088 "^+"
3089 ASTO ST X
3090 POS
3091 X<0?
3092 GTO 02
3093 1
3094 +
3095 STO "#POS"
3096 0
3097 X<>Y
3098 SUBSTR
3099 X<>Y
3100 RCL "#POS"
3101 1
3102 +
3103 SUBSTR
3104 APPEND
3105 STO "###"
3106 STO "EQNf(X)"
3107 GTO 15
3108▸LBL 02
3109 RCL "###"
3110 ENTER
3111 ENTER
3112 ENTER
3113 "?"
3114 ASTO ST X
3115 POS
3116 STO "#POS"
3117 "¿"
3118 ASTO ST X
3119 POS
3120 RCL "#POS"
3121 X>Y?
3122 X<>Y
3123 R↓
3124 X<0?
3125 GTO 02
3126 STO "#POS"
3127 ENTER
3128 ISG ST X
3129 STO ST X
3130 SUBSTR
3131 STO "#CHARa"
3132 R↓
3133 RCL "#POS"
3134 1
3135 +
3136 ENTER
3137 ISG ST X
3138 STO ST X
3139 SUBSTR
3140 "("
3141 ASTO ST Y
3142 X≠Y?
3143 GTO 01
3144 R↓
3145 R↓
3146 0
3147 RCL "#POS"
3148 SUBSTR
3149 ENTER
3150 "@"
3151 ASTO ST X
3152 APPEND
3153 X<>Y
3154 RCL "#POS"
3155 1
3156 +
3157 SUBSTR
3158 APPEND
3159 STO "###"
3160 STO "EQNf(X)"
3161 GTO 15
3162▸LBL 01
3163 R↓
3164 R↓
3165 RCL "#POS"
3166 1
3167 +
3168 SUBSTR
3169 STO "#TXT"
3170 ENTER
3171 ENTER
3172 ENTER
3173 LENGTH
3174 STO "#POS2"
3175 "+"
3176 ASTO ST X
3177 POS
3178 RCL "#POS2"
3179 X>Y?
3180 X<>Y
3181 X<0?
3182 X<>Y
3183 STO "#POS2"
3184 +
3185 "-"
3186 ASTO ST X
3187 POS
3188 RCL "#POS2"
3189 X>Y?
3190 X<>Y
3191 X<0?
3192 X<>Y
3193 STO "#POS2"
3194 +
3195 "*"
3196 ASTO ST X
3197 POS
3198 RCL "#POS2"
3199 X>Y?
3200 X<>Y
3201 X<0?
3202 X<>Y
3203 STO "#POS2"
3204 +
3205 "/"
3206 ASTO ST X
3207 POS
3208 RCL "#POS2"
3209 X>Y?
3210 X<>Y
3211 X<0?
3212 X<>Y
3213 STO "#POS2"
3214 +
3215 "^"
3216 ASTO ST X
3217 POS
3218 RCL "#POS2"
3219 X>Y?
3220 X<>Y
3221 X<0?
3222 X<>Y
3223 STO "#POS2"
3224 RCL "#TXT"
3225 ENTER
3226 ENTER
3227 0
3228 RCL "#POS2"
3229 SUBSTR
3230 ENTER
3231 ")"
3232 ASTO ST X
3233 APPEND
3234 X<>Y
3235 RCL "#POS2"
3236 SUBSTR
3237 APPEND
3238 RCL "#CHARa"
3239 ENTER
3240 "¿"
3241 ASTO ST Y
3242 CLA
3243 X=Y?
3244 "-"
3245 X<> ST Z
3246 ASTO ST Y
3247 APPEND
3248 RCL "###"
3249 0
3250 RCL "#POS"
3251 SUBSTR
3252 ENTER
3253 "@("
3254 ASTO ST X
3255 APPEND
3256 X<>Y
3257 APPEND
3258 STO "###"
3259 STO "EQNf(X)"
3260 GTO 15
3261▸LBL 02
3262 RCL "###"
3263 ENTER
3264 ENTER
3265 ENTER
3266 "IN^(-1)("
3267 XASTO ST X
3268 POS
3269 X≥0?
3270 GTO 01
3271 "IN^-1("
3272 ASTO ST X
3273 POS
3274 X≥0?
3275 GTO 01
3276 "AN^(-1)("
3277 XASTO ST X
3278 POS
3279 X≥0?
3280 GTO 01
3281 "AN^-1("
3282 ASTO ST X
3283 POS
3284 X≥0?
3285 GTO 01
3286 "S^(-1)("
3287 XASTO ST X
3288 POS
3289 X≥0?
3290 GTO 01
3291 "S^-1("
3292 ASTO ST X
3293 POS
3294 X≥0?
3295 GTO 01
3296 "T^(-1)("
3297 XASTO ST X
3298 POS
3299 X≥0?
3300 GTO 01
3301 "T^-1("
3302 ASTO ST X
3303 POS
3304 X≥0?
3305 GTO 01
3306 "C^(-1)("
3307 XASTO ST X
3308 POS
3309 X≥0?
3310 GTO 01
3311 "C^-1("
3312 ASTO ST X
3313 POS
3314 X≥0?
3315 GTO 01
3316 "H^(-1)("
3317 XASTO ST X
3318 POS
3319 X≥0?
3320 GTO 01
3321 "H^-1("
3322 ASTO ST X
3323 POS
3324 X≥0?
3325 GTO 01
3326 GTO 02
3327▸LBL 01
3328 STO "#POS"
3329 LASTX
3330 STO "#TXT"
3331 LENGTH
3332 STO "#LENGTH"
3333 RCL "#TXT"
3334 1
3335 2
3336 SUBSTR
3337 "N"
3338 ASTO ST Y
3339 X=Y?
3340 ISG "#POS"
3341 STO ST X
3342 X=Y?
3343 DSE "#LENGTH"
3344 STO ST X
3345 RCL "#TXT"
3346 0
3347 STO "#J"
3348 1
3349 SUBSTR
3350 "H"
3351 ASTO ST Y
3352 X=Y?
3353 ISG "#J"
3354 STO ST X
3355 RCL "###"
3356 ENTER
3357 ENTER
3358 ENTER
3359 0
3360 RCL "#POS"
3361 2
3362 -
3363 RCL "#J"
3364 -
3365 SUBSTR
3366 ENTER
3367 "A"
3368 ASTO ST X
3369 APPEND
3370 X<>Y
3371 RCL "#POS"
3372 2
3373 -
3374 RCL "#J"
3375 -
3376 SUBSTR
3377 APPEND
3378 ENTER
3379 ENTER
3380 ENTER
3381 0
3382 RCL "#POS"
3383 2
3384 +
3385 SUBSTR
3386 X<>Y
3387 RCL "#POS"
3388 RCL "#LENGTH"
3389 +
3390 SUBSTR
3391 APPEND
3392 STO "###"
3393 STO "EQNf(X)"
3394 GTO 15
3395▸LBL 02
3396 RCL "###"
3397 ENTER
3398 ENTER
3399 ENTER
3400 "#"
3401 ASTO ST X
3402 POS
3403 X<>Y
3404 ENTER
3405 "X"
3406 ASTO ST X
3407 POS
3408 X>Y?
3409 X<>Y
3410 R↓
3411 X<>Y
3412 ENTER
3413 "Z"
3414 ASTO ST X
3415 POS
3416 X>Y?
3417 X<>Y
3418 R↓
3419 X<0?
3420 GTO 02
3421 STO "#POS"
3422 0
3423 X<>Y
3424 SUBSTR
3425 ENTER
3426 "(x)"
3427 ASTO ST X
3428 APPEND
3429 X<>Y
3430 RCL "#POS"
3431 1
3432 +
3433 SUBSTR
3434 APPEND
3435 STO "###("
3436 XEQ 07
3437 RCL "###("
3438 STO "###"
3439 STO "EQNf(X)"
3440 GTO 15
3441▸LBL 02
3442 RCL "EQNf(X)"
3443 ENTER
3444 ENTER
3445 ENTER
3446 "x"
3447 ASTO ST X
3448 POS
3449 X<0?
3450 GTO 02
3451 STO "#POS"
3452 0
3453 X<>Y
3454 SUBSTR
3455 ENTER
3456 "X"
3457 ASTO ST X
3458 APPEND
3459 X<>Y
3460 RCL "#POS"
3461 1
3462 +
3463 SUBSTR
3464 APPEND
3465 STO "EQNf(X)"
3466 GTO 15
3467▸LBL 02
3468 RCL "###"
3469 ENTER
3470 ENTER
3471 ENTER
3472 "("
3473 ASTO ST X
3474 POS
3475 X<0?
3476 GTO 02
3477 STO "#POS"
3478 0
3479 X<>Y
3480 SUBSTR
3481 ENTER
3482 "<"
3483 ASTO ST X
3484 APPEND
3485 X<>Y
3486 RCL "#POS"
3487 1
3488 +
3489 SUBSTR
3490 APPEND
3491 STO "###"
3492 ENTER
3493 ENTER
3494 ENTER
3495 ")"
3496 ASTO ST X
3497 POS
3498 X<0?
3499 GTO 02
3500 STO "#POS"
3501 0
3502 X<>Y
3503 SUBSTR
3504 ENTER
3505 ">"
3506 ASTO ST X
3507 APPEND
3508 X<>Y
3509 RCL "#POS"
3510 1
3511 +
3512 SUBSTR
3513 APPEND
3514 STO "###"
3515 GTO 15
3516▸LBL 02
3517 3
3518 STO "#15-GTO"
3519▸LBL 03
3520 "... fÜr EQNf(X)"
3521 RCL "EQNf(X)"
3522 ENTER
3523 ENTER
3524 ENTER
3525 "SÅC"
3526 ASTO ST X
3527 POS
3528 X<0?
3529 GTO 03
3530 STO "#POS"
3531 0
3532 X<>Y
3533 SUBSTR
3534 ENTER
3535 "SEC"
3536 ASTO ST X
3537 APPEND
3538 X<>Y
3539 RCL "#POS"
3540 3
3541 +
3542 SUBSTR
3543 APPEND
3544 STO "EQNf(X)"
3545 GTO 15
3546▸LBL 03
3547 "... fÜr EQN-# 1"
3548 RCL "###"
3549 ENTER
3550 ENTER
3551 ENTER
3552 "<"
3553 ASTO ST X
3554 POS
3555 X<0?
3556 GTO 03
3557 STO "#POS"
3558 0
3559 X<>Y
3560 SUBSTR
3561 ENTER
3562 "("
3563 ASTO ST X
3564 APPEND
3565 X<>Y
3566 RCL "#POS"
3567 1
3568 +
3569 SUBSTR
3570 APPEND
3571 STO "###"
3572 RCL "#POS"
3573 ENTER
3574 DSE ST Y
3575 STO ST X
3576 X=0?
3577 STO ST Y
3578 SUBSTR
3579 CLA
3580 ARCL ST X
3581 57
3582 ATOX
3583 -
3584 LASTX
3585 48
3586 -
3587 ×
3588 X<0?
3589 GTO 15
3590 RCL "###"
3591 ENTER
3592 ENTER
3593 ENTER
3594 0
3595 RCL "#POS"
3596 X=0?
3597 GTO 15
3598 SUBSTR
3599 ENTER
3600 "*"
3601 ASTO ST X
3602 APPEND
3603 X<>Y
3604 RCL "#POS"
3605 SUBSTR
3606 APPEND
3607 STO "###"
3608 GTO 15
3609▸LBL 03
3610 RCL "###"
3611 ENTER
3612 ENTER
3613 ENTER
3614 ">"
3615 ASTO ST X
3616 POS
3617 X<0?
3618 GTO 03
3619 STO "#POS"
3620 0
3621 X<>Y
3622 SUBSTR
3623 ENTER
3624 ")"
3625 ASTO ST X
3626 APPEND
3627 X<>Y
3628 RCL "#POS"
3629 1
3630 +
3631 SUBSTR
3632 APPEND
3633 STO "###"
3634 RCL "#POS"
3635 1
3636 +
3637 ENTER
3638 ISG ST X
3639 STO ST X
3640 SF 25
3641 SUBSTR
3642 FC? 25
3643 GTO 15
3644 CLA
3645 ARCL ST X
3646 57
3647 ATOX
3648 STO "#CHARn"
3649 -
3650 LASTX
3651 48
3652 -
3653 ×
3654 X≥0?
3655 GTO 01
3656 90
3657 RCL "#CHARn"
3658 -
3659 LASTX
3660 63
3661 -
3662 ×
3663 X<0?
3664 GTO 15
3665▸LBL 01
3666 RCL "###"
3667 ENTER
3668 ENTER
3669 ENTER
3670 0
3671 RCL "#POS"
3672 1
3673 +
3674 SUBSTR
3675 ENTER
3676 "*"
3677 ASTO ST X
3678 APPEND
3679 X<>Y
3680 RCL "#POS"
3681 1
3682 +
3683 SUBSTR
3684 APPEND
3685 STO "###"
3686 GTO 15
3687▸LBL 03
3688 RCL "###"
3689 ENTER
3690 ENTER
3691 ENTER
3692 "x"
3693 ASTO ST X
3694 POS
3695 X<0?
3696 GTO 03
3697 STO "#POS"
3698 0
3699 X<>Y
3700 SUBSTR
3701 ENTER
3702 "X"
3703 ASTO ST X
3704 APPEND
3705 X<>Y
3706 RCL "#POS"
3707 1
3708 +
3709 SUBSTR
3710 APPEND
3711 STO "###"
3712 RCL "#POS"
3713 X=0?
3714 GTO 02
3715 ENTER
3716 DSE ST Y
3717 STO ST X
3718 X=0?
3719 STO ST Y
3720 SUBSTR
3721 ")"
3722 ASTO ST Y
3723 X=Y?
3724 GTO 01
3725 CLA
3726 ARCL ST X
3727 57
3728 ATOX
3729 STO "#CHARn"
3730 -
3731 LASTX
3732 48
3733 -
3734 ×
3735 X≥0?
3736 GTO 01
3737 90
3738 RCL "#CHARn"
3739 -
3740 LASTX
3741 63
3742 -
3743 ×
3744 X<0?
3745 GTO 02
3746 RCL "###"
3747 ENTER
3748 ENTER
3749 ENTER
3750 0
3751 RCL "#POS"
3752 SUBSTR
3753 ENTER
3754 "(x)"
3755 ASTO ST X
3756 APPEND
3757 X<>Y
3758 RCL "#POS"
3759 1
3760 +
3761 SUBSTR
3762 APPEND
3763 STO "###"
3764 GTO 15
3765▸LBL 01
3766 RCL "###"
3767 ENTER
3768 ENTER
3769 ENTER
3770 RCL "#POS"
3771 0
3772 X<>Y
3773 SUBSTR
3774 ENTER
3775 "*"
3776 ASTO ST X
3777 APPEND
3778 X<>Y
3779 RCL "#POS"
3780 SUBSTR
3781 APPEND
3782 STO "###"
3783 1
3784 STO+ "#POS"
3785▸LBL 02
3786 RCL "###"
3787 ENTER
3788 ENTER
3789 ENTER
3790 RCL "#POS"
3791 1
3792 +
3793 ENTER
3794 ISG ST X
3795 STO ST X
3796 SF 25
3797 SUBSTR
3798 FC? 25
3799 GTO 15
3800 "("
3801 ASTO ST Y
3802 X=Y?
3803 GTO 01
3804 CLA
3805 ARCL ST X
3806 57
3807 ATOX
3808 STO "#CHARn"
3809 -
3810 LASTX
3811 48
3812 -
3813 ×
3814 X≥0?
3815 GTO 01
3816 90
3817 RCL "#CHARn"
3818 -
3819 LASTX
3820 63
3821 -
3822 ×
3823 X<0?
3824 GTO 15
3825▸LBL 01
3826 RCL "###"
3827 ENTER
3828 ENTER
3829 ENTER
3830 0
3831 RCL "#POS"
3832 1
3833 +
3834 SUBSTR
3835 ENTER
3836 "*"
3837 ASTO ST X
3838 APPEND
3839 X<>Y
3840 RCL "#POS"
3841 1
3842 +
3843 SUBSTR
3844 APPEND
3845 STO "###"
3846 GTO 15
3847▸LBL 03
3848 RCL "###"
3849 ENTER
3850 ENTER
3851 ENTER
3852 "'"
3853 ASTO ST X
3854 POS
3855 STO "#POS"
3856 "^"
3857 ASTO ST X
3858 POS
3859 RCL "#POS"
3860 X>Y?
3861 X<>Y
3862 R↓
3863 X<0?
3864 GTO 03
3865 STO "#POS"
3866 0
3867 X<>Y
3868 SUBSTR
3869 ENTER
3870 "↑"
3871 ASTO ST X
3872 APPEND
3873 X<>Y
3874 RCL "#POS"
3875 1
3876 +
3877 SUBSTR
3878 APPEND
3879 STO "###"
3880 GTO 15
3881▸LBL 03
3882 RCL "###"
3883 ENTER
3884 ENTER
3885 ENTER
3886 "SÅC"
3887 ASTO ST X
3888 POS
3889 X<0?
3890 GTO 03
3891 STO "#POS"
3892 0
3893 X<>Y
3894 SUBSTR
3895 ENTER
3896 "SEC"
3897 ASTO ST X
3898 APPEND
3899 X<>Y
3900 RCL "#POS"
3901 3
3902 +
3903 SUBSTR
3904 APPEND
3905 STO "###"
3906 GTO 15
3907▸LBL 03
3908 RCL "###"
3909 ENTER
3910 ENTER
3911 ENTER
3912 "N↑"
3913 ASTO ST X
3914 POS
3915 X≥0?
3916 GTO 01
3917 "S↑"
3918 ASTO ST X
3919 POS
3920 X≥0?
3921 GTO 01
3922 "T↑"
3923 ASTO ST X
3924 POS
3925 X≥0?
3926 GTO 01
3927 "C↑"
3928 ASTO ST X
3929 POS
3930 X≥0?
3931 GTO 01
3932 "H↑"
3933 ASTO ST X
3934 POS
3935 X≥0?
3936 GTO 01
3937 "G↑"
3938 ASTO ST X
3939 POS
3940 X≥0?
3941 GTO 01
3942 GTO 03
3943▸LBL 01
3944 2
3945 +
3946 STO "#POS1"
3947 3
3948 -
3949 STO "#POS"
3950 X=0?
3951 GTO 01
3952 ENTER
3953 DSE ST Y
3954 STO ST X
3955 X=0?
3956 STO ST Y
3957 SUBSTR
3958 CLA
3959 ARCL ST X
3960 90
3961 ATOX
3962 -
3963 LASTX
3964 63
3965 -
3966 ×
3967 X<0?
3968 GTO 01
3969 RCL "###"
3970 RCL "#POS"
3971 1
3972 -
3973 STO "#POS"
3974 X=0?
3975 GTO 01
3976 ENTER
3977 DSE ST Y
3978 STO ST X
3979 X=0?
3980 STO ST Y
3981 SUBSTR
3982 CLA
3983 ARCL ST X
3984 90
3985 ATOX
3986 -
3987 LASTX
3988 63
3989 -
3990 ×
3991 X<0?
3992 GTO 01
3993 RCL "###"
3994 RCL "#POS"
3995 1
3996 -
3997 STO "#POS"
3998 X=0?
3999 GTO 01
4000 ENTER
4001 DSE ST Y
4002 STO ST X
4003 X=0?
4004 STO ST Y
4005 SUBSTR
4006 CLA
4007 ARCL ST X
4008 90
4009 ATOX
4010 -
4011 LASTX
4012 63
4013 -
4014 ×
4015 X<0?
4016 GTO 01
4017 RCL "###"
4018 RCL "#POS"
4019 1
4020 -
4021 STO "#POS"
4022 X=0?
4023 GTO 01
4024 ENTER
4025 DSE ST Y
4026 STO ST X
4027 X=0?
4028 STO ST Y
4029 SUBSTR
4030 CLA
4031 ARCL ST X
4032 90
4033 ATOX
4034 -
4035 LASTX
4036 63
4037 -
4038 ×
4039 X<0?
4040 GTO 01
4041▸LBL 01
4042 RCL "###"
4043 STO "###("
4044 XEQ 08
4045 RCL "###"
4046 RCL "#POS1"
4047 1
4048 +
4049 SUBSTR
4050 ENTER
4051 "("
4052 ASTO ST X
4053 POS
4054 STO "#POS2"
4055 RCL "###130"
4056 ENTER
4057 ENTER
4058 ENTER
4059 RCL "#POS1"
4060 RCL "#POS2"
4061 +
4062 1
4063 +
4064 ENTER
4065 ISG ST X
4066 STO ST X
4067 SUBSTR
4068 STO "#()-A"
4069 R↓
4070 0
4071 RCL "#POS"
4072 SUBSTR
4073 ENTER
4074 "("
4075 ASTO ST X
4076 APPEND
4077 X<>Y
4078 RCL "#POS"
4079 SUBSTR
4080 APPEND
4081 STO "#TXT"
4082 ENTER
4083 ENTER
4084 ENTER
4085 RCL "#()-A"
4086 POS
4087 SUBSTR
4088 REV
4089 ENTER
4090 ENTER
4091 ENTER
4092 RCL "#()-A"
4093 POS
4094 SUBSTR
4095 REV
4096 STO "#TXT1"
4097 R↓
4098 RCL "#()-A"
4099 POS
4100 0
4101 X<>Y
4102 SUBSTR
4103 REV
4104 STO "#TXT2"
4105 RCL "#TXT"
4106 ENTER
4107 ENTER
4108 ENTER
4109 0
4110 RCL "#POS1"
4111 SUBSTR
4112 RCL "#TXT1"
4113 APPEND
4114 RCL "###130"
4115 RCL "#POS1"
4116 SUBSTR
4117 ENTER
4118 ENTER
4119 RCL "#()-A"
4120 POS
4121 0
4122 X<>Y
4123 SUBSTR
4124 X<>Y
4125 ENTER
4126 ")^"
4127 ASTO ST X
4128 APPEND
4129 X<>Y
4130 APPEND
4131 RCL "#TXT2"
4132 APPEND
4133 STO "###130"
4134 XEQ 09
4135 RCL "###("
4136 STO "###"
4137 GTO 15
4138▸LBL 03
4139 RCL "###"
4140 ENTER
4141 ENTER
4142 ENTER
4143 ")("
4144 ASTO ST X
4145 POS
4146 X<0?
4147 GTO 03
4148 STO "#POS"
4149 0
4150 X<>Y
4151 SUBSTR
4152 ENTER
4153 ")*("
4154 ASTO ST X
4155 APPEND
4156 X<>Y
4157 RCL "#POS"
4158 2
4159 +
4160 SUBSTR
4161 APPEND
4162 STO "###"
4163 GTO 15
4164▸LBL 03
4165 RCL "###"
4166 ENTER
4167 ENTER
4168 ENTER
4169 "X("
4170 ASTO ST X
4171 POS
4172 X<0?
4173 GTO 03
4174 STO "#POS"
4175 0
4176 X<>Y
4177 SUBSTR
4178 ENTER
4179 "X*("
4180 ASTO ST X
4181 APPEND
4182 X<>Y
4183 RCL "#POS"
4184 2
4185 +
4186 SUBSTR
4187 APPEND
4188 STO "###"
4189 GTO 15
4190▸LBL 03
4191 RCL "###"
4192 ENTER
4193 ENTER
4194 ENTER
4195 ")X"
4196 ASTO ST X
4197 POS
4198 X<0?
4199 GTO 03
4200 STO "#POS"
4201 0
4202 X<>Y
4203 SUBSTR
4204 ENTER
4205 ")*X"
4206 ASTO ST X
4207 APPEND
4208 X<>Y
4209 RCL "#POS"
4210 2
4211 +
4212 SUBSTR
4213 APPEND
4214 STO "###"
4215 GTO 15
4216▸LBL 03
4217 RCL "###"
4218 ENTER
4219 ENTER
4220 ENTER
4221 "XX"
4222 ASTO ST X
4223 POS
4224 X<0?
4225 GTO 03
4226 STO "#POS"
4227 0
4228 X<>Y
4229 SUBSTR
4230 ENTER
4231 "X*X"
4232 ASTO ST X
4233 APPEND
4234 X<>Y
4235 RCL "#POS"
4236 2
4237 +
4238 SUBSTR
4239 APPEND
4240 STO "###"
4241 GTO 15
4242▸LBL 03
4243 RCL "###"
4244 ENTER
4245 ENTER
4246 ENTER
4247 "LD"
4248 ASTO ST X
4249 POS
4250 X<0?
4251 GTO 03
4252 STO "#POS"
4253 0
4254 X<>Y
4255 SUBSTR
4256 ENTER
4257 "LB"
4258 ASTO ST X
4259 APPEND
4260 X<>Y
4261 RCL "#POS"
4262 2
4263 +
4264 SUBSTR
4265 APPEND
4266 STO "###"
4267 GTO 15
4268▸LBL 03
4269 RCL "###"
4270 ENTER
4271 ENTER
4272 ENTER
4273 "e"
4274 ASTO ST X
4275 POS
4276 X<0?
4277 GTO 03
4278 STO "#POS"
4279 0
4280 X<>Y
4281 SUBSTR
4282 ENTER
4283 "@(1)"
4284 ASTO ST X
4285 APPEND
4286 X<>Y
4287 RCL "#POS"
4288 1
4289 +
4290 SUBSTR
4291 APPEND
4292 STO "###"
4293 GTO 15
4294▸LBL 03
4295 RCL "###"
4296 ENTER
4297 ENTER
4298 ENTER
4299 "π"
4300 ASTO ST X
4301 POS
4302 X<0?
4303 GTO 03
4304 STO "#POS"
4305 0
4306 X<>Y
4307 SUBSTR
4308 ENTER
4309 "PI"
4310 ASTO ST X
4311 APPEND
4312 X<>Y
4313 RCL "#POS"
4314 1
4315 +
4316 SUBSTR
4317 APPEND
4318 STO "###"
4319 GTO 15
4320▸LBL 03
4321 RCL "###"
4322 ENTER
4323 "LB"
4324 ASTO ST X
4325 POS
4326 X<0?
4327 GTO 03
4328 STO "#POS"
4329 RCL "###"
4330 STO "###("
4331 XEQ 08
4332 RCL "###130"
4333 ENTER
4334 ENTER
4335 ENTER
4336 RCL "#POS"
4337 2
4338 +
4339 RCL "#POS"
4340 3
4341 +
4342 SUBSTR
4343 STO "#()-A"
4344 POS
4345 SUBSTR
4346 REV
4347 ENTER
4348 ENTER
4349 ENTER
4350 RCL "#()-A"
4351 POS
4352 STO "#POS1"
4353 0
4354 X<>Y
4355 SUBSTR
4356 REV
4357 STO "#TXT1"
4358 R↓
4359 RCL "#POS1"
4360 SUBSTR
4361 REV
4362 STO "#TXT"
4363 RCL "###"
4364 ENTER
4365 ENTER
4366 ENTER
4367 0
4368 RCL "#POS"
4369 SUBSTR
4370 ENTER
4371 "(LN"
4372 ASTO ST X
4373 APPEND
4374 RCL "#TXT"
4375 APPEND
4376 ENTER
4377 "/LN(2))"
4378 XASTO ST X
4379 APPEND
4380 RCL "#TXT1"
4381 APPEND
4382 STO "###130"
4383 XEQ 09
4384 RCL "###("
4385 STO "###"
4386 GTO 15
4387▸LBL 03
4388 RCL "###"
4389 ENTER
4390 ENTER
4391 ENTER
4392 "LOG↓"
4393 ASTO ST X
4394 POS
4395 X<0?
4396 GTO 03
4397 STO "#POS"
4398 4
4399 +
4400 SUBSTR
4401 "("
4402 ASTO ST Y
4403 APPEND
4404 ENTER
4405 ENTER
4406 ENTER
4407 "↓"
4408 ASTO ST X
4409 POS
4410 STO "#POS1"
4411 0
4412 X<>Y
4413 SUBSTR
4414 ENTER
4415 "))/(LN"
4416 ASTO ST X
4417 APPEND
4418 STO "#TXT"
4419 RCL "###"
4420 STO "###("
4421 XEQ 08
4422 RCL "###"
4423 ENTER
4424 ENTER
4425 ENTER
4426 RCL "#POS"
4427 0
4428 X<>Y
4429 SUBSTR
4430 ENTER
4431 "(LN"
4432 ASTO ST X
4433 APPEND
4434 RCL "#TXT"
4435 APPEND
4436 RCL "###130"
4437 RCL "#POS"
4438 4
4439 +
4440 RCL "#POS1"
4441 +
4442 ENTER
4443 ISG ST X
4444 STO ST X
4445 SUBSTR
4446 STO "#()-A"
4447 RCL "###130"
4448 ENTER
4449 X<> ST Z
4450 POS
4451 STO "#POS1"
4452 SUBSTR
4453 STO "#TXT"
4454 REV
4455 STO ST Y
4456 RCL "#()-A"
4457 POS
4458 SUBSTR
4459 ENTER
4460 LENGTH
4461 STO+ "#POS1"
4462 R↓
4463 REV
4464 ENTER
4465 ")"
4466 ASTO ST X
4467 APPEND
4468 APPEND
4469 RCL "###"
4470 RCL "#POS1"
4471 SUBSTR
4472 APPEND
4473 STO "###130"
4474 XEQ 09
4475 RCL "###("
4476 STO "###"
4477 GTO 15
4478▸LBL 03
4479 RCL "###"
4480 ENTER
4481 ENTER
4482 ENTER
4483 "√↑"
4484 ASTO ST X
4485 POS
4486 X<0?
4487 GTO 03
4488 STO "#POS"
4489 2
4490 +
4491 SUBSTR
4492 "("
4493 ASTO ST Y
4494 APPEND
4495 ENTER
4496 ENTER
4497 ENTER
4498 "↑"
4499 ASTO ST X
4500 POS
4501 STO "#POS1"
4502 0
4503 X<>Y
4504 SUBSTR
4505 "^("
4506 ASTO ST Y
4507 APPEND
4508 ENTER
4509 ")^(-1))"
4510 XASTO ST X
4511 APPEND
4512 STO "#TXT"
4513 RCL "###"
4514 STO "###("
4515 XEQ 08
4516 RCL "###"
4517 ENTER
4518 ENTER
4519 ENTER
4520 RCL "#POS"
4521 0
4522 X<>Y
4523 SUBSTR
4524 ENTER
4525 "("
4526 ASTO ST X
4527 APPEND
4528 RCL "###130"
4529 RCL "#POS"
4530 2
4531 +
4532 RCL "#POS1"
4533 +
4534 SUBSTR
4535 APPEND
4536 RCL "###130"
4537 RCL "#POS"
4538 2
4539 +
4540 RCL "#POS1"
4541 +
4542 ENTER
4543 ISG ST X
4544 STO ST X
4545 SUBSTR
4546 STO "#()-A"
4547 R↓
4548 REV
4549 ENTER
4550 ENTER
4551 ENTER
4552 RCL "#()-A"
4553 POS
4554 0
4555 X<>Y
4556 SUBSTR
4557 REV
4558 RCL "#TXT"
4559 X<>Y
4560 APPEND
4561 STO "#TXT"
4562 RCL "###130"
4563 RCL "#POS"
4564 2
4565 +
4566 RCL "#POS1"
4567 +
4568 SUBSTR
4569 REV
4570 ENTER
4571 ENTER
4572 ENTER
4573 RCL "#()-A"
4574 POS
4575 SUBSTR
4576 REV
4577 RCL "###"
4578 0
4579 RCL "#POS"
4580 SUBSTR
4581 X<>Y
4582 APPEND
4583 RCL "#TXT"
4584 APPEND
4585 STO "###130"
4586 XEQ 09
4587 RCL "###("
4588 STO "###"
4589 GTO 15
4590▸LBL 03
4591 RCL "###"
4592 ENTER
4593 ENTER
4594 ENTER
4595 "√"
4596 ASTO ST X
4597 POS
4598 X<0?
4599 GTO 03
4600 STO "#POS"
4601 1
4602 +
4603 ENTER
4604 ISG ST X
4605 STO ST X
4606 SUBSTR
4607 CLA
4608 ARCL ST X
4609 57
4610 ATOX
4611 -
4612 LASTX
4613 48
4614 -
4615 ×
4616 X<0?
4617 GTO 03
4618 RCL "###"
4619 RCL "#POS"
4620 1
4621 +
4622 SUBSTR
4623 STO "#TXT2"
4624 ENTER
4625 ENTER
4626 ENTER
4627 LENGTH
4628 STO "#POS2"
4629 "+"
4630 ASTO ST X
4631 POS
4632 RCL "#POS2"
4633 X>Y?
4634 X<>Y
4635 X<0?
4636 X<>Y
4637 STO "#POS2"
4638 +
4639 "-"
4640 ASTO ST X
4641 POS
4642 RCL "#POS2"
4643 X>Y?
4644 X<>Y
4645 X<0?
4646 X<>Y
4647 STO "#POS2"
4648 +
4649 "*"
4650 ASTO ST X
4651 POS
4652 RCL "#POS2"
4653 X>Y?
4654 X<>Y
4655 X<0?
4656 X<>Y
4657 STO "#POS2"
4658 +
4659 "/"
4660 ASTO ST X
4661 POS
4662 RCL "#POS2"
4663 X>Y?
4664 X<>Y
4665 X<0?
4666 X<>Y
4667 STO "#POS2"
4668 +
4669 "↑"
4670 ASTO ST X
4671 POS
4672 RCL "#POS2"
4673 X>Y?
4674 X<>Y
4675 X<0?
4676 X<>Y
4677 STO "#POS2"
4678 RCL "###"
4679 0
4680 RCL "#POS"
4681 SUBSTR
4682 ENTER
4683 "V("
4684 ASTO ST X
4685 APPEND
4686 RCL "#TXT2"
4687 0
4688 RCL "#POS2"
4689 SUBSTR
4690 APPEND
4691 ENTER
4692 ")"
4693 ASTO ST X
4694 APPEND
4695 RCL "#TXT2"
4696 RCL "#POS2"
4697 SUBSTR
4698 APPEND
4699 STO "###"
4700 GTO 15
4701▸LBL 03
4702 RCL "###"
4703 ENTER
4704 ENTER
4705 ENTER
4706 "V("
4707 ASTO ST X
4708 POS
4709 X<0?
4710 GTO 03
4711 STO "#POS"
4712 0
4713 X<>Y
4714 SUBSTR
4715 ENTER
4716 "√("
4717 ASTO ST X
4718 APPEND
4719 X<>Y
4720 RCL "#POS"
4721 2
4722 +
4723 SUBSTR
4724 APPEND
4725 STO "###"
4726 GTO 15
4727▸LBL 03
4728 RCL "###"
4729 STO "EQN-Z"
4730 4
4731 STO "#15-GTO"
4732▸LBL 04
4733 "... fÜr EQN-Z"
4734 RCL "EQN-Z"
4735 ENTER
4736 ENTER
4737 ENTER
4738 "X"
4739 ASTO ST X
4740 POS
4741 X<0?
4742 GTO 04
4743 STO "#POS"
4744 0
4745 X<>Y
4746 SUBSTR
4747 ENTER
4748 "(z)"
4749 ASTO ST X
4750 APPEND
4751 X<>Y
4752 RCL "#POS"
4753 1
4754 +
4755 SUBSTR
4756 APPEND
4757 STO "EQN-Z"
4758 GTO 15
4759▸LBL 04
4760 RCL "EQN-Z"
4761 ENTER
4762 ENTER
4763 ENTER
4764 "√z"
4765 ASTO ST X
4766 POS
4767 X<0?
4768 GTO 04
4769 STO "#POS"
4770 0
4771 X<>Y
4772 SUBSTR
4773 ENTER
4774 "√(z)"
4775 ASTO ST X
4776 APPEND
4777 X<>Y
4778 RCL "#POS"
4779 2
4780 +
4781 SUBSTR
4782 APPEND
4783 STO "EQN-Z"
4784 GTO 15
4785▸LBL 04
4786 RCL "EQN-Z"
4787 ENTER
4788 ENTER
4789 ENTER
4790 "q("
4791 ASTO ST X
4792 POS
4793 X<0?
4794 GTO 04
4795 STO "#POS"
4796 0
4797 X<>Y
4798 SUBSTR
4799 ENTER
4800 "sqr"
4801 ASTO ST X
4802 APPEND
4803 X<>Y
4804 RCL "#POS"
4805 1
4806 +
4807 SUBSTR
4808 APPEND
4809 STO "EQN-Z"
4810 GTO 15
4811▸LBL 04
4812 RCL "EQN-Z"
4813 ENTER
4814 ENTER
4815 ENTER
4816 "√"
4817 ASTO ST X
4818 POS
4819 X<0?
4820 GTO 04
4821 STO "#POS"
4822 0
4823 X<>Y
4824 SUBSTR
4825 ENTER
4826 "sqrt"
4827 ASTO ST X
4828 APPEND
4829 X<>Y
4830 RCL "#POS"
4831 1
4832 +
4833 SUBSTR
4834 APPEND
4835 STO "EQN-Z"
4836 GTO 15
4837▸LBL 04
4838 RCL "EQN-Z"
4839 ENTER
4840 ENTER
4841 ENTER
4842 "AS"
4843 ASTO ST X
4844 POS
4845 X<0?
4846 GTO 04
4847 STO "#POS"
4848 0
4849 X<>Y
4850 SUBSTR
4851 ENTER
4852 "arcs"
4853 ASTO ST X
4854 APPEND
4855 X<>Y
4856 RCL "#POS"
4857 2
4858 +
4859 SUBSTR
4860 APPEND
4861 STO "EQN-Z"
4862 GTO 15
4863▸LBL 04
4864 RCL "EQN-Z"
4865 ENTER
4866 ENTER
4867 ENTER
4868 "AT"
4869 ASTO ST X
4870 POS
4871 X<0?
4872 GTO 04
4873 STO "#POS"
4874 0
4875 X<>Y
4876 SUBSTR
4877 ENTER
4878 "arct"
4879 ASTO ST X
4880 APPEND
4881 X<>Y
4882 RCL "#POS"
4883 2
4884 +
4885 SUBSTR
4886 APPEND
4887 STO "EQN-Z"
4888 GTO 15
4889▸LBL 04
4890 RCL "EQN-Z"
4891 ENTER
4892 ENTER
4893 ENTER
4894 "AC"
4895 ASTO ST X
4896 POS
4897 X<0?
4898 GTO 04
4899 STO "#POS"
4900 0
4901 X<>Y
4902 SUBSTR
4903 ENTER
4904 "arcc"
4905 ASTO ST X
4906 APPEND
4907 X<>Y
4908 RCL "#POS"
4909 2
4910 +
4911 SUBSTR
4912 APPEND
4913 STO "EQN-Z"
4914 GTO 15
4915▸LBL 04
4916 RCL "EQN-Z"
4917 ENTER
4918 ENTER
4919 ENTER
4920 "S"
4921 ASTO ST X
4922 POS
4923 X<0?
4924 GTO 04
4925 STO "#POS"
4926 0
4927 X<>Y
4928 SUBSTR
4929 ENTER
4930 "s"
4931 ASTO ST X
4932 APPEND
4933 X<>Y
4934 RCL "#POS"
4935 1
4936 +
4937 SUBSTR
4938 APPEND
4939 STO "EQN-Z"
4940 GTO 15
4941▸LBL 04
4942 RCL "EQN-Z"
4943 ENTER
4944 ENTER
4945 ENTER
4946 "IN"
4947 ASTO ST X
4948 POS
4949 X<0?
4950 GTO 04
4951 STO "#POS"
4952 0
4953 X<>Y
4954 SUBSTR
4955 ENTER
4956 "in"
4957 ASTO ST X
4958 APPEND
4959 X<>Y
4960 RCL "#POS"
4961 2
4962 +
4963 SUBSTR
4964 APPEND
4965 STO "EQN-Z"
4966 GTO 15
4967▸LBL 04
4968 RCL "EQN-Z"
4969 ENTER
4970 ENTER
4971 ENTER
4972 "C"
4973 ASTO ST X
4974 POS
4975 X<0?
4976 GTO 04
4977 STO "#POS"
4978 0
4979 X<>Y
4980 SUBSTR
4981 ENTER
4982 "c"
4983 ASTO ST X
4984 APPEND
4985 X<>Y
4986 RCL "#POS"
4987 1
4988 +
4989 SUBSTR
4990 APPEND
4991 STO "EQN-Z"
4992 GTO 15
4993▸LBL 04
4994 RCL "EQN-Z"
4995 ENTER
4996 ENTER
4997 ENTER
4998 "LOG"
4999 ASTO ST X
5000 POS
5001 X<0?
5002 GTO 04
5003 STO "#POS"
5004 0
5005 X<>Y
5006 SUBSTR
5007 ENTER
5008 "log10"
5009 ASTO ST X
5010 APPEND
5011 X<>Y
5012 RCL "#POS"
5013 3
5014 +
5015 SUBSTR
5016 APPEND
5017 STO "EQN-Z"
5018 GTO 15
5019▸LBL 04
5020 RCL "EQN-Z"
5021 ENTER
5022 ENTER
5023 ENTER
5024 "O"
5025 ASTO ST X
5026 POS
5027 X<0?
5028 GTO 04
5029 STO "#POS"
5030 0
5031 X<>Y
5032 SUBSTR
5033 ENTER
5034 "o"
5035 ASTO ST X
5036 APPEND
5037 X<>Y
5038 RCL "#POS"
5039 1
5040 +
5041 SUBSTR
5042 APPEND
5043 STO "EQN-Z"
5044 GTO 15
5045▸LBL 04
5046 RCL "EQN-Z"
5047 ENTER
5048 ENTER
5049 ENTER
5050 "T"
5051 ASTO ST X
5052 POS
5053 X<0?
5054 GTO 04
5055 STO "#POS"
5056 0
5057 X<>Y
5058 SUBSTR
5059 ENTER
5060 "t"
5061 ASTO ST X
5062 APPEND
5063 X<>Y
5064 RCL "#POS"
5065 1
5066 +
5067 SUBSTR
5068 APPEND
5069 STO "EQN-Z"
5070 GTO 15
5071▸LBL 04
5072 RCL "EQN-Z"
5073 ENTER
5074 ENTER
5075 ENTER
5076 "AN"
5077 ASTO ST X
5078 POS
5079 X<0?
5080 GTO 04
5081 STO "#POS"
5082 0
5083 X<>Y
5084 SUBSTR
5085 ENTER
5086 "an"
5087 ASTO ST X
5088 APPEND
5089 X<>Y
5090 RCL "#POS"
5091 2
5092 +
5093 SUBSTR
5094 APPEND
5095 STO "EQN-Z"
5096 GTO 15
5097▸LBL 04
5098 RCL "EQN-Z"
5099 ENTER
5100 ENTER
5101 ENTER
5102 "OT"
5103 ASTO ST X
5104 POS
5105 X<0?
5106 GTO 04
5107 STO "#POS"
5108 0
5109 X<>Y
5110 SUBSTR
5111 ENTER
5112 "ot"
5113 ASTO ST X
5114 APPEND
5115 X<>Y
5116 RCL "#POS"
5117 2
5118 +
5119 SUBSTR
5120 APPEND
5121 STO "EQN-Z"
5122 GTO 15
5123▸LBL 04
5124 RCL "EQN-Z"
5125 ENTER
5126 ENTER
5127 ENTER
5128 "E"
5129 ASTO ST X
5130 POS
5131 X<0?
5132 GTO 04
5133 STO "#POS"
5134 0
5135 X<>Y
5136 SUBSTR
5137 ENTER
5138 "e"
5139 ASTO ST X
5140 APPEND
5141 X<>Y
5142 RCL "#POS"
5143 1
5144 +
5145 SUBSTR
5146 APPEND
5147 STO "EQN-Z"
5148 GTO 15
5149▸LBL 04
5150 RCL "EQN-Z"
5151 ENTER
5152 ENTER
5153 ENTER
5154 "H"
5155 ASTO ST X
5156 POS
5157 X<0?
5158 GTO 04
5159 STO "#POS"
5160 0
5161 X<>Y
5162 SUBSTR
5163 ENTER
5164 "h"
5165 ASTO ST X
5166 APPEND
5167 X<>Y
5168 RCL "#POS"
5169 1
5170 +
5171 SUBSTR
5172 APPEND
5173 STO "EQN-Z"
5174 GTO 15
5175▸LBL 04
5176 RCL "EQN-Z"
5177 ENTER
5178 ENTER
5179 ENTER
5180 "LOG"
5181 ASTO ST X
5182 POS
5183 X<0?
5184 GTO 04
5185 STO "#POS"
5186 0
5187 X<>Y
5188 SUBSTR
5189 ENTER
5190 "log10"
5191 ASTO ST X
5192 APPEND
5193 X<>Y
5194 RCL "#POS"
5195 3
5196 +
5197 SUBSTR
5198 APPEND
5199 STO "EQN-Z"
5200 GTO 15
5201▸LBL 04
5202 RCL "EQN-Z"
5203 ENTER
5204 ENTER
5205 ENTER
5206 "LN"
5207 ASTO ST X
5208 POS
5209 X<0?
5210 GTO 04
5211 STO "#POS"
5212 0
5213 X<>Y
5214 SUBSTR
5215 ENTER
5216 "ln"
5217 ASTO ST X
5218 APPEND
5219 X<>Y
5220 RCL "#POS"
5221 2
5222 +
5223 SUBSTR
5224 APPEND
5225 STO "EQN-Z"
5226 GTO 15
5227▸LBL 04
5228 RCL "EQN-Z"
5229 ENTER
5230 ENTER
5231 ENTER
5232 "↑"
5233 ASTO ST X
5234 POS
5235 X<0?
5236 GTO 04
5237 STO "#POS"
5238 0
5239 X<>Y
5240 SUBSTR
5241 ENTER
5242 "^"
5243 ASTO ST X
5244 APPEND
5245 X<>Y
5246 RCL "#POS"
5247 1
5248 +
5249 SUBSTR
5250 APPEND
5251 STO "EQN-Z"
5252 GTO 15
5253▸LBL 04
5254 "... fÜr EQN-# 2"
5255 RCL "###"
5256 ENTER
5257 ENTER
5258 ENTER
5259 "ACOT"
5260 ASTO ST X
5261 POS
5262 X<0?
5263 GTO 04
5264 STO "#POS"
5265 STO "#POS1"
5266 SUBSTR
5267 ENTER
5268 "("
5269 ASTO ST X
5270 POS
5271 STO+ "#POS1"
5272 RCL "###"
5273 STO "###("
5274 XEQ 08
5275 RCL "###130"
5276 ENTER
5277 ENTER
5278 ENTER
5279 RCL "#POS1"
5280 ENTER
5281 ISG ST X
5282 STO ST X
5283 SUBSTR
5284 STO "#()-A"
5285 X<>Y
5286 REV
5287 ENTER
5288 ENTER
5289 R↑
5290 POS
5291 STO "#POS1"
5292 0
5293 X<>Y
5294 SUBSTR
5295 ENTER
5296 "))1-(^"
5297 ASTO ST X
5298 APPEND
5299 X<>Y
5300 RCL "#POS1"
5301 SUBSTR
5302 APPEND
5303 REV
5304 ENTER
5305 ENTER
5306 ENTER
5307 RCL "#()-A"
5308 POS
5309 STO "#POS1"
5310 0
5311 X<>Y
5312 SUBSTR
5313 ENTER
5314 "("
5315 ASTO ST X
5316 APPEND
5317 X<>Y
5318 RCL "#POS1"
5319 SUBSTR
5320 APPEND
5321 ENTER
5322 ENTER
5323 ENTER
5324 0
5325 RCL "#POS"
5326 SUBSTR
5327 ENTER
5328 "ATAN"
5329 ASTO ST X
5330 APPEND
5331 X<>Y
5332 RCL "#POS"
5333 4
5334 +
5335 SUBSTR
5336 APPEND
5337 STO "###130"
5338 XEQ 09
5339 RCL "###("
5340 STO "###"
5341 GTO 15
5342▸LBL 04
5343 RCL "###"
5344 ENTER
5345 ENTER
5346 ENTER
5347 "ASEC"
5348 ASTO ST X
5349 POS
5350 X<0?
5351 GTO 04
5352 STO "#POS"
5353 STO "#POS1"
5354 SUBSTR
5355 ENTER
5356 "("
5357 ASTO ST X
5358 POS
5359 STO+ "#POS1"
5360 RCL "###"
5361 STO "###("
5362 XEQ 08
5363 RCL "###130"
5364 ENTER
5365 ENTER
5366 ENTER
5367 RCL "#POS1"
5368 ENTER
5369 ISG ST X
5370 STO ST X
5371 SUBSTR
5372 STO "#()-A"
5373 X<>Y
5374 REV
5375 ENTER
5376 ENTER
5377 R↑
5378 POS
5379 STO "#POS1"
5380 0
5381 X<>Y
5382 SUBSTR
5383 ENTER
5384 "))1-(^"
5385 ASTO ST X
5386 APPEND
5387 X<>Y
5388 RCL "#POS1"
5389 SUBSTR
5390 APPEND
5391 REV
5392 ENTER
5393 ENTER
5394 ENTER
5395 RCL "#()-A"
5396 POS
5397 STO "#POS1"
5398 0
5399 X<>Y
5400 SUBSTR
5401 ENTER
5402 "("
5403 ASTO ST X
5404 APPEND
5405 X<>Y
5406 RCL "#POS1"
5407 SUBSTR
5408 APPEND
5409 ENTER
5410 ENTER
5411 ENTER
5412 RCL "###"
5413 0
5414 RCL "#POS"
5415 SUBSTR
5416 ENTER
5417 "ACOS"
5418 ASTO ST X
5419 APPEND
5420 X<>Y
5421 RCL "#POS"
5422 4
5423 +
5424 SUBSTR
5425 APPEND
5426 STO "###130"
5427 XEQ 09
5428 RCL "###("
5429 STO "###"
5430 GTO 15
5431▸LBL 04
5432 RCL "###"
5433 ENTER
5434 ENTER
5435 ENTER
5436 "ACSC"
5437 ASTO ST X
5438 POS
5439 X<0?
5440 GTO 04
5441 STO "#POS"
5442 STO "#POS1"
5443 SUBSTR
5444 ENTER
5445 "("
5446 ASTO ST X
5447 POS
5448 STO+ "#POS1"
5449 RCL "###"
5450 STO "###("
5451 XEQ 08
5452 RCL "###130"
5453 ENTER
5454 ENTER
5455 ENTER
5456 RCL "#POS1"
5457 ENTER
5458 ISG ST X
5459 STO ST X
5460 SUBSTR
5461 STO "#()-A"
5462 X<>Y
5463 REV
5464 ENTER
5465 ENTER
5466 R↑
5467 POS
5468 STO "#POS1"
5469 0
5470 X<>Y
5471 SUBSTR
5472 ENTER
5473 "))1-(^"
5474 ASTO ST X
5475 APPEND
5476 X<>Y
5477 RCL "#POS1"
5478 SUBSTR
5479 APPEND
5480 REV
5481 ENTER
5482 ENTER
5483 ENTER
5484 RCL "#()-A"
5485 POS
5486 STO "#POS1"
5487 0
5488 X<>Y
5489 SUBSTR
5490 ENTER
5491 "("
5492 ASTO ST X
5493 APPEND
5494 X<>Y
5495 RCL "#POS1"
5496 SUBSTR
5497 APPEND
5498 ENTER
5499 ENTER
5500 ENTER
5501 0
5502 RCL "#POS"
5503 SUBSTR
5504 ENTER
5505 "ASIN"
5506 ASTO ST X
5507 APPEND
5508 X<>Y
5509 RCL "#POS"
5510 4
5511 +
5512 SUBSTR
5513 APPEND
5514 STO "###130"
5515 XEQ 09
5516 RCL "###("
5517 STO "###"
5518 GTO 15
5519▸LBL 04
5520 RCL "###"
5521 ENTER
5522 ENTER
5523 ENTER
5524 "COT"
5525 ASTO ST X
5526 POS
5527 X<0?
5528 GTO 04
5529 STO "#POS"
5530 STO "#POS1"
5531 SUBSTR
5532 ENTER
5533 "("
5534 ASTO ST X
5535 POS
5536 STO+ "#POS1"
5537 RCL "###"
5538 STO "###("
5539 XEQ 08
5540 RCL "###130"
5541 ENTER
5542 ENTER
5543 ENTER
5544 RCL "#POS1"
5545 ENTER
5546 ISG ST X
5547 STO ST X
5548 SUBSTR
5549 STO "#()-A"
5550 X<>Y
5551 REV
5552 ENTER
5553 ENTER
5554 R↑
5555 POS
5556 STO "#POS1"
5557 0
5558 X<>Y
5559 SUBSTR
5560 ENTER
5561 "))1-(^)"
5562 XASTO ST X
5563 APPEND
5564 X<>Y
5565 RCL "#POS1"
5566 SUBSTR
5567 APPEND
5568 REV
5569 ENTER
5570 ENTER
5571 ENTER
5572 RCL "#POS"
5573 0
5574 X<>Y
5575 SUBSTR
5576 ENTER
5577 "((TAN"
5578 ASTO ST X
5579 APPEND
5580 X<>Y
5581 RCL "#POS"
5582 3
5583 +
5584 SUBSTR
5585 APPEND
5586 STO "###130"
5587 XEQ 09
5588 RCL "###("
5589 STO "###"
5590 GTO 15
5591▸LBL 04
5592 RCL "###"
5593 ENTER
5594 ENTER
5595 ENTER
5596 "SEC"
5597 ASTO ST X
5598 POS
5599 X<0?
5600 GTO 04
5601 STO "#POS"
5602 STO "#POS1"
5603 SUBSTR
5604 ENTER
5605 "("
5606 ASTO ST X
5607 POS
5608 STO+ "#POS1"
5609 RCL "###"
5610 STO "###("
5611 XEQ 08
5612 RCL "###130"
5613 ENTER
5614 ENTER
5615 ENTER
5616 RCL "#POS1"
5617 ENTER
5618 ISG ST X
5619 STO ST X
5620 SUBSTR
5621 STO "#()-A"
5622 X<>Y
5623 REV
5624 ENTER
5625 ENTER
5626 R↑
5627 POS
5628 STO "#POS1"
5629 0
5630 X<>Y
5631 SUBSTR
5632 ENTER
5633 "))1-(^)"
5634 XASTO ST X
5635 APPEND
5636 X<>Y
5637 RCL "#POS1"
5638 SUBSTR
5639 APPEND
5640 REV
5641 ENTER
5642 ENTER
5643 ENTER
5644 RCL "#POS"
5645 0
5646 X<>Y
5647 SUBSTR
5648 ENTER
5649 "((COS"
5650 ASTO ST X
5651 APPEND
5652 X<>Y
5653 RCL "#POS"
5654 3
5655 +
5656 SUBSTR
5657 APPEND
5658 STO "###130"
5659 XEQ 09
5660 RCL "###("
5661 STO "###"
5662 GTO 15
5663▸LBL 04
5664 RCL "###"
5665 ENTER
5666 ENTER
5667 ENTER
5668 "CSC"
5669 ASTO ST X
5670 POS
5671 X<0?
5672 GTO 04
5673 STO "#POS"
5674 STO "#POS1"
5675 SUBSTR
5676 ENTER
5677 "("
5678 ASTO ST X
5679 POS
5680 STO+ "#POS1"
5681 RCL "###"
5682 STO "###("
5683 XEQ 08
5684 RCL "###130"
5685 ENTER
5686 ENTER
5687 ENTER
5688 RCL "#POS1"
5689 ENTER
5690 ISG ST X
5691 STO ST X
5692 SUBSTR
5693 STO "#()-A"
5694 X<>Y
5695 REV
5696 ENTER
5697 ENTER
5698 R↑
5699 POS
5700 STO "#POS1"
5701 0
5702 X<>Y
5703 SUBSTR
5704 ENTER
5705 "))1-(^)"
5706 XASTO ST X
5707 APPEND
5708 X<>Y
5709 RCL "#POS1"
5710 SUBSTR
5711 APPEND
5712 REV
5713 ENTER
5714 ENTER
5715 ENTER
5716 RCL "#POS"
5717 0
5718 X<>Y
5719 SUBSTR
5720 ENTER
5721 "((SIN"
5722 ASTO ST X
5723 APPEND
5724 X<>Y
5725 RCL "#POS"
5726 3
5727 +
5728 SUBSTR
5729 APPEND
5730 STO "###130"
5731 XEQ 09
5732 RCL "###("
5733 STO "###"
5734 GTO 15
5735▸LBL 04
5736 RCL "EQN-Z"
5737 STO "###("
5738 XEQ 07
5739 RCL "###("
5740 STO "EQN-Z"
5741 RCL "###"
5742 STO "EQN-X"
5743 STO "EQN-#"
5744 5
5745 STO "#15-GTO"
5746▸LBL 05
5747 "... fÜr EQN-X"
5748 RCL "EQN-X"
5749 ENTER
5750 ENTER
5751 ENTER
5752 "ASINH"
5753 ASTO ST X
5754 POS
5755 X<0?
5756 GTO 05
5757 STO "#POS"
5758 0
5759 X<>Y
5760 SUBSTR
5761 ENTER
5762 "ARSINH"
5763 ASTO ST X
5764 APPEND
5765 X<>Y
5766 RCL "#POS"
5767 5
5768 +
5769 SUBSTR
5770 APPEND
5771 STO "EQN-X"
5772 GTO 15
5773▸LBL 05
5774 RCL "EQN-X"
5775 ENTER
5776 ENTER
5777 ENTER
5778 "ASIN"
5779 ASTO ST X
5780 POS
5781 X<0?
5782 GTO 05
5783 STO "#POS"
5784 0
5785 X<>Y
5786 SUBSTR
5787 ENTER
5788 "ARCSIN"
5789 ASTO ST X
5790 APPEND
5791 X<>Y
5792 RCL "#POS"
5793 4
5794 +
5795 SUBSTR
5796 APPEND
5797 STO "EQN-X"
5798 GTO 15
5799▸LBL 05
5800 RCL "EQN-X"
5801 ENTER
5802 ENTER
5803 ENTER
5804 "ACOSH"
5805 ASTO ST X
5806 POS
5807 X<0?
5808 GTO 05
5809 STO "#POS"
5810 0
5811 X<>Y
5812 SUBSTR
5813 ENTER
5814 "ARCOSH"
5815 ASTO ST X
5816 APPEND
5817 X<>Y
5818 RCL "#POS"
5819 5
5820 +
5821 SUBSTR
5822 APPEND
5823 STO "EQN-X"
5824 GTO 15
5825▸LBL 05
5826 RCL "EQN-X"
5827 ENTER
5828 ENTER
5829 ENTER
5830 "ACOS"
5831 ASTO ST X
5832 POS
5833 X<0?
5834 GTO 05
5835 STO "#POS"
5836 0
5837 X<>Y
5838 SUBSTR
5839 ENTER
5840 "ARCCOS"
5841 ASTO ST X
5842 APPEND
5843 X<>Y
5844 RCL "#POS"
5845 4
5846 +
5847 SUBSTR
5848 APPEND
5849 STO "EQN-X"
5850 GTO 15
5851▸LBL 05
5852 RCL "EQN-X"
5853 ENTER
5854 ENTER
5855 ENTER
5856 "ATANH"
5857 ASTO ST X
5858 POS
5859 X<0?
5860 GTO 05
5861 STO "#POS"
5862 0
5863 X<>Y
5864 SUBSTR
5865 ENTER
5866 "ARTANH"
5867 ASTO ST X
5868 APPEND
5869 X<>Y
5870 RCL "#POS"
5871 5
5872 +
5873 SUBSTR
5874 APPEND
5875 STO "EQN-X"
5876 GTO 15
5877▸LBL 05
5878 RCL "EQN-X"
5879 ENTER
5880 ENTER
5881 ENTER
5882 "ATAN"
5883 ASTO ST X
5884 POS
5885 X<0?
5886 GTO 05
5887 STO "#POS"
5888 0
5889 X<>Y
5890 SUBSTR
5891 ENTER
5892 "ARCTAN"
5893 ASTO ST X
5894 APPEND
5895 X<>Y
5896 RCL "#POS"
5897 4
5898 +
5899 SUBSTR
5900 APPEND
5901 STO "EQN-X"
5902 GTO 15
5903▸LBL 05
5904 RCL "EQN-X"
5905 ENTER
5906 ENTER
5907 ENTER
5908 "LOG"
5909 ASTO ST X
5910 POS
5911 X<0?
5912 GTO 05
5913 STO "#POS"
5914 0
5915 X<>Y
5916 SUBSTR
5917 ENTER
5918 "LG"
5919 ASTO ST X
5920 APPEND
5921 X<>Y
5922 RCL "#POS"
5923 3
5924 +
5925 SUBSTR
5926 APPEND
5927 STO "EQN-X"
5928 GTO 15
5929▸LBL 05
5930 "... fÜr EQN-#"
5931 RCL "EQN-#"
5932 ENTER
5933 ENTER
5934 ENTER
5935 "↑"
5936 ASTO ST X
5937 POS
5938 STO "#POS"
5939 "^"
5940 ASTO ST X
5941 POS
5942 RCL "#POS"
5943 X<Y?
5944 X<>Y
5945 X<0?
5946 GTO 05
5947 STO "#POS"
5948 X<>Y
5949 R↓
5950 0
5951 X<>Y
5952 SUBSTR
5953 ENTER
5954 "'"
5955 ASTO ST X
5956 APPEND
5957 X<>Y
5958 RCL "#POS"
5959 1
5960 +
5961 SUBSTR
5962 APPEND
5963 STO "EQN-#"
5964 GTO 15
5965▸LBL 05
5966 RCL "EQN-#"
5967 ENTER
5968 ENTER
5969 ENTER
5970 "'-"
5971 ASTO ST X
5972 POS
5973 X<0?
5974 GTO 05
5975 STO "#POS"
5976 0
5977 X<>Y
5978 SUBSTR
5979 ENTER
5980 """
5981 ASTO ST X
5982 APPEND
5983 X<>Y
5984 RCL "#POS"
5985 2
5986 +
5987 SUBSTR
5988 APPEND
5989 STO "EQN-#"
5990 GTO 15
5991▸LBL 05
5992 RCL "EQN-#"
5993 ENTER
5994 ENTER
5995 ENTER
5996 "*"
5997 ASTO ST X
5998 POS
5999 X<0?
6000 GTO 05
6001 STO "#POS"
6002 0
6003 X<>Y
6004 SUBSTR
6005 ENTER
6006 "×"
6007 ASTO ST X
6008 APPEND
6009 X<>Y
6010 RCL "#POS"
6011 1
6012 +
6013 SUBSTR
6014 APPEND
6015 STO "EQN-#"
6016 GTO 15
6017▸LBL 05
6018 RCL "EQN-#"
6019 ENTER
6020 ENTER
6021 ENTER
6022 "×-"
6023 ASTO ST X
6024 POS
6025 X<0?
6026 GTO 05
6027 STO "#POS"
6028 0
6029 X<>Y
6030 SUBSTR
6031 ENTER
6032 "°"
6033 ASTO ST X
6034 APPEND
6035 X<>Y
6036 RCL "#POS"
6037 2
6038 +
6039 SUBSTR
6040 APPEND
6041 STO "EQN-#"
6042 GTO 15
6043▸LBL 05
6044 RCL "EQN-#"
6045 ENTER
6046 ENTER
6047 ENTER
6048 "/"
6049 ASTO ST X
6050 POS
6051 X<0?
6052 GTO 05
6053 STO "#POS"
6054 0
6055 X<>Y
6056 SUBSTR
6057 ENTER
6058 "÷"
6059 ASTO ST X
6060 APPEND
6061 X<>Y
6062 RCL "#POS"
6063 1
6064 +
6065 SUBSTR
6066 APPEND
6067 STO "EQN-#"
6068 GTO 15
6069▸LBL 05
6070 RCL "EQN-#"
6071 ENTER
6072 ENTER
6073 ENTER
6074 "÷-"
6075 ASTO ST X
6076 POS
6077 X<0?
6078 GTO 05
6079 STO "#POS"
6080 0
6081 X<>Y
6082 SUBSTR
6083 ENTER
6084 "\"
6085 ASTO ST X
6086 APPEND
6087 X<>Y
6088 RCL "#POS"
6089 2
6090 +
6091 SUBSTR
6092 APPEND
6093 STO "EQN-#"
6094 GTO 15
6095▸LBL 05
6096 RCL "EQN-#"
6097 ENTER
6098 ENTER
6099 ENTER
6100 "X"
6101 ASTO ST X
6102 POS
6103 X<0?
6104 GTO 05
6105 STO "#POS"
6106 0
6107 X<>Y
6108 SUBSTR
6109 ENTER
6110 "(#)"
6111 ASTO ST X
6112 APPEND
6113 X<>Y
6114 RCL "#POS"
6115 1
6116 +
6117 SUBSTR
6118 APPEND
6119 STO "###("
6120 XEQ 07
6121 RCL "###("
6122 STO "EQN-#"
6123 GTO 15
6124▸LBL 05
6125 "... fÜr EQN-X 2"
6126 RCL "EQN-X"
6127 ENTER
6128 ENTER
6129 ENTER
6130 "↑"
6131 ASTO ST X
6132 POS
6133 X<0?
6134 GTO 05
6135 STO "#POS"
6136 0
6137 X<>Y
6138 SUBSTR
6139 ENTER
6140 "^"
6141 ASTO ST X
6142 APPEND
6143 X<>Y
6144 RCL "#POS"
6145 1
6146 +
6147 SUBSTR
6148 APPEND
6149 STO "EQN-X"
6150 GTO 15
6151▸LBL 05
6152 RCL "EQN-X"
6153 ENTER
6154 ENTER
6155 ENTER
6156 "X"
6157 ASTO ST X
6158 POS
6159 X<0?
6160 GTO 05
6161 STO "#POS"
6162 0
6163 X<>Y
6164 SUBSTR
6165 ENTER
6166 "(x)"
6167 ASTO ST X
6168 APPEND
6169 X<>Y
6170 RCL "#POS"
6171 1
6172 +
6173 SUBSTR
6174 APPEND
6175 STO "EQN-X"
6176 GTO 15
6177▸LBL 05
6178 RCL "EQN-X"
6179 ENTER
6180 ENTER
6181 ENTER
6182 "√"
6183 ASTO ST X
6184 POS
6185 X<0?
6186 GTO 05
6187 STO "#POS"
6188 0
6189 X<>Y
6190 SUBSTR
6191 ENTER
6192 "SQRT"
6193 ASTO ST X
6194 APPEND
6195 X<>Y
6196 RCL "#POS"
6197 1
6198 +
6199 SUBSTR
6200 APPEND
6201 STO "EQN-X"
6202 GTO 15
6203▸LBL 05
6204 RCL "EQN-X"
6205 ENTER
6206 ENTER
6207 ENTER
6208 "q("
6209 ASTO ST X
6210 POS
6211 X<0?
6212 GTO 05
6213 STO "#POS"
6214 0
6215 X<>Y
6216 SUBSTR
6217 ENTER
6218 "SQR"
6219 ASTO ST X
6220 APPEND
6221 X<>Y
6222 RCL "#POS"
6223 1
6224 +
6225 SUBSTR
6226 APPEND
6227 STO "EQN-X"
6228 GTO 15
6229▸LBL 05
6230 RCL "EQN-#"
6231 ENTER
6232 ENTER
6233 ENTER
6234 "q("
6235 ASTO ST X
6236 POS
6237 X<0?
6238 GTO 05
6239 STO "#POS"
6240 0
6241 X<>Y
6242 SUBSTR
6243 ENTER
6244 "SQ"
6245 ASTO ST X
6246 APPEND
6247 X<>Y
6248 RCL "#POS"
6249 1
6250 +
6251 SUBSTR
6252 APPEND
6253 STO "EQN-#"
6254 GTO 15
6255▸LBL 05
6256 RCL "EQNf(X)"
6257 ENTER
6258 ENTER
6259 ENTER
6260 "q("
6261 ASTO ST X
6262 POS
6263 X<0?
6264 GTO 05
6265 STO "#POS"
6266 0
6267 X<>Y
6268 SUBSTR
6269 ENTER
6270 "SQ"
6271 ASTO ST X
6272 APPEND
6273 X<>Y
6274 RCL "#POS"
6275 1
6276 +
6277 SUBSTR
6278 APPEND
6279 STO "EQNf(X)"
6280 GTO 15
6281▸LBL 05
6282 RCL "EQN-X"
6283 STO "###("
6284 XEQ 07
6285 RCL "###("
6286 STO "EQN-X"
6287 RCL "EQN-#"
6288 STO "###("
6289 XEQ 07
6290 RCL "###("
6291 STO "EQN-#"
6292 STO "###("
6293 XEQ 08
6294 RCL "###("
6295 STO "EQNchek"
6296 6
6297 STO "#15-GTO"
6298▸LBL 06
6299 RCL "EQNf(X)"
6300 ENTER
6301 ENTER
6302 ENTER
6303 "@"
6304 ASTO ST X
6305 POS
6306 X<0?
6307 GTO 06
6308 STO "#POS"
6309 0
6310 X<>Y
6311 SUBSTR
6312 ENTER
6313 "EXP"
6314 ASTO ST X
6315 APPEND
6316 X<>Y
6317 RCL "#POS"
6318 1
6319 +
6320 SUBSTR
6321 APPEND
6322 STO "EQNf(X)"
6323 GTO 15
6324▸LBL 06
6325 RCL "EQNf(X)"
6326 ENTER
6327 ENTER
6328 ENTER
6329 "+(X)"
6330 ASTO ST X
6331 POS
6332 X<0?
6333 GTO 06
6334 STO "#POS"
6335 0
6336 X<>Y
6337 SUBSTR
6338 ENTER
6339 "+X"
6340 ASTO ST X
6341 APPEND
6342 X<>Y
6343 RCL "#POS"
6344 4
6345 +
6346 SUBSTR
6347 APPEND
6348 STO "EQNf(X)"
6349 GTO 15
6350▸LBL 06
6351 RCL "EQNf(X)"
6352 ENTER
6353 ENTER
6354 ENTER
6355 "-(X)"
6356 ASTO ST X
6357 POS
6358 X<0?
6359 GTO 06
6360 STO "#POS"
6361 0
6362 X<>Y
6363 SUBSTR
6364 ENTER
6365 "-X"
6366 ASTO ST X
6367 APPEND
6368 X<>Y
6369 RCL "#POS"
6370 4
6371 +
6372 SUBSTR
6373 APPEND
6374 STO "EQNf(X)"
6375 GTO 15
6376▸LBL 06
6377 RCL "EQNf(X)"
6378 ENTER
6379 ENTER
6380 ENTER
6381 "*(X)"
6382 ASTO ST X
6383 POS
6384 X<0?
6385 GTO 06
6386 STO "#POS"
6387 0
6388 X<>Y
6389 SUBSTR
6390 ENTER
6391 "*X"
6392 ASTO ST X
6393 APPEND
6394 X<>Y
6395 RCL "#POS"
6396 4
6397 +
6398 SUBSTR
6399 APPEND
6400 STO "EQNf(X)"
6401 GTO 15
6402▸LBL 06
6403 RCL "EQNf(X)"
6404 ENTER
6405 ENTER
6406 ENTER
6407 "/(X)"
6408 ASTO ST X
6409 POS
6410 X<0?
6411 GTO 06
6412 STO "#POS"
6413 0
6414 X<>Y
6415 SUBSTR
6416 ENTER
6417 "/X"
6418 ASTO ST X
6419 APPEND
6420 X<>Y
6421 RCL "#POS"
6422 4
6423 +
6424 SUBSTR
6425 APPEND
6426 STO "EQNf(X)"
6427 GTO 15
6428▸LBL 06
6429 RCL "EQNf(X)"
6430 ENTER
6431 ENTER
6432 ENTER
6433 "^(X)"
6434 ASTO ST X
6435 POS
6436 X<0?
6437 GTO 06
6438 STO "#POS"
6439 0
6440 X<>Y
6441 SUBSTR
6442 ENTER
6443 "^X"
6444 ASTO ST X
6445 APPEND
6446 X<>Y
6447 RCL "#POS"
6448 4
6449 +
6450 SUBSTR
6451 APPEND
6452 STO "EQNf(X)"
6453 GTO 15
6454▸LBL 06
6455 RCL "EQNf(X)"
6456 ENTER
6457 ENTER
6458 ENTER
6459 "(X)"
6460 ASTO ST X
6461 POS
6462 X≠0?
6463 GTO 06
6464 "X"
6465 ASTO ST X
6466 X<>Y
6467 3
6468 SUBSTR
6469 APPEND
6470 STO "EQNf(X)"
6471 GTO 15
6472▸LBL 06
6473 RCL "EQN-X"
6474 ENTER
6475 ENTER
6476 ENTER
6477 "@"
6478 ASTO ST X
6479 POS
6480 X<0?
6481 GTO 06
6482 STO "#POS"
6483 0
6484 X<>Y
6485 SUBSTR
6486 ENTER
6487 "EXP"
6488 ASTO ST X
6489 APPEND
6490 X<>Y
6491 RCL "#POS"
6492 1
6493 +
6494 SUBSTR
6495 APPEND
6496 STO "EQN-X"
6497 GTO 15
6498▸LBL 06
6499 RCL "EQN-Z"
6500 ENTER
6501 ENTER
6502 ENTER
6503 "@"
6504 ASTO ST X
6505 POS
6506 X<0?
6507 GTO 06
6508 STO "#POS"
6509 0
6510 X<>Y
6511 SUBSTR
6512 ENTER
6513 "exp"
6514 ASTO ST X
6515 APPEND
6516 X<>Y
6517 RCL "#POS"
6518 1
6519 +
6520 SUBSTR
6521 APPEND
6522 STO "EQN-Z"
6523 GTO 15
6524▸LBL 06
6525 RCL "EQN-#"
6526 ENTER
6527 ENTER
6528 ENTER
6529 "@"
6530 ASTO ST X
6531 POS
6532 X<0?
6533 GTO 06
6534 STO "#POS"
6535 0
6536 X<>Y
6537 SUBSTR
6538 ENTER
6539 "EXP"
6540 ASTO ST X
6541 APPEND
6542 X<>Y
6543 RCL "#POS"
6544 1
6545 +
6546 SUBSTR
6547 APPEND
6548 STO "EQN-#"
6549 GTO 15
6550▸LBL 06
6551 RCL "EQN-#"
6552 ENTER
6553 ENTER
6554 ENTER
6555 "'"
6556 ASTO ST X
6557 POS
6558 X<0?
6559 GTO 06
6560 STO "#POS"
6561 0
6562 X<>Y
6563 SUBSTR
6564 ENTER
6565 "^"
6566 ASTO ST X
6567 APPEND
6568 X<>Y
6569 RCL "#POS"
6570 1
6571 +
6572 SUBSTR
6573 APPEND
6574 STO "EQN-#"
6575 GTO 15
6576▸LBL 06
6577 RCL "EQN-#"
6578 ENTER
6579 ENTER
6580 ENTER
6581 """
6582 ASTO ST X
6583 POS
6584 X<0?
6585 GTO 06
6586 STO "#POS"
6587 0
6588 X<>Y
6589 SUBSTR
6590 ENTER
6591 "^-"
6592 ASTO ST X
6593 APPEND
6594 X<>Y
6595 RCL "#POS"
6596 1
6597 +
6598 SUBSTR
6599 APPEND
6600 STO "EQN-#"
6601 GTO 15
6602▸LBL 06
6603 RCL "EQN-#"
6604 ENTER
6605 ENTER
6606 ENTER
6607 "×"
6608 ASTO ST X
6609 POS
6610 X<0?
6611 GTO 06
6612 STO "#POS"
6613 0
6614 X<>Y
6615 SUBSTR
6616 ENTER
6617 "*"
6618 ASTO ST X
6619 APPEND
6620 X<>Y
6621 RCL "#POS"
6622 1
6623 +
6624 SUBSTR
6625 APPEND
6626 STO "EQN-#"
6627 GTO 15
6628▸LBL 06
6629 RCL "EQN-#"
6630 ENTER
6631 ENTER
6632 ENTER
6633 "°"
6634 ASTO ST X
6635 POS
6636 X<0?
6637 GTO 06
6638 STO "#POS"
6639 0
6640 X<>Y
6641 SUBSTR
6642 ENTER
6643 "*-"
6644 ASTO ST X
6645 APPEND
6646 X<>Y
6647 RCL "#POS"
6648 1
6649 +
6650 SUBSTR
6651 APPEND
6652 STO "EQN-#"
6653 GTO 15
6654▸LBL 06
6655 RCL "EQN-#"
6656 ENTER
6657 ENTER
6658 ENTER
6659 "\"
6660 ASTO ST X
6661 POS
6662 X<0?
6663 GTO 06
6664 STO "#POS"
6665 0
6666 X<>Y
6667 SUBSTR
6668 ENTER
6669 "/-"
6670 ASTO ST X
6671 APPEND
6672 X<>Y
6673 RCL "#POS"
6674 1
6675 +
6676 SUBSTR
6677 APPEND
6678 STO "EQN-#"
6679 GTO 15
6680▸LBL 06
6681 RCL "EQN-#"
6682 ENTER
6683 ENTER
6684 ENTER
6685 "√"
6686 ASTO ST X
6687 POS
6688 X<0?
6689 GTO 06
6690 STO "#POS"
6691 0
6692 X<>Y
6693 SUBSTR
6694 ENTER
6695 "SQRT"
6696 ASTO ST X
6697 APPEND
6698 X<>Y
6699 RCL "#POS"
6700 1
6701 +
6702 SUBSTR
6703 APPEND
6704 STO "EQN-#"
6705 GTO 15
6706▸LBL 06
6707 RCL "EQN-#"
6708 SF 25
6709 PARSE
6710 FS? 25
6711 GTO 06
6712 CLST
6713 ADV
6714 "Error in EQN ()"
6715 PRA
6716 RCL "EQN-#"
6717 PRX
6718 EXITALL
6719 PROMPT
6720 SF 25
6721 RCL "#FLAG"
6722 FS? 25
6723 STOFLAG
6724 INDEX "HPReg"
6725 J+
6726 J+
6727 RCLEL
6728 STO "EQNold"
6729 CLV "#FLAG"
6730 CLV "###"
6731 CLV "###("
6732 CLV "###130"
6733 CLV "EQN-X"
6734 CLV "EQN-Z"
6735 CLV "EQN-#"
6736 XEQ 05
6737 GTO 13
6738▸LBL 06
6739 RCL "EQNchek"
6740 ENTER
6741 ENTER
6742 ENTER
6743 "PI"
6744 ASTO ST X
6745 POS
6746 X<0?
6747 GTO 06
6748 STO "#POS"
6749 0
6750 X<>Y
6751 SUBSTR
6752 ENTER
6753 ":"
6754 ASTO ST X
6755 APPEND
6756 X<>Y
6757 RCL "#POS"
6758 2
6759 +
6760 SUBSTR
6761 APPEND
6762 STO "###("
6763 XEQ 07
6764 RCL "###("
6765 STO "EQNchek"
6766 GTO 15
6767▸LBL 06
6768 "A+B'"C+D"
6769 "' **+, " **-"
6770 RCL "EQNchek"
6771 ENTER
6772 ENTER
6773 ENTER
6774 "'"
6775 ASTO ST X
6776 POS
6777 STO "#POS"
6778 """
6779 ASTO ST X
6780 POS
6781 RCL "#POS"
6782 X>Y?
6783 X<>Y
6784 X<0?
6785 X<>Y
6786 X<0?
6787 GTO 06
6788 STO "#POS"
6789 STO ST Y
6790 ISG ST X
6791 STO ST X
6792 SUBSTR
6793 STO "#OP"
6794 R↓
6795 RCL "#POS"
6796 1
6797 +
6798 SUBSTR
6799 STO "#TXT2"
6800 0
6801 1
6802 SUBSTR
6803 "("
6804 ASTO ST Y
6805 X=Y?
6806 GTO 02
6807 CLA
6808 ARCL ST X
6809 90
6810 ATOX
6811 -
6812 LASTX
6813 63
6814 -
6815 ×
6816 X≥0?
6817 GTO 01
6818 RCL "#TXT2"
6819 ENTER
6820 ENTER
6821 ENTER
6822 LENGTH
6823 STO "#POS2"
6824 "+"
6825 ASTO ST X
6826 POS
6827 RCL "#POS2"
6828 X>Y?
6829 X<>Y
6830 X<0?
6831 X<>Y
6832 STO "#POS2"
6833 +
6834 "-"
6835 ASTO ST X
6836 POS
6837 RCL "#POS2"
6838 X>Y?
6839 X<>Y
6840 X<0?
6841 X<>Y
6842 STO "#POS2"
6843 +
6844 "×"
6845 ASTO ST X
6846 POS
6847 RCL "#POS2"
6848 X>Y?
6849 X<>Y
6850 X<0?
6851 X<>Y
6852 STO "#POS2"
6853 +
6854 "°"
6855 ASTO ST X
6856 POS
6857 RCL "#POS2"
6858 X>Y?
6859 X<>Y
6860 X<0?
6861 X<>Y
6862 STO "#POS2"
6863 +
6864 "÷"
6865 ASTO ST X
6866 POS
6867 RCL "#POS2"
6868 X>Y?
6869 X<>Y
6870 X<0?
6871 X<>Y
6872 STO "#POS2"
6873 +
6874 "\"
6875 ASTO ST X
6876 POS
6877 RCL "#POS2"
6878 X>Y?
6879 X<>Y
6880 X<0?
6881 X<>Y
6882 STO "#POS2"
6883 +
6884 "'"
6885 ASTO ST X
6886 POS
6887 RCL "#POS2"
6888 X>Y?
6889 X<>Y
6890 X<0?
6891 X<>Y
6892 STO "#POS2"
6893 +
6894 """
6895 ASTO ST X
6896 POS
6897 RCL "#POS2"
6898 X>Y?
6899 X<>Y
6900 X<0?
6901 X<>Y
6902 STO "#POS2"
6903 X<>Y
6904 R↓
6905 0
6906 X<>Y
6907 SUBSTR
6908 ENTER
6909 ")"
6910 ASTO ST X
6911 APPEND
6912 "("
6913 ASTO ST Y
6914 APPEND
6915 RCL "#TXT2"
6916 RCL "#POS2"
6917 SUBSTR
6918 APPEND
6919 STO "#TXT2"
6920 GTO 02
6921▸LBL 01
6922 RCL "###130"
6923 ENTER
6924 ENTER
6925 RCL "#TXT2"
6926 ENTER
6927 "("
6928 ASTO ST X
6929 POS
6930 RCL "#POS"
6931 +
6932 1
6933 +
6934 ENTER
6935 ISG ST X
6936 STO ST X
6937 SUBSTR
6938 X<>Y
6939 REV
6940 X<>Y
6941 POS
6942 STO "#POS#"
6943 RCL "#TXT2"
6944 REV
6945 ENTER
6946 ENTER
6947 0
6948 RCL "#POS#"
6949 SUBSTR
6950 ENTER
6951 ")"
6952 ASTO ST X
6953 APPEND
6954 X<>Y
6955 RCL "#POS#"
6956 SUBSTR
6957 APPEND
6958 REV
6959 "("
6960 ASTO ST Y
6961 APPEND
6962 STO "#TXT2"
6963▸LBL 02
6964 RCL "EQNchek"
6965 0
6966 RCL "#POS"
6967 SUBSTR
6968 STO "#TXT1"
6969 REV
6970 0
6971 1
6972 SUBSTR
6973 ")"
6974 ASTO ST Y
6975 X=Y?
6976 GTO 01
6977 RCL "#TXT1"
6978 LENGTH
6979 STO "#POS#"
6980 RCL "#TXT1"
6981 REV
6982 ENTER
6983 ENTER
6984 ENTER
6985 "+"
6986 ASTO ST X
6987 POS
6988 RCL "#POS#"
6989 X>Y?
6990 X<>Y
6991 X<0?
6992 X<>Y
6993 STO "#POS#"
6994 +
6995 "-"
6996 ASTO ST X
6997 POS
6998 RCL "#POS#"
6999 X>Y?
7000 X<>Y
7001 X<0?
7002 X<>Y
7003 STO "#POS#"
7004 +
7005 "×"
7006 ASTO ST X
7007 POS
7008 RCL "#POS#"
7009 X>Y?
7010 X<>Y
7011 X<0?
7012 X<>Y
7013 STO "#POS#"
7014 +
7015 "°"
7016 ASTO ST X
7017 POS
7018 RCL "#POS#"
7019 X>Y?
7020 X<>Y
7021 X<0?
7022 X<>Y
7023 STO "#POS#"
7024 +
7025 "÷"
7026 ASTO ST X
7027 POS
7028 RCL "#POS#"
7029 X>Y?
7030 X<>Y
7031 X<0?
7032 X<>Y
7033 STO "#POS#"
7034 +
7035 "\"
7036 ASTO ST X
7037 POS
7038 RCL "#POS#"
7039 X>Y?
7040 X<>Y
7041 X<0?
7042 X<>Y
7043 STO "#POS#"
7044 +
7045 "↑"
7046 ASTO ST X
7047 POS
7048 RCL "#POS#"
7049 X>Y?
7050 X<>Y
7051 X<0?
7052 X<>Y
7053 STO "#POS#"
7054 +
7055 "^"
7056 ASTO ST X
7057 POS
7058 RCL "#POS#"
7059 X>Y?
7060 X<>Y
7061 X<0?
7062 X<>Y
7063 STO "#POS#"
7064 +
7065 R↓
7066 0
7067 RCL "#POS#"
7068 SUBSTR
7069 ENTER
7070 "("
7071 ASTO ST X
7072 APPEND
7073 ")"
7074 ASTO ST Y
7075 APPEND
7076 X<>Y
7077 RCL "#POS#"
7078 SUBSTR
7079 APPEND
7080 REV
7081 STO "#TXT1"
7082 GTO 03
7083▸LBL 01
7084 RCL "###130"
7085 ENTER
7086 ENTER
7087 RCL "#POS"
7088 ENTER
7089 DSE ST Y
7090 STO ST X
7091 SUBSTR
7092 POS
7093 STO "#POS2"
7094 ENTER
7095 DSE ST Y
7096 STO ST X
7097 SUBSTR
7098 CLA
7099 ARCL ST X
7100 90
7101 ATOX
7102 -
7103 LASTX
7104 63
7105 -
7106 ×
7107 X<0?
7108 GTO 03
7109 RCL "#TXT1"
7110 0
7111 RCL "#POS2"
7112 SUBSTR
7113 REV
7114 ENTER
7115 ENTER
7116 ENTER
7117 LENGTH
7118 STO "#POS#"
7119 "+"
7120 ASTO ST X
7121 POS
7122 RCL "#POS#"
7123 X>Y?
7124 X<>Y
7125 X<0?
7126 X<>Y
7127 STO "#POS#"
7128 +
7129 "-"
7130 ASTO ST X
7131 POS
7132 RCL "#POS#"
7133 X>Y?
7134 X<>Y
7135 X<0?
7136 X<>Y
7137 STO "#POS#"
7138 +
7139 "×"
7140 ASTO ST X
7141 POS
7142 RCL "#POS#"
7143 X>Y?
7144 X<>Y
7145 X<0?
7146 X<>Y
7147 STO "#POS#"
7148 +
7149 "°"
7150 ASTO ST X
7151 POS
7152 RCL "#POS#"
7153 X>Y?
7154 X<>Y
7155 X<0?
7156 X<>Y
7157 STO "#POS#"
7158 +
7159 "÷"
7160 ASTO ST X
7161 POS
7162 RCL "#POS#"
7163 X>Y?
7164 X<>Y
7165 X<0?
7166 X<>Y
7167 STO "#POS#"
7168 +
7169 "\"
7170 ASTO ST X
7171 POS
7172 RCL "#POS#"
7173 X>Y?
7174 X<>Y
7175 X<0?
7176 X<>Y
7177 STO "#POS#"
7178 +
7179 "↑"
7180 ASTO ST X
7181 POS
7182 RCL "#POS#"
7183 X>Y?
7184 X<>Y
7185 X<0?
7186 X<>Y
7187 STO "#POS#"
7188 +
7189 "^"
7190 ASTO ST X
7191 POS
7192 RCL "#POS#"
7193 X>Y?
7194 X<>Y
7195 X<0?
7196 X<>Y
7197 STO "#POS#"
7198 +
7199 R↓
7200 0
7201 RCL "#POS#"
7202 SUBSTR
7203 ENTER
7204 "("
7205 ASTO ST X
7206 APPEND
7207 X<>Y
7208 RCL "#POS#"
7209 SUBSTR
7210 APPEND
7211 REV
7212 RCL "#TXT1"
7213 RCL "#POS2"
7214 SUBSTR
7215 APPEND
7216 ENTER
7217 ")"
7218 ASTO ST X
7219 APPEND
7220 STO "#TXT1"
7221▸LBL 03
7222 RCL "#TXT1"
7223 RCL "#OP"
7224 APPEND
7225 RCL "#TXT2"
7226 APPEND
7227 STO "###("
7228 XEQ 08
7229 RCL "###130"
7230 ENTER
7231 ENTER
7232 ENTER
7233 RCL "#OP"
7234 POS
7235 1
7236 +
7237 ENTER
7238 ISG ST X
7239 STO ST X
7240 SUBSTR
7241 STO "#()-A"
7242 POS
7243 SUBSTR
7244 REV
7245 ENTER
7246 ENTER
7247 RCL "#()-A"
7248 POS
7249 SUBSTR
7250 REV
7251 ENTER
7252 ENTER
7253 ENTER
7254 LENGTH
7255 STO "#POS#"
7256 RCL "#OP"
7257 ENTER
7258 "'"
7259 ASTO ST X
7260 X=Y?
7261 GTO 04
7262 R↓
7263 R↓
7264 ")"
7265 ASTO ST X
7266 APPEND
7267 "(-"
7268 ASTO ST Y
7269 APPEND
7270 R↓
7271▸LBL 04
7272 R↑
7273 ENTER
7274 ENTER
7275 RCL "#TXT2"
7276 RCL "#POS#"
7277 SUBSTR
7278 APPEND
7279 STO "#TXT2"
7280 "#"
7281 ASTO ST X
7282 POS
7283 X<0?
7284 "^"
7285 X≥0?
7286 "↑"
7287 ASTO "#OP"
7288 RCL "#TXT1"
7289 RCL "#OP"
7290 APPEND
7291 RCL "#TXT2"
7292 APPEND
7293 STO "###130"
7294 XEQ 09
7295 XEQ 08
7296 RCL "###("
7297 STO "EQNchek"
7298 GTO 15
7299▸LBL 06
7300 "A+B×°C+D"
7301 "× *+, ° *-"
7302 RCL "EQNchek"
7303 ENTER
7304 ENTER
7305 ENTER
7306 "×"
7307 ASTO ST X
7308 POS
7309 STO "#POS"
7310 "°"
7311 ASTO ST X
7312 POS
7313 RCL "#POS"
7314 X>Y?
7315 X<>Y
7316 X<0?
7317 X<>Y
7318 X<0?
7319 GTO 06
7320 STO "#POS"
7321 STO ST Y
7322 ISG ST X
7323 STO ST X
7324 SUBSTR
7325 STO "#OP"
7326 R↓
7327 RCL "#POS"
7328 1
7329 +
7330 SUBSTR
7331 STO "#TXT2"
7332 0
7333 1
7334 SUBSTR
7335 "("
7336 ASTO ST Y
7337 X=Y?
7338 GTO 02
7339 CLA
7340 ARCL ST X
7341 90
7342 ATOX
7343 -
7344 LASTX
7345 63
7346 -
7347 ×
7348 X≥0?
7349 GTO 01
7350 RCL "#TXT2"
7351 ENTER
7352 ENTER
7353 ENTER
7354 LENGTH
7355 STO "#POS2"
7356 "+"
7357 ASTO ST X
7358 POS
7359 RCL "#POS2"
7360 X>Y?
7361 X<>Y
7362 X<0?
7363 X<>Y
7364 STO "#POS2"
7365 +
7366 "-"
7367 ASTO ST X
7368 POS
7369 RCL "#POS2"
7370 X>Y?
7371 X<>Y
7372 X<0?
7373 X<>Y
7374 STO "#POS2"
7375 +
7376 "×"
7377 ASTO ST X
7378 POS
7379 RCL "#POS2"
7380 X>Y?
7381 X<>Y
7382 X<0?
7383 X<>Y
7384 STO "#POS2"
7385 +
7386 "°"
7387 ASTO ST X
7388 POS
7389 RCL "#POS2"
7390 X>Y?
7391 X<>Y
7392 X<0?
7393 X<>Y
7394 STO "#POS2"
7395 +
7396 "÷"
7397 ASTO ST X
7398 POS
7399 RCL "#POS2"
7400 X>Y?
7401 X<>Y
7402 X<0?
7403 X<>Y
7404 STO "#POS2"
7405 +
7406 "\"
7407 ASTO ST X
7408 POS
7409 RCL "#POS2"
7410 X>Y?
7411 X<>Y
7412 X<0?
7413 X<>Y
7414 STO "#POS2"
7415 +
7416 "↑"
7417 ASTO ST X
7418 POS
7419 RCL "#POS2"
7420 X>Y?
7421 X<>Y
7422 X<0?
7423 X<>Y
7424 STO "#POS2"
7425 +
7426 "^"
7427 ASTO ST X
7428 POS
7429 RCL "#POS2"
7430 X>Y?
7431 X<>Y
7432 X<0?
7433 X<>Y
7434 STO "#POS2"
7435 X<>Y
7436 R↓
7437 0
7438 X<>Y
7439 SUBSTR
7440 ENTER
7441 ")"
7442 ASTO ST X
7443 APPEND
7444 "("
7445 ASTO ST Y
7446 APPEND
7447 RCL "#TXT2"
7448 RCL "#POS2"
7449 SUBSTR
7450 APPEND
7451 STO "#TXT2"
7452 GTO 02
7453▸LBL 01
7454 RCL "###130"
7455 ENTER
7456 ENTER
7457 RCL "#TXT2"
7458 ENTER
7459 "("
7460 ASTO ST X
7461 POS
7462 RCL "#POS"
7463 +
7464 1
7465 +
7466 ENTER
7467 ISG ST X
7468 STO ST X
7469 SUBSTR
7470 X<>Y
7471 REV
7472 X<>Y
7473 POS
7474 STO "#POS#"
7475 RCL "#TXT2"
7476 REV
7477 ENTER
7478 ENTER
7479 0
7480 RCL "#POS#"
7481 SUBSTR
7482 ENTER
7483 ")"
7484 ASTO ST X
7485 APPEND
7486 X<>Y
7487 RCL "#POS#"
7488 SUBSTR
7489 APPEND
7490 REV
7491 "("
7492 ASTO ST Y
7493 APPEND
7494 STO "#TXT2"
7495▸LBL 02
7496 RCL "EQNchek"
7497 0
7498 RCL "#POS"
7499 SUBSTR
7500 STO "#TXT1"
7501 GTO 03
7502▸LBL 01
7503 RCL "###130"
7504 ENTER
7505 ENTER
7506 RCL "#POS"
7507 ENTER
7508 DSE ST Y
7509 STO ST X
7510 SUBSTR
7511 POS
7512 STO "#POS2"
7513 ENTER
7514 DSE ST Y
7515 STO ST X
7516 SUBSTR
7517 CLA
7518 ARCL ST X
7519 90
7520 ATOX
7521 -
7522 LASTX
7523 63
7524 -
7525 ×
7526 X<0?
7527 GTO 03
7528 RCL "#TXT1"
7529 0
7530 RCL "#POS2"
7531 SUBSTR
7532 REV
7533 ENTER
7534 ENTER
7535 ENTER
7536 LENGTH
7537 STO "#POS#"
7538 "+"
7539 ASTO ST X
7540 POS
7541 RCL "#POS#"
7542 X>Y?
7543 X<>Y
7544 X<0?
7545 X<>Y
7546 STO "#POS#"
7547 +
7548 "-"
7549 ASTO ST X
7550 POS
7551 RCL "#POS#"
7552 X>Y?
7553 X<>Y
7554 X<0?
7555 X<>Y
7556 STO "#POS#"
7557 +
7558 "*"
7559 ASTO ST X
7560 POS
7561 RCL "#POS#"
7562 X>Y?
7563 X<>Y
7564 X<0?
7565 X<>Y
7566 STO "#POS#"
7567 +
7568 "÷"
7569 ASTO ST X
7570 POS
7571 RCL "#POS#"
7572 X>Y?
7573 X<>Y
7574 X<0?
7575 X<>Y
7576 STO "#POS#"
7577 +
7578 "\"
7579 ASTO ST X
7580 POS
7581 RCL "#POS#"
7582 X>Y?
7583 X<>Y
7584 X<0?
7585 X<>Y
7586 STO "#POS#"
7587 +
7588 "↑"
7589 ASTO ST X
7590 POS
7591 RCL "#POS#"
7592 X>Y?
7593 X<>Y
7594 X<0?
7595 X<>Y
7596 STO "#POS#"
7597 +
7598 "^"
7599 ASTO ST X
7600 POS
7601 RCL "#POS#"
7602 X>Y?
7603 X<>Y
7604 X<0?
7605 X<>Y
7606 STO "#POS#"
7607 +
7608 R↓
7609 0
7610 RCL "#POS#"
7611 SUBSTR
7612 ENTER
7613 "("
7614 ASTO ST X
7615 APPEND
7616 X<>Y
7617 RCL "#POS#"
7618 SUBSTR
7619 APPEND
7620 REV
7621 RCL "#TXT1"
7622 RCL "#POS2"
7623 SUBSTR
7624 APPEND
7625 ENTER
7626 ")"
7627 ASTO ST X
7628 APPEND
7629 STO "#TXT1"
7630▸LBL 03
7631 RCL "#TXT1"
7632 RCL "#OP"
7633 APPEND
7634 RCL "#TXT2"
7635 APPEND
7636 STO "###("
7637 XEQ 08
7638 RCL "###130"
7639 ENTER
7640 ENTER
7641 ENTER
7642 RCL "#OP"
7643 POS
7644 1
7645 +
7646 ENTER
7647 ISG ST X
7648 STO ST X
7649 SUBSTR
7650 STO "#()-A"
7651 POS
7652 SUBSTR
7653 REV
7654 ENTER
7655 ENTER
7656 RCL "#()-A"
7657 POS
7658 SUBSTR
7659 REV
7660 ENTER
7661 ENTER
7662 ENTER
7663 LENGTH
7664 STO "#POS#"
7665 RCL "#OP"
7666 ENTER
7667 "×"
7668 ASTO ST X
7669 X=Y?
7670 GTO 04
7671 R↓
7672 R↓
7673 ")"
7674 ASTO ST X
7675 APPEND
7676 "(-"
7677 ASTO ST Y
7678 APPEND
7679 R↓
7680▸LBL 04
7681 R↑
7682 ENTER
7683 ENTER
7684 RCL "#TXT2"
7685 RCL "#POS#"
7686 SUBSTR
7687 APPEND
7688 STO "#TXT2"
7689 RCL "#TXT1"
7690 ENTER
7691 "*"
7692 ASTO ST X
7693 APPEND
7694 RCL "#TXT2"
7695 APPEND
7696 STO "###130"
7697 XEQ 09
7698 XEQ 08
7699 RCL "###("
7700 STO "EQNchek"
7701 GTO 15
7702▸LBL 06
7703 "A+B÷\C+D"
7704 "÷ /+, \ /-"
7705 "B÷\C =>"
7706 "B*((C)^(-1))"
7707 RCL "EQNchek"
7708 STO "###("
7709 XEQ 07
7710 RCL "###("
7711 STO "EQNchek"
7712 ENTER
7713 ENTER
7714 ENTER
7715 "÷"
7716 ASTO ST X
7717 POS
7718 STO "#POS"
7719 "\"
7720 ASTO ST X
7721 POS
7722 RCL "#POS"
7723 X>Y?
7724 X<>Y
7725 X<0?
7726 X<>Y
7727 X<0?
7728 GTO 06
7729 STO "#POS"
7730 STO ST Y
7731 ISG ST X
7732 STO ST X
7733 SUBSTR
7734 STO "#OP"
7735 R↓
7736 RCL "#POS"
7737 1
7738 +
7739 SUBSTR
7740 STO "#TXT2"
7741 0
7742 1
7743 SUBSTR
7744 "("
7745 ASTO ST Y
7746 X=Y?
7747 GTO 02
7748 CLA
7749 ARCL ST X
7750 90
7751 ATOX
7752 -
7753 LASTX
7754 63
7755 -
7756 ×
7757 X≥0?
7758 GTO 01
7759 RCL "#TXT2"
7760 ENTER
7761 ENTER
7762 ENTER
7763 LENGTH
7764 STO "#POS2"
7765 "+"
7766 ASTO ST X
7767 POS
7768 RCL "#POS2"
7769 X>Y?
7770 X<>Y
7771 X<0?
7772 X<>Y
7773 STO "#POS2"
7774 +
7775 "-"
7776 ASTO ST X
7777 POS
7778 RCL "#POS2"
7779 X>Y?
7780 X<>Y
7781 X<0?
7782 X<>Y
7783 STO "#POS2"
7784 +
7785 "*"
7786 ASTO ST X
7787 POS
7788 RCL "#POS2"
7789 X>Y?
7790 X<>Y
7791 X<0?
7792 X<>Y
7793 STO "#POS2"
7794 +
7795 "÷"
7796 ASTO ST X
7797 POS
7798 RCL "#POS2"
7799 X>Y?
7800 X<>Y
7801 X<0?
7802 X<>Y
7803 STO "#POS2"
7804 +
7805 "\"
7806 ASTO ST X
7807 POS
7808 RCL "#POS2"
7809 X>Y?
7810 X<>Y
7811 X<0?
7812 X<>Y
7813 STO "#POS2"
7814 +
7815 "↑"
7816 ASTO ST X
7817 POS
7818 RCL "#POS2"
7819 X>Y?
7820 X<>Y
7821 X<0?
7822 X<>Y
7823 STO "#POS2"
7824 +
7825 "^"
7826 ASTO ST X
7827 POS
7828 RCL "#POS2"
7829 X>Y?
7830 X<>Y
7831 X<0?
7832 X<>Y
7833 STO "#POS2"
7834 X<>Y
7835 R↓
7836 0
7837 X<>Y
7838 SUBSTR
7839 ENTER
7840 ")"
7841 ASTO ST X
7842 APPEND
7843 "("
7844 ASTO ST Y
7845 APPEND
7846 RCL "#TXT2"
7847 RCL "#POS2"
7848 SUBSTR
7849 APPEND
7850 STO "#TXT2"
7851 GTO 02
7852▸LBL 01
7853 RCL "###130"
7854 ENTER
7855 ENTER
7856 RCL "#TXT2"
7857 ENTER
7858 "("
7859 ASTO ST X
7860 POS
7861 RCL "#POS"
7862 +
7863 1
7864 +
7865 ENTER
7866 ISG ST X
7867 STO ST X
7868 SUBSTR
7869 X<>Y
7870 REV
7871 X<>Y
7872 POS
7873 STO "#POS#"
7874 RCL "#TXT2"
7875 REV
7876 ENTER
7877 ENTER
7878 0
7879 RCL "#POS#"
7880 SUBSTR
7881 ENTER
7882 ")"
7883 ASTO ST X
7884 APPEND
7885 X<>Y
7886 RCL "#POS#"
7887 SUBSTR
7888 APPEND
7889 REV
7890 "("
7891 ASTO ST Y
7892 APPEND
7893 STO "#TXT2"
7894▸LBL 02
7895 RCL "EQNchek"
7896 0
7897 RCL "#POS"
7898 SUBSTR
7899 STO "#TXT1"
7900 GTO 03
7901▸LBL 01
7902 RCL "###130"
7903 ENTER
7904 ENTER
7905 RCL "#POS"
7906 ENTER
7907 DSE ST Y
7908 STO ST X
7909 SUBSTR
7910 POS
7911 STO "#POS2"
7912 ENTER
7913 DSE ST Y
7914 STO ST X
7915 SUBSTR
7916 CLA
7917 ARCL ST X
7918 90
7919 ATOX
7920 -
7921 LASTX
7922 63
7923 -
7924 ×
7925 X<0?
7926 GTO 03
7927 RCL "#TXT1"
7928 0
7929 RCL "#POS2"
7930 SUBSTR
7931 REV
7932 ENTER
7933 ENTER
7934 ENTER
7935 LENGTH
7936 STO "#POS#"
7937 "+"
7938 ASTO ST X
7939 POS
7940 RCL "#POS#"
7941 X>Y?
7942 X<>Y
7943 X<0?
7944 X<>Y
7945 STO "#POS#"
7946 +
7947 "-"
7948 ASTO ST X
7949 POS
7950 RCL "#POS#"
7951 X>Y?
7952 X<>Y
7953 X<0?
7954 X<>Y
7955 STO "#POS#"
7956 +
7957 "*"
7958 ASTO ST X
7959 POS
7960 RCL "#POS#"
7961 X>Y?
7962 X<>Y
7963 X<0?
7964 X<>Y
7965 STO "#POS#"
7966 +
7967 "/"
7968 ASTO ST X
7969 POS
7970 RCL "#POS#"
7971 X>Y?
7972 X<>Y
7973 X<0?
7974 X<>Y
7975 STO "#POS#"
7976 +
7977 "↑"
7978 ASTO ST X
7979 POS
7980 RCL "#POS#"
7981 X>Y?
7982 X<>Y
7983 X<0?
7984 X<>Y
7985 STO "#POS#"
7986 +
7987 "^"
7988 ASTO ST X
7989 POS
7990 RCL "#POS#"
7991 X>Y?
7992 X<>Y
7993 X<0?
7994 X<>Y
7995 STO "#POS#"
7996 +
7997 R↓
7998 0
7999 RCL "#POS#"
8000 SUBSTR
8001 ENTER
8002 "("
8003 ASTO ST X
8004 APPEND
8005 X<>Y
8006 RCL "#POS#"
8007 SUBSTR
8008 APPEND
8009 REV
8010 RCL "#TXT1"
8011 RCL "#POS2"
8012 SUBSTR
8013 APPEND
8014 ENTER
8015 ")"
8016 ASTO ST X
8017 APPEND
8018 STO "#TXT1"
8019▸LBL 03
8020 RCL "#TXT1"
8021 RCL "#OP"
8022 APPEND
8023 RCL "#TXT2"
8024 APPEND
8025 STO "###("
8026 XEQ 08
8027 RCL "###130"
8028 ENTER
8029 ENTER
8030 ENTER
8031 RCL "#OP"
8032 POS
8033 1
8034 +
8035 ENTER
8036 ISG ST X
8037 STO ST X
8038 SUBSTR
8039 STO "#()-A"
8040 POS
8041 SUBSTR
8042 REV
8043 ENTER
8044 ENTER
8045 RCL "#()-A"
8046 POS
8047 SUBSTR
8048 REV
8049 ENTER
8050 ENTER
8051 ENTER
8052 LENGTH
8053 STO "#POS#"
8054 RCL "#OP"
8055 ENTER
8056 "÷"
8057 ASTO ST X
8058 X=Y?
8059 GTO 04
8060 R↓
8061 R↓
8062 ")"
8063 ASTO ST X
8064 APPEND
8065 "(-"
8066 ASTO ST Y
8067 APPEND
8068 R↓
8069▸LBL 04
8070 R↑
8071 ENTER
8072 "^(-1)"
8073 ASTO ST X
8074 APPEND
8075 ENTER
8076 ENTER
8077 RCL "#TXT2"
8078 RCL "#POS#"
8079 SUBSTR
8080 APPEND
8081 STO "#TXT2"
8082 RCL "#TXT1"
8083 ENTER
8084 "*"
8085 ASTO ST X
8086 APPEND
8087 RCL "#TXT2"
8088 APPEND
8089 STO "###130"
8090 XEQ 09
8091 XEQ 08
8092 RCL "###("
8093 STO "EQNchek"
8094 GTO 15
8095▸LBL 06
8096 XEQ 06
8097 CLV "#OP"
8098 16
8099 STO "#15-GTO"
8100▸LBL 16
8101 RCL "EQNchek"
8102 ENTER
8103 ENTER
8104 ENTER
8105 ":"
8106 ASTO ST X
8107 POS
8108 X<0?
8109 GTO 16
8110 STO "#POS"
8111 0
8112 X<>Y
8113 SUBSTR
8114 ENTER
8115 "PI"
8116 ASTO ST X
8117 APPEND
8118 X<>Y
8119 RCL "#POS"
8120 1
8121 +
8122 SUBSTR
8123 APPEND
8124 STO "EQNchek"
8125 GTO 15
8126▸LBL 16
8127 RCL "EQNchek"
8128 ENTER
8129 ENTER
8130 ENTER
8131 "@"
8132 ASTO ST X
8133 POS
8134 X<0?
8135 GTO 16
8136 STO "#POS"
8137 0
8138 X<>Y
8139 SUBSTR
8140 ENTER
8141 "EXP"
8142 ASTO ST X
8143 APPEND
8144 X<>Y
8145 RCL "#POS"
8146 1
8147 +
8148 SUBSTR
8149 APPEND
8150 STO "EQNchek"
8151 GTO 15
8152▸LBL 16
8153 RCL "EQNchek"
8154 ENTER
8155 ENTER
8156 ENTER
8157 "√"
8158 ASTO ST X
8159 POS
8160 X<0?
8161 GTO 16
8162 STO "#POS"
8163 0
8164 X<>Y
8165 SUBSTR
8166 ENTER
8167 "SQRT"
8168 ASTO ST X
8169 APPEND
8170 X<>Y
8171 RCL "#POS"
8172 1
8173 +
8174 SUBSTR
8175 APPEND
8176 STO "EQNchek"
8177 GTO 15
8178▸LBL 16
8179 XEQ 06
8180 RCLFLAG
8181 STO "#FLAG"
8182 ALL
8183 RDX.
8184 RAD
8185 CPXRES
8186 PI
8187 3.1
8188 -
8189 1/X
8190 FP
8191 SF 25
8192 RCL "XF"
8193 1
8194 ENTER
8195 COMPLEX
8196 STO "#"
8197 RCL "EQN-#"
8198 SF 25
8199 PARSE
8200 FS? 25
8201 GTO 01
8202 ADV
8203 "Error in EQN-#"
8204 RCL "EQN-#"
8205 PRX
8206 ADV
8207 GTO 11
8208▸LBL 01
8209 EVAL
8210 STO "#Y0"
8211 RCL "EQNchek"
8212 SF 25
8213 PARSE
8214 FS? 25
8215 GTO 02
8216 ADV
8217 "Error in EQN"
8218 ├"chek"
8219 PRA
8220 RCL "EQNchek"
8221 PRX
8222 XEQ 05
8223 GTO 20
8224▸LBL 02
8225 EVAL
8226 STO "#Y2"
8227 XEQ 05
8228 RCL "#Y0"
8229 RCL "#Y2"
8230 -
8231 ABS
8232 1ᴇ-10
8233 X>Y?
8234 GTO 20
8235 ADV
8236 ADV
8237 "f(X)-EQN-"
8238 ├"Abweichung"
8239 PRA
8240 ADV
8241 RCL "EQN-#"
8242 PRX
8243 RCL "EQNchek"
8244 PRX
8245 ADV
8246 "X = "
8247 ARCL "#"
8248 PRA
8249 R↑
8250 CLA
8251 ARCL ST X
8252 ASTO ST X
8253 "|f(X) - EQN| > "
8254 ARCL ST X
8255 PRA
8256 ADV
8257 "Err. EQNchek = "
8258 ARCL ST X
8259 ├"        "
8260 XASTO ST X
8261 0
8262 22
8263 SF 25
8264 SUBSTR
8265 FC? 25
8266 GTO 20
8267 CLA
8268 KEY 1 GTO 20
8269 "M"
8270 KEY 2 GTO 20
8271 "E"
8272 KEY 3 GTO 20
8273 "N"
8274 KEY 4 GTO 20
8275 "U"
8276 KEY 5 GTO 20
8277 CLA
8278 KEY 6 GTO 20
8279 ARCL ST X
8280 CLST
8281 MENU
8282 PROMPT
8283 GTO 20
8284▸LBL 05
8285 CLV "#15-GTO"
8286 CLV "#CHARa"
8287 CLV "#CHARn"
8288 CLV "#LASTn"
8289 CLV "#()-A"
8290 CLV "#LENGTH"
8291 CLV "#TXT"
8292 CLV "#TXT1"
8293 CLV "#TXT2"
8294 CLV "#TXT3"
8295 CLV "#TXT4"
8296 CLV "#POS"
8297 CLV "#POS#"
8298 CLV "#POS1"
8299 CLV "#POS2"
8300 RTN
8301▸LBL 06
8302 "(-(n)) -> (-n)"
8303 RCL "EQNchek"
8304 ENTER
8305 ENTER
8306 ENTER
8307 "(-(1))"
8308 ASTO ST X
8309 POS
8310 X<0?
8311 GTO 01
8312 STO "#POS#"
8313 0
8314 X<>Y
8315 SUBSTR
8316 ENTER
8317 "(-1)"
8318 ASTO ST X
8319 APPEND
8320 X<>Y
8321 RCL "#POS#"
8322 6
8323 +
8324 SUBSTR
8325 APPEND
8326 STO "EQNchek"
8327▸LBL 01
8328 RTN
8329▸LBL 07
8330 "Doppelklammer"
8331 "eliminieren"
8332 130.254
8333 STO "#J"
8334 XEQ 08
8335▸LBL 17
8336 RCL "#J"
8337 IP
8338 CLA
8339 XTOA
8340 1
8341 +
8342 XTOA
8343 RCL "###130"
8344 ENTER
8345 ASTO ST X
8346 POS
8347 X<0?
8348 GTO 01
8349 STO "#POS#"
8350 1
8351 AROT
8352 RCL "###130"
8353 ENTER
8354 ASTO ST X
8355 POS
8356 X<0?
8357 GTO 01
8358 RCL "###130"
8359 0
8360 RCL ST Z
8361 1
8362 +
8363 SUBSTR
8364 RCL "###130"
8365 LASTX
8366 1
8367 +
8368 SUBSTR
8369 APPEND
8370 ENTER
8371 ENTER
8372 0
8373 ENTER
8374 RCL "#POS#"
8375 SUBSTR
8376 X<>Y
8377 RCL "#POS#"
8378 1
8379 +
8380 SUBSTR
8381 APPEND
8382 STO "###130"
8383 XEQ 09
8384 XEQ 08
8385 GTO 17
8386▸LBL 01
8387 ISG "#J"
8388 GTO 17
8389 RTN
8390▸LBL 08
8391 "(… → 130:240)"
8392 RCL "###("
8393 STO "###130"
8394 1
8395 STO "#()-I"
8396 130
8397 STO "#()-N"
8398 DIM "#()-LVL"
8399 RCL "###130"
8400 LENGTH
8401 STO "#LENGTH"
8402▸LBL 18
8403 RCL "###130"
8404 0
8405 ENTER
8406 1
8407 SUBSTR
8408 CLA
8409 ARCL ST X
8410 ATOX
8411 40
8412 X>Y?
8413 GTO 02
8414 1
8415 +
8416 X<Y?
8417 GTO 02
8418 X=Y?
8419 GTO 01
8420 INDEX "#()-LVL"
8421 1
8422 RCL "#()-I"
8423 STOIJ
8424 RCL "#()-N"
8425 STOEL
8426 1
8427 STO+ "#()-I"
8428 STO+ "#()-N"
8429 GTO 02
8430▸LBL 01
8431 1
8432 STO- "#()-I"
8433 INDEX "#()-LVL"
8434 1
8435 RCL "#()-I"
8436 X≤0?
8437 GTO 03
8438 STOIJ
8439 RCLEL
8440 ENTER
8441▸LBL 02
8442 X<>Y
8443 RCL "###130"
8444 1
8445 SUBSTR
8446 X<>Y
8447 XTOA
8448 ASTO ST X
8449 APPEND
8450 STO "###130"
8451 GTO 04
8452▸LBL 03
8453 RCL "###130"
8454 1
8455 SUBSTR
8456 STO "###130"
8457▸LBL 04
8458 DSE "#LENGTH"
8459 GTO 18
8460 CLV "#()-I"
8461 CLV "#()-N"
8462 CLV "#()-LVL"
8463 CLV "#LENGTH"
8464 RTN
8465▸LBL 09
8466 "130:240 → …)"
8467 RCL "###130"
8468 STO "###("
8469 130.240
8470 STO "#()-N"
8471▸LBL 19
8472 RCL "###("
8473 ENTER
8474 RCL "#()-N"
8475 IP
8476 CLA
8477 XTOA
8478 ASTO ST X
8479 STO "#()-A"
8480 POS
8481 X<0?
8482 GTO 02
8483 STO "#POS#"
8484 RCL "###("
8485 0
8486 RCL "#POS#"
8487 SUBSTR
8488 ENTER
8489 "("
8490 ASTO ST X
8491 APPEND
8492 RCL "###("
8493 RCL "#POS#"
8494 1
8495 +
8496 SUBSTR
8497 APPEND
8498 REV
8499 STO "###("
8500 RCL "#()-A"
8501 POS
8502 X<0?
8503 GTO 01
8504 STO "#POS#"
8505 RCL "###("
8506 0
8507 RCL "#POS#"
8508 SUBSTR
8509 ENTER
8510 ")"
8511 ASTO ST X
8512 APPEND
8513 RCL "###("
8514 RCL "#POS#"
8515 1
8516 +
8517 SUBSTR
8518 APPEND
8519 STO "###("
8520▸LBL 01
8521 RCL "###("
8522 REV
8523 STO "###("
8524▸LBL 02
8525 ISG "#()-N"
8526 GTO 19
8527 CLV "#POS#"
8528 CLV "#()-A"
8529 CLV "#()-N"
8530 RTN
8531▸LBL 20
8532 "EQN"
8533 ASTO "FKT"
8534 SF 25
8535 RCL "EQNchek"
8536 FC? 25
8537 GTO 10
8538 STO "#check"
8539 STO "#check2"
8540 1
8541 STO "#21-GTO"
8542 1
8543 2
8544 NEWMAT
8545 STO "EQN≠0"
8546 INDEX "EQN≠0"
8547 J-
8548 1
8549 STOEL
8550 2
8551 NEWMAT
8552 E↑X
8553 STO "EQN-↑"
8554 RCL "#check"
8555 STO "###130"
8556 1
8557 STO "#()-I"
8558 130
8559 STO "#()-N"
8560 DIM "#()-LVL"
8561 RCL "###130"
8562 LENGTH
8563 STO "#LENGTH"
8564 XEQ 18
8565▸LBL 21
8566 GTO IND "#21-GTO"
8567▸LBL 01
8568 RCL "#check"
8569 ENTER
8570 ENTER
8571 ENTER
8572 "↑"
8573 ASTO ST X
8574 POS
8575 STO "#POS"
8576 "^"
8577 ASTO ST X
8578 POS
8579 RCL "#POS"
8580 X>Y?
8581 X<>Y
8582 X<0?
8583 X<>Y
8584 X<0?
8585 GTO 01
8586 STO "#POS"
8587 X<>Y
8588 R↓
8589 0
8590 X<>Y
8591 SUBSTR
8592 ENTER
8593 "'"
8594 ASTO ST X
8595 APPEND
8596 X<>Y
8597 RCL "#POS"
8598 1
8599 +
8600 SUBSTR
8601 APPEND
8602 STO "#check"
8603 RCL "###130"
8604 ENTER
8605 ENTER
8606 RCL "#POS"
8607 1
8608 +
8609 ENTER
8610 ISG ST X
8611 STO ST X
8612 SUBSTR
8613 STO "#()-A"
8614 R↓
8615 RCL "#POS"
8616 ENTER
8617 DSE ST Y
8618 STO ST X
8619 SUBSTR
8620 POS
8621 1
8622 +
8623 RCL "#check"
8624 X<>Y
8625 RCL "#POS"
8626 1
8627 -
8628 SUBSTR
8629 STO "#TXT1"
8630 RCL "###130"
8631 REV
8632 RCL "#()-A"
8633 CLV "#()-A"
8634 POS
8635 RCL "#check"
8636 REV
8637 X<>Y
8638 SUBSTR
8639 REV
8640 RCL "#POS"
8641 1
8642 +
8643 SUBSTR
8644 INDEX "EQN-↑"
8645 J-
8646 STOEL
8647 J-
8648 RCL "#TXT1"
8649 STOEL
8650 INDEX "EQN-↑"
8651 J-
8652 RCLIJ
8653 X<>Y
8654 1
8655 +
8656 X<>Y
8657 DIM "EQN-↑"
8658 INDEX "EQN-↑"
8659 J-
8660 STOEL
8661 J-
8662 STOEL
8663 GTO 21
8664▸LBL 01
8665 CLV "#TXT1"
8666 RCL "EQN-#"
8667 STO "EQNcode"
8668 0
8669 STO "#POS#"
8670 2
8671 STO "#21-GTO"
8672▸LBL 02
8673 RCL "#check2"
8674 ENTER
8675 ENTER
8676 ENTER
8677 "LN"
8678 ASTO ST X
8679 POS
8680 2
8681 X<>Y
8682 X≥0?
8683 +
8684 STO "#POS"
8685 STO ST Y
8686 +
8687 "LOG"
8688 ASTO ST X
8689 POS
8690 3
8691 X<>Y
8692 X≥0?
8693 +
8694 RCL "#POS"
8695 X>Y?
8696 X<>Y
8697 X<0?
8698 X<>Y
8699 X<0?
8700 GTO 02
8701 STO "#POS"
8702 STO+ "#POS#"
8703 RCL "#check2"
8704 X<>Y
8705 SUBSTR
8706 STO "#check2"
8707 RCL "###130"
8708 ENTER
8709 ENTER
8710 RCL "#POS#"
8711 ENTER
8712 ISG ST X
8713 STO ST X
8714 SUBSTR
8715 STO "#()-A"
8716 POS
8717 1
8718 +
8719 STO "#POS1"
8720 SUBSTR
8721 REV
8722 ENTER
8723 ENTER
8724 ENTER
8725 RCL "#()-A"
8726 CLV "#()-A"
8727 POS
8728 1
8729 +
8730 SUBSTR
8731 REV
8732 LENGTH
8733 RCL "EQNchek"
8734 RCL "#POS1"
8735 RCL "#POS1"
8736 R↑
8737 +
8738 SUBSTR
8739 INDEX "EQN≠0"
8740 J-
8741 STOEL
8742 J-
8743 STOEL
8744 INDEX "EQN≠0"
8745 J-
8746 RCLIJ
8747 X<>Y
8748 1
8749 +
8750 X<>Y
8751 DIM "EQN≠0"
8752 INDEX "EQN≠0"
8753 J-
8754 STOEL
8755 GTO 21
8756▸LBL 02
8757 CLV "#check2"
8758 INDEX "EQN≠0"
8759 J-
8760 RCLIJ
8761 INDEX "EQN-↑"
8762 J-
8763 RCLIJ
8764 R↑
8765 STO+ ST Z
8766 R↓
8767 DSE ST Y
8768 STO ST X
8769 DIM "EQN≠0"
8770 INDEX "EQN≠0"
8771 R↑
8772 1
8773 STOIJ
8774 RCL "EQN-↑"
8775 PUTM
8776 RCL "EQN-#"
8777 ENTER
8778 "ABS"
8779 ASTO ST X
8780 POS
8781 X≥0?
8782 GTO 11
8783 3
8784 STO "#21-GTO"
8785▸LBL 03
8786 RCL "EQNcode"
8787 ENTER
8788 ENTER
8789 ENTER
8790 "EXP"
8791 ASTO ST X
8792 POS
8793 X<0?
8794 GTO 03
8795 STO "#POS"
8796 0
8797 X<>Y
8798 SUBSTR
8799 ENTER
8800 "exp"
8801 ASTO ST X
8802 APPEND
8803 X<>Y
8804 RCL "#POS"
8805 3
8806 +
8807 SUBSTR
8808 APPEND
8809 STO "EQNcode"
8810 GTO 21
8811▸LBL 03
8812 RCL "EQNcode"
8813 ENTER
8814 ENTER
8815 ENTER
8816 "LN"
8817 ASTO ST X
8818 POS
8819 X<0?
8820 GTO 03
8821 STO "#POS"
8822 0
8823 X<>Y
8824 SUBSTR
8825 ENTER
8826 "ln"
8827 ASTO ST X
8828 APPEND
8829 X<>Y
8830 RCL "#POS"
8831 2
8832 +
8833 SUBSTR
8834 APPEND
8835 STO "EQNcode"
8836 GTO 21
8837▸LBL 03
8838 RCL "EQNcode"
8839 ENTER
8840 ENTER
8841 ENTER
8842 "LOG"
8843 ASTO ST X
8844 POS
8845 X<0?
8846 GTO 03
8847 STO "#POS"
8848 0
8849 X<>Y
8850 SUBSTR
8851 ENTER
8852 "log"
8853 ASTO ST X
8854 APPEND
8855 X<>Y
8856 RCL "#POS"
8857 3
8858 +
8859 SUBSTR
8860 APPEND
8861 STO "EQNcode"
8862 GTO 21
8863 GTO 03
8864 RCL "EQNcode"
8865 ENTER
8866 ENTER
8867 ENTER
8868 "ASINH"
8869 ASTO ST X
8870 POS
8871 X<0?
8872 GTO 03
8873 STO "#POS"
8874 0
8875 X<>Y
8876 SUBSTR
8877 ENTER
8878 "ash"
8879 ASTO ST X
8880 APPEND
8881 X<>Y
8882 RCL "#POS"
8883 5
8884 +
8885 SUBSTR
8886 APPEND
8887 STO "EQNcode"
8888 GTO 21
8889▸LBL 03
8890 RCL "EQNcode"
8891 ENTER
8892 ENTER
8893 ENTER
8894 "SINH"
8895 ASTO ST X
8896 POS
8897 X<0?
8898 GTO 03
8899 STO "#POS"
8900 0
8901 X<>Y
8902 SUBSTR
8903 ENTER
8904 "snh"
8905 ASTO ST X
8906 APPEND
8907 X<>Y
8908 RCL "#POS"
8909 4
8910 +
8911 SUBSTR
8912 APPEND
8913 STO "EQNcode"
8914 GTO 21
8915▸LBL 03
8916 RCL "EQNcode"
8917 ENTER
8918 ENTER
8919 ENTER
8920 "ASIN"
8921 ASTO ST X
8922 POS
8923 X<0?
8924 GTO 03
8925 STO "#POS"
8926 0
8927 X<>Y
8928 SUBSTR
8929 ENTER
8930 "asn"
8931 ASTO ST X
8932 APPEND
8933 X<>Y
8934 RCL "#POS"
8935 4
8936 +
8937 SUBSTR
8938 APPEND
8939 STO "EQNcode"
8940 GTO 21
8941▸LBL 03
8942 RCL "EQNcode"
8943 ENTER
8944 ENTER
8945 ENTER
8946 "SIN"
8947 ASTO ST X
8948 POS
8949 X<0?
8950 GTO 03
8951 STO "#POS"
8952 0
8953 X<>Y
8954 SUBSTR
8955 ENTER
8956 "sin"
8957 ASTO ST X
8958 APPEND
8959 X<>Y
8960 RCL "#POS"
8961 3
8962 +
8963 SUBSTR
8964 APPEND
8965 STO "EQNcode"
8966 GTO 21
8967▸LBL 03
8968 RCL "EQNcode"
8969 ENTER
8970 ENTER
8971 ENTER
8972 "ACOSH"
8973 ASTO ST X
8974 POS
8975 X<0?
8976 GTO 03
8977 STO "#POS"
8978 0
8979 X<>Y
8980 SUBSTR
8981 ENTER
8982 "ach"
8983 ASTO ST X
8984 APPEND
8985 X<>Y
8986 RCL "#POS"
8987 5
8988 +
8989 SUBSTR
8990 APPEND
8991 STO "EQNcode"
8992 GTO 21
8993▸LBL 03
8994 RCL "EQNcode"
8995 ENTER
8996 ENTER
8997 ENTER
8998 "COSH"
8999 ASTO ST X
9000 POS
9001 X<0?
9002 GTO 03
9003 STO "#POS"
9004 0
9005 X<>Y
9006 SUBSTR
9007 ENTER
9008 "csh"
9009 ASTO ST X
9010 APPEND
9011 X<>Y
9012 RCL "#POS"
9013 4
9014 +
9015 SUBSTR
9016 APPEND
9017 STO "EQNcode"
9018 GTO 21
9019▸LBL 03
9020 RCL "EQNcode"
9021 ENTER
9022 ENTER
9023 ENTER
9024 "ACOS"
9025 ASTO ST X
9026 POS
9027 X<0?
9028 GTO 03
9029 STO "#POS"
9030 0
9031 X<>Y
9032 SUBSTR
9033 ENTER
9034 "acs"
9035 ASTO ST X
9036 APPEND
9037 X<>Y
9038 RCL "#POS"
9039 4
9040 +
9041 SUBSTR
9042 APPEND
9043 STO "EQNcode"
9044 GTO 21
9045▸LBL 03
9046 RCL "EQNcode"
9047 ENTER
9048 ENTER
9049 ENTER
9050 "COS"
9051 ASTO ST X
9052 POS
9053 X<0?
9054 GTO 03
9055 STO "#POS"
9056 0
9057 X<>Y
9058 SUBSTR
9059 ENTER
9060 "cos"
9061 ASTO ST X
9062 APPEND
9063 X<>Y
9064 RCL "#POS"
9065 3
9066 +
9067 SUBSTR
9068 APPEND
9069 STO "EQNcode"
9070 GTO 21
9071▸LBL 03
9072 RCL "EQNcode"
9073 ENTER
9074 ENTER
9075 ENTER
9076 "ATANH"
9077 ASTO ST X
9078 POS
9079 X<0?
9080 GTO 03
9081 STO "#POS"
9082 0
9083 X<>Y
9084 SUBSTR
9085 ENTER
9086 "ath"
9087 ASTO ST X
9088 APPEND
9089 X<>Y
9090 RCL "#POS"
9091 5
9092 +
9093 SUBSTR
9094 APPEND
9095 STO "EQNcode"
9096 GTO 21
9097▸LBL 03
9098 RCL "EQNcode"
9099 ENTER
9100 ENTER
9101 ENTER
9102 "TANH"
9103 ASTO ST X
9104 POS
9105 X<0?
9106 GTO 03
9107 STO "#POS"
9108 0
9109 X<>Y
9110 SUBSTR
9111 ENTER
9112 "tnh"
9113 ASTO ST X
9114 APPEND
9115 X<>Y
9116 RCL "#POS"
9117 4
9118 +
9119 SUBSTR
9120 APPEND
9121 STO "EQNcode"
9122 GTO 21
9123▸LBL 03
9124 RCL "EQNcode"
9125 ENTER
9126 ENTER
9127 ENTER
9128 "ATAN"
9129 ASTO ST X
9130 POS
9131 X<0?
9132 GTO 03
9133 STO "#POS"
9134 0
9135 X<>Y
9136 SUBSTR
9137 ENTER
9138 "atn"
9139 ASTO ST X
9140 APPEND
9141 X<>Y
9142 RCL "#POS"
9143 4
9144 +
9145 SUBSTR
9146 APPEND
9147 STO "EQNcode"
9148 GTO 21
9149▸LBL 03
9150 RCL "EQNcode"
9151 ENTER
9152 ENTER
9153 ENTER
9154 "TAN"
9155 ASTO ST X
9156 POS
9157 X<0?
9158 GTO 03
9159 STO "#POS"
9160 0
9161 X<>Y
9162 SUBSTR
9163 ENTER
9164 "tan"
9165 ASTO ST X
9166 APPEND
9167 X<>Y
9168 RCL "#POS"
9169 3
9170 +
9171 SUBSTR
9172 APPEND
9173 STO "EQNcode"
9174 GTO 21
9175▸LBL 03
9176 RCL "EQN-#"
9177 RCL "EQNcode"
9178 CLV "#21-GTO"
9179 GTO 10
9180 EXITALL
9181 STOP
9182 STOP
9183 STOP
9184 STOP
9185 STOP
9186 STOP
9187 STOP
9188▸LBL 40
9189 "∫f(x)dx"
9190 "I"
9191 ASTO "#-cmd-#"
9192 XEQ 90
9193 CLA
9194 ARCL "FKT"
9195 KEY 1 GTO 13
9196 "•∫•"
9197 KEY 2 GTO 02
9198 "•∫↑"
9199 KEY 3 GTO 03
9200 "↓∫•"
9201 KEY 4 GTO 04
9202 "↓∫↑"
9203 KEY 5 GTO 05
9204 "BACK"
9205 KEY 6 GTO 47
9206 CLA
9207 KEY 7 GTO 40
9208 KEY 8 GTO 40
9209 KEY 9 GTO 98
9210 CLST
9211 MENU
9212 "a∫b f(x)dx = "
9213 ├"F(b)-F(a)"
9214 ├"INPUT: •a •b"
9215 PROMPT
9216 GTO 40
9217▸LBL 41
9218 "err  F(b)-F(a) "
9219 ├" •b  •a"
9220 SF 25
9221 RCL "#∫-ERR"
9222 RCL "#∫"
9223 RCL "#B"
9224 RCL "#A"
9225 MENU
9226 PROMPT
9227 GTO 41
9228▸LBL 02
9229 X=Y?
9230 GTO 40
9231 STO "#B"
9232 X<>Y
9233 STO "#A"
9234 SF 25
9235 +
9236 FC? 25
9237 CLST
9238 FC? 25
9239 GTO 40
9240 2
9241 ÷
9242 STO "XF"
9243 TYPE?
9244 1
9245 X≠Y?
9246 GTO 40
9247 RCL "XF"
9248 XEQ 73
9249 CPX?
9250 GTO 08
9251 FC? 25
9252 GTO 08
9253 RCL "#A"
9254 RCL "#B"
9255 X>Y?
9256 X<>Y
9257 STO "#A"
9258 X<>Y
9259 STO "#B"
9260 2.10001
9261 STO "#J"
9262▸LBL 42
9263 INDEX "#HPFX"
9264 1
9265 RCL "#J"
9266 IP
9267 STOIJ
9268 RCLEL
9269 RCL "#B"
9270 RCL "#A"
9271 -
9272 ×
9273 RCL "#B"
9274 +
9275 RCL "#A"
9276 +
9277 2
9278 ÷
9279 STO "XF"
9280 XEQ 73
9281 CPX?
9282 GTO 08
9283 FC? 25
9284 GTO 08
9285 INDEX "#HPFX"
9286 2
9287 RCL "#J"
9288 IP
9289 STOIJ
9290 RCLEL
9291 R↑
9292 ×
9293 I+
9294 I+
9295 STOEL
9296 I-
9297 RCLEL
9298 LASTX
9299 ×
9300 I+
9301 I+
9302 STOEL
9303 ISG "#J"
9304 GTO 42
9305 5
9306 ENTER
9307 2
9308 STOIJ
9309 2.10001
9310 STO "#J"
9311 STO- ST X
9312 XEQ 46
9313 4
9314 ENTER
9315 2
9316 STOIJ
9317 2.10001
9318 STO "#J"
9319 STO- ST X
9320 R↑
9321 X<>Y
9322 XEQ 46
9323 RCL "#B"
9324 RCL "#A"
9325 -
9326 2
9327 ÷
9328 STO× ST Z
9329 ×
9330 STO "#∫"
9331 -
9332 ABS
9333 STO "#∫-ERR"
9334 GTO 41
9335▸LBL 03
9336 STO "#A"
9337 TYPE?
9338 1
9339 X=Y?
9340 GTO 03
9341 X<> ST Z
9342 STO "#A"
9343 TYPE?
9344 1
9345 X≠Y?
9346 GTO 40
9347▸LBL 03
9348 "+oo"
9349 ASTO "#B"
9350 2
9351 SF 25
9352 +
9353 FC? 25
9354 CLST
9355 FC? 25
9356 GTO 40
9357 STO "XF"
9358 XEQ 73
9359 CPX?
9360 GTO 08
9361 FC? 25
9362 GTO 08
9363 2.10001
9364 STO "#J"
9365▸LBL 43
9366 INDEX "#HPFX"
9367 1
9368 RCL "#J"
9369 IP
9370 STOIJ
9371 RCLEL
9372 1
9373 +
9374 1/X
9375 STO+ ST X
9376 1
9377 -
9378 RCL "#A"
9379 +
9380 STO "XF"
9381 XEQ 73
9382 CPX?
9383 GTO 08
9384 FC? 25
9385 GTO 08
9386 1
9387 RCL "#J"
9388 IP
9389 STOIJ
9390 RCLEL
9391 R↑
9392 X<>Y
9393 1
9394 +
9395 X↑2
9396 SF 25
9397 1/X
9398 ×
9399 I+
9400 RCLEL
9401 X<>Y
9402 ×
9403 LASTX
9404 I+
9405 RCLEL
9406 ×
9407 X<>Y
9408 I+
9409 STOEL
9410 X<>Y
9411 I+
9412 STOEL
9413 ISG "#J"
9414 GTO 43
9415 5
9416 ENTER
9417 2
9418 STOIJ
9419 2.10001
9420 STO "#J"
9421 STO- ST X
9422 XEQ 46
9423 STO+ ST X
9424 4
9425 ENTER
9426 2
9427 STOIJ
9428 2.10001
9429 STO "#J"
9430 STO- ST X
9431 R↑
9432 X<>Y
9433 XEQ 46
9434 STO+ ST X
9435 STO "#∫"
9436 -
9437 ABS
9438 STO "#∫-ERR"
9439 GTO 41
9440▸LBL 04
9441 STO "#A"
9442 TYPE?
9443 1
9444 X=Y?
9445 GTO 04
9446 X<> ST Z
9447 STO "#A"
9448 TYPE?
9449 1
9450 X≠Y?
9451 GTO 40
9452▸LBL 04
9453 RCL "#A"
9454 2
9455 SF 25
9456 -
9457 FC? 25
9458 CLST
9459 FC? 25
9460 GTO 40
9461 STO "XF"
9462 XEQ 73
9463 CPX?
9464 GTO 08
9465 FC? 25
9466 GTO 08
9467 2.10001
9468 STO "#J"
9469▸LBL 44
9470 INDEX "#HPFX"
9471 1
9472 RCL "#J"
9473 IP
9474 STOIJ
9475 RCL "#A"
9476 RCLEL
9477 1
9478 +
9479 1/X
9480 STO+ ST X
9481 -
9482 1
9483 +
9484 STO "XF"
9485 XEQ 73
9486 CPX?
9487 GTO 08
9488 FC? 25
9489 GTO 08
9490 1
9491 RCL "#J"
9492 IP
9493 STOIJ
9494 RCLEL
9495 R↑
9496 X<>Y
9497 1
9498 +
9499 X↑2
9500 SF 25
9501 1/X
9502 ×
9503 I+
9504 RCLEL
9505 X<>Y
9506 ×
9507 LASTX
9508 I+
9509 RCLEL
9510 ×
9511 X<>Y
9512 I+
9513 STOEL
9514 X<>Y
9515 I+
9516 STOEL
9517 ISG "#J"
9518 GTO 44
9519 5
9520 ENTER
9521 2
9522 STOIJ
9523 2.10001
9524 STO "#J"
9525 STO- ST X
9526 XEQ 46
9527 STO+ ST X
9528 4
9529 ENTER
9530 2
9531 STOIJ
9532 2.10001
9533 STO "#J"
9534 STO- ST X
9535 R↑
9536 X<>Y
9537 XEQ 46
9538 STO+ ST X
9539 STO "#∫"
9540 -
9541 ABS
9542 STO "#∫-ERR"
9543 RCL "#A"
9544 STO "#B"
9545 "-oo"
9546 ASTO "#A"
9547 GTO 41
9548▸LBL 05
9549 "-oo"
9550 ASTO "#A"
9551 "+oo"
9552 ASTO "#B"
9553 TIME
9554 DATE
9555 +
9556 1
9557 +
9558 1/X
9559 STO "XF"
9560 XEQ 73
9561 CPX?
9562 GTO 08
9563 FC? 25
9564 GTO 08
9565 2.10001
9566 STO "#J"
9567▸LBL 45
9568 INDEX "#HPFX"
9569 1
9570 RCL "#J"
9571 IP
9572 STOIJ
9573 RCLEL
9574 1
9575 +
9576 1/X
9577 STO+ ST X
9578 1
9579 -
9580 STO "XF"
9581 XEQ 73
9582 CPX?
9583 GTO 08
9584 FC? 25
9585 GTO 08
9586 1
9587 RCL "#J"
9588 IP
9589 STOIJ
9590 RCLEL
9591 R↑
9592 X<>Y
9593 1
9594 +
9595 X↑2
9596 SF 25
9597 1/X
9598 ×
9599 I+
9600 RCLEL
9601 X<>Y
9602 ×
9603 LASTX
9604 I+
9605 RCLEL
9606 ×
9607 X<>Y
9608 I+
9609 STOEL
9610 X<>Y
9611 I+
9612 STOEL
9613 1
9614 RCL "#J"
9615 IP
9616 STOIJ
9617 1
9618 RCLEL
9619 1
9620 +
9621 1/X
9622 STO+ ST X
9623 -
9624 STO "XF"
9625 XEQ 73
9626 CPX?
9627 GTO 08
9628 FC? 25
9629 GTO 08
9630 1
9631 RCL "#J"
9632 IP
9633 STOIJ
9634 RCLEL
9635 R↑
9636 X<>Y
9637 1
9638 +
9639 X↑2
9640 SF 25
9641 1/X
9642 ×
9643 I+
9644 RCLEL
9645 X<>Y
9646 ×
9647 LASTX
9648 I+
9649 RCLEL
9650 ×
9651 X<>Y
9652 I+
9653 I+
9654 I+
9655 STOEL
9656 X<>Y
9657 I+
9658 STOEL
9659 ISG "#J"
9660 GTO 45
9661 5
9662 ENTER
9663 2
9664 STOIJ
9665 2.10001
9666 STO "#J"
9667 STO- ST X
9668 XEQ 46
9669 STO+ ST X
9670 7
9671 ENTER
9672 2
9673 STOIJ
9674 2.10001
9675 STO "#J"
9676 STO- ST X
9677 R↑
9678 X<>Y
9679 XEQ 46
9680 STO+ ST X
9681 +
9682 4
9683 ENTER
9684 2
9685 STOIJ
9686 2.10001
9687 STO "#J"
9688 STO- ST X
9689 R↑
9690 X<>Y
9691 XEQ 46
9692 STO+ ST X
9693 6
9694 ENTER
9695 2
9696 STOIJ
9697 R↓
9698 R↓
9699 2.10001
9700 STO "#J"
9701 STO- ST X
9702 XEQ 46
9703 STO+ ST X
9704 +
9705 STO "#∫"
9706 -
9707 ABS
9708 STO "#∫-ERR"
9709 GTO 41
9710▸LBL 46
9711 RCLEL
9712 +
9713 J+
9714 ISG "#J"
9715 GTO 46
9716 RTN
9717▸LBL 47
9718 XEQ 96
9719 GTO 10
9720▸LBL 08
9721 "ERROR f(X) IN X"
9722 ├"       "
9723 ├"f(x)  X  B  A"
9724 RCL "XF"
9725 RCL "#B"
9726 RCL "#A"
9727 PROMPT
9728 GTO 40
9729▸LBL 48
9730 "CALC Yextm"
9731 "m = 0...9"
9732 "EQN"
9733 ASTO ST X
9734 RCL "FKT"
9735 X=Y?
9736 GTO 01
9737 RCL "Xext"
9738 SF 25
9739 XEQ IND "#PRGM"
9740 0
9741 ENTER
9742 COMPLEX
9743 +
9744 ENTER
9745 COMPLEX
9746 X≠0?
9747 R↓
9748 R↓
9749 STO "Yext"
9750 GTO 05
9751▸LBL 01
9752 RCL "Xext"
9753 STO "#"
9754 SF 25
9755 INDEX "EQN≠0"
9756 FS? 25
9757 GTO 02
9758 RCL "EQN-#"
9759 SF 25
9760 PARSE
9761 SF 25
9762 EVAL
9763 STO "Yext"
9764 GTO 05
9765▸LBL 02
9766 J-
9767 RCLIJ
9768 X<>Y
9769 1
9770 -
9771 STO "#I"
9772▸LBL 49
9773 INDEX "EQN≠0"
9774 RCL "#I"
9775 X=0?
9776 GTO 03
9777 1
9778 STOIJ
9779 RCLEL
9780 PARSE
9781 EVAL
9782 ABS
9783 J+
9784 RCLEL
9785 PARSE
9786 EVAL
9787 ABS
9788 X<>Y
9789 R↓
9790 +
9791 X=0?
9792 GTO 04
9793 1
9794 STO- "#I"
9795 GTO 49
9796▸LBL 03
9797 RCL "EQN-#"
9798 SF 25
9799 PARSE
9800 FC? 25
9801 GTO 04
9802 EVAL
9803 STO "Yext"
9804 GTO 05
9805▸LBL 04
9806 CF 25
9807 1ᴇ999
9808 STO "Yext"
9809▸LBL 05
9810 RCL "Xext"
9811 STO IND "#####"
9812 RCL "#####"
9813 CLV "#####"
9814 CLV "#"
9815 1
9816 SUBSTR
9817 "Y"
9818 ASTO ST Y
9819 APPEND
9820 RCL "Yext"
9821 STO IND ST Y
9822 ABS
9823 1ᴇ999
9824 X=Y?
9825 "undef."
9826 RTN
9827▸LBL 50
9828 "MENU SOLVE"
9829 CLV "#extrn"
9830 CLV "#Xn+1"
9831 "Auto"
9832 SF 25
9833 ARCL "#METHOD"
9834 FC? 25
9835 ASTO "#METHOD"
9836▸LBL 51
9837 1ᴇ-4
9838 SF 25
9839 RCL "#H"
9840 STO "#H"
9841 CLST
9842 CLA
9843 ARCL "FKT"
9844 KEY 1 GTO 13
9845 CLA
9846 ARCL "#METHOD"
9847 KEY 2 GTO 01
9848 CLA
9849 SF 25
9850 ARCL "#METH2"
9851 KEY 3 GTO 02
9852 "PARA"
9853 KEY 4 GTO 52
9854 "XEQ"
9855 KEY 5 GTO 07
9856 "BACK"
9857 KEY 6 GTO 11
9858 CLA
9859 KEY 7 GTO 51
9860 KEY 8 GTO 51
9861 KEY 9 GTO 98
9862 CLA
9863 ARCL "#METHOD"
9864 ATOX
9865 ATOX
9866 STO "#METH"
9867 CLA
9868 SF 25
9869 ARCL "#METH2"
9870 ATOX
9871 X≠0?
9872 STO "#METH"
9873 CLA
9874 SF 25
9875 ARCL "#METH2"
9876 ATOX
9877 ATOX
9878 +
9879 CLA
9880 155
9881 RCL "#METH"
9882 RCL ST Z
9883 +
9884 X≥Y?
9885 "3"
9886 117
9887 X=Y?
9888 "1+2+3"
9889 X<>Y
9890 97
9891 X=Y?
9892 "1"
9893 X<>Y
9894 115
9895 X=Y?
9896 "1"
9897 X<>Y
9898 83
9899 X=Y?
9900 "2"
9901 X<>Y
9902 267
9903 X=Y?
9904 "2"
9905 X<>Y
9906 254
9907 X=Y?
9908 "2"
9909 X<>Y
9910 261
9911 X=Y?
9912 "2"
9913 X<>Y
9914 240
9915 X=Y?
9916 "2"
9917 X<>Y
9918 269
9919 X=Y?
9920 "2"
9921 X<>Y
9922 246
9923 X=Y?
9924 "2"
9925 X<>Y
9926 237
9927 X=Y?
9928 "2"
9929 X<>Y
9930 255
9931 X=Y?
9932 "2"
9933 X<>Y
9934 110
9935 X=Y?
9936 "3"
9937 X<>Y
9938 104
9939 X=Y?
9940 "3"
9941 X<>Y
9942 120
9943 X=Y?
9944 "n"
9945 ├" Punkt-"
9946 ├"Verfahren"
9947 XASTO "#MSG"
9948 ATOX
9949 "Xo"
9950 ASTO "#ST-X"
9951 "X1"
9952 ASTO "#ST-Y"
9953 "X2"
9954 ASTO "#ST-Z"
9955 50
9956 "|"
9957 ASTO "#ST-T"
9958 X=Y?
9959 ASTO "#ST-Z"
9960 CLA
9961 ARCL "#METHOD"
9962 ATOX
9963 97
9964 ATOX
9965 "|"
9966 X=Y?
9967 ASTO "#ST-Z"
9968 X=Y?
9969 ASTO "#ST-Y"
9970 115
9971 X=Y?
9972 ASTO "#ST-Z"
9973 X=Y?
9974 ASTO "#ST-Y"
9975 RCL "#ST-T"
9976 CLV "#ST-T"
9977 RCL "#ST-Z"
9978 CLV "#ST-Z"
9979 RCL "#ST-Y"
9980 CLV "#ST-Y"
9981 RCL "#ST-X"
9982 CLV "#ST-X"
9983 CLA
9984 ARCL "#MSG"
9985 MENU
9986 PROMPT
9987 GTO 51
9988▸LBL 01
9989 STO "XF"
9990 RCL "#METHOD"
9991 "Auto"
9992 ASTO ST Y
9993 "Kastu"
9994 X=Y?
9995 ASTO "#METHOD"
9996 ASTO ST Y
9997 "Ostr"
9998 X=Y?
9999 ASTO "#METHOD"
10000 ASTO ST Y
10001 "KShM"
10002 X=Y?
10003 ASTO "#METHOD"
10004 ASTO ST Y
10005 "RegFal"
10006 X=Y?
10007 ASTO "#METHOD"
10008 ASTO ST Y
10009 "invQI"
10010 X=Y?
10011 ASTO "#METHOD"
10012 ASTO ST Y
10013 "Sharma"
10014 X=Y?
10015 ASTO "#METHOD"
10016 ASTO ST Y
10017 "extrn"
10018 X=Y?
10019 ASTO "#METHOD"
10020 ASTO ST Y
10021 "Auto"
10022 X=Y?
10023 ASTO "#METHOD"
10024 "Sharma"
10025 ASTO ST X
10026 RCL "#METHOD"
10027 X=Y?
10028 GTO 02
10029 "RegFal"
10030 ASTO ST X
10031 RCL "#METHOD"
10032 X≠Y?
10033 CLA
10034 X≠Y?
10035 ASTO "#METH2"
10036 X≠Y?
10037 GTO 51
10038▸LBL 02
10039 CLA
10040 CLST
10041 "Sharma"
10042 ASTO ST X
10043 SF 25
10044 RCL "#METHOD"
10045 X≠Y?
10046 GTO 02
10047 RCL "#METH2"
10048 CLA
10049 ASTO ST Y
10050 "minIYI"
10051 X=Y?
10052 ASTO "#METH2"
10053 ASTO ST Y
10054 "Kreis"
10055 X=Y?
10056 ASTO "#METH2"
10057 ASTO ST Y
10058 "Parab"
10059 X=Y?
10060 ASTO "#METH2"
10061 ASTO ST Y
10062 "Mullr"
10063 X=Y?
10064 ASTO "#METH2"
10065 ASTO ST Y
10066 CLA
10067 24
10068 XTOA
10069 R↓
10070 ├"llip"
10071 X=Y?
10072 ASTO "#METH2"
10073 ASTO ST Y
10074 "Hypbl"
10075 X=Y?
10076 ASTO "#METH2"
10077 ASTO ST Y
10078 "minIYI"
10079 X=Y?
10080 ASTO "#METH2"
10081 GTO 51
10082▸LBL 02
10083 CLA
10084 CLST
10085 "RegFal"
10086 ASTO ST X
10087 SF 25
10088 RCL "#METHOD"
10089 X≠Y?
10090 GTO 51
10091 RCL "#METH2"
10092 CLA
10093 ASTO ST Y
10094 "minIYI"
10095 X=Y?
10096 ASTO "#METH2"
10097 ASTO ST Y
10098 "Sekanten"
10099 X=Y?
10100 ASTO "#METH2"
10101 ASTO ST Y
10102 "Illinois"
10103 X=Y?
10104 ASTO "#METH2"
10105 ASTO ST Y
10106 "Pegasus"
10107 X=Y?
10108 ASTO "#METH2"
10109 ASTO ST Y
10110 "And.BjÖrck"
10111 X=Y?
10112 ASTO "#METH2"
10113 ASTO ST Y
10114 "Dekker"
10115 X=Y?
10116 ASTO "#METH2"
10117 ASTO ST Y
10118 "Ridders"
10119 X=Y?
10120 ASTO "#METH2"
10121 ASTO ST Y
10122 "minIYI"
10123 X=Y?
10124 ASTO "#METH2"
10125 GTO 51
10126▸LBL 52
10127 FS? 64
10128 XEQ 93
10129 FS? 64
10130 GTO 51
10131 "SOLVE Param."
10132 "#IT"
10133 KEY 1 GTO 01
10134 "Ydiff"
10135 KEY 2 GTO 02
10136 "Xdiff"
10137 KEY 3 GTO 03
10138 CLA
10139 "PRT"
10140 RCL "#PRTYN"
10141 X>0?
10142 ├"+"
10143 X=0?
10144 ├"0"
10145 X<0?
10146 ├"-"
10147 KEY 4 GTO 04
10148 "h=E"
10149 1ᴇ-4
10150 SF 25
10151 RCL "#H"
10152 STO "#H"
10153 LOG
10154 AIP
10155 KEY 5 GTO 05
10156 "BACK"
10157 KEY 6 GTO 06
10158 KEY 7 GTO 52
10159 KEY 8 GTO 52
10160 KEY 9 GTO 98
10161 MENU
10162 RCL "#METHOD"
10163 RCL "#IT"
10164 RCL "#YDIFF"
10165 RCL "#XDIFF"
10166 "_  #IT |Ydiff| "
10167 ├"|Xdiff|"
10168 PROMPT
10169 GTO 52
10170▸LBL 01
10171 X≤0?
10172 99
10173 999
10174 X>Y?
10175 X<>Y
10176 STO "#IT"
10177 GTO 52
10178▸LBL 02
10179 X≤0?
10180 CLX
10181 STO "#YDIFF"
10182 GTO 52
10183▸LBL 03
10184 X≤0?
10185 CLX
10186 STO "#XDIFF"
10187 GTO 52
10188▸LBL 04
10189 -1
10190 RCL "#PRTYN"
10191 1
10192 -
10193 X<Y?
10194 1
10195 STO "#PRTYN"
10196 GTO 52
10197▸LBL 05
10198 FS? 64
10199 1ᴇ-4
10200 X≤0?
10201 RCL "#H"
10202 STO "#H"
10203 GTO 52
10204▸LBL 06
10205 FS? 64
10206 XEQ 93
10207 GTO 51
10208 GTO 52
10209▸LBL 07
10210 "CHECK extrn"
10211 STO "#ST-X"
10212 R↓
10213 STO "#ST-Y"
10214 R↓
10215 STO "#ST-Z"
10216 "extrn"
10217 ASTO ST X
10218 RCL "#METHOD"
10219 X≠Y?
10220 GTO 07
10221 "#"
10222 ARCL "FKT-TYP"
10223 ASTO "#FKT"
10224 SF 25
10225 RCL "#extrn"
10226 FS? 25
10227 GTO 01
10228 "Verfahren: "
10229 ├"PRGM-Name?"
10230 AON
10231 PROMPT
10232 AOFF
10233 ASTO "#extrn"
10234 ALENG
10235 7
10236 X<Y?
10237 GTO 51
10238▸LBL 01
10239 TIME
10240 STO "#Y0"
10241 DATE
10242 STO "#Y2"
10243 +
10244 2
10245 ÷
10246 STO "#Y1"
10247 1/X
10248 1
10249 +
10250 STO "XF"
10251 STO "#X0"
10252 1.1
10253 ×
10254 STO "#X1"
10255 1.1
10256 ×
10257 STO "#X2"
10258 RCL "XF"
10259 STO "XP"
10260 RCL "F0"
10261 STO "P0"
10262 SF 25
10263 XEQ IND "#extrn"
10264 FC? 25
10265 GTO 51
10266▸LBL 07
10267 "Check Xo,X1,X2"
10268 RCL "#ST-X"
10269 RCL "#ST-Y"
10270 X=Y?
10271 ASTO "#ST-Y"
10272 RCL "#ST-Z"
10273 X=Y?
10274 ASTO "#ST-Z"
10275 RCL "#ST-X"
10276 X=Y?
10277 ASTO "#ST-Z"
10278 RCL "#ST-Z"
10279 TYPE?
10280 1.5
10281 -
10282 ABS
10283 0.5
10284 -
10285 X≠0?
10286 GTO 01
10287 RCL "#ST-Z"
10288 X<> "#ST-Y"
10289 X<> "#ST-Z"
10290▸LBL 01
10291 CLA
10292 ASTO "#X1"
10293 ASTO "#X2"
10294 ASTO "#Y0"
10295 ASTO "#Y1"
10296 ASTO "#Y2"
10297 CLX
10298 STO "#CNT"
10299 RCL "#ST-X"
10300 0
10301 SF 25
10302 +
10303 FC? 25
10304 1
10305 STO "#X0"
10306 97
10307 RCL "#METH"
10308 X=Y?
10309 GTO 04
10310 115
10311 X=Y?
10312 GTO 04
10313▸LBL 02
10314 RCL "#X0"
10315 1
10316 +
10317 STO "#X1"
10318 RCL "#ST-Y"
10319 0
10320 SF 25
10321 +
10322 FC? 25
10323 RCL "#X1"
10324 STO "#X1"
10325 0
10326 ENTER
10327 1
10328 RCL "#X0"
10329 RCL "#X1"
10330 X=Y?
10331 R↑
10332 R↑
10333 STO+ "#X1"
10334 "KShM"
10335 ASTO ST X
10336 RCL "#METHOD"
10337 X=Y?
10338 GTO 04
10339 "RegFal"
10340 ASTO ST X
10341 RCL "#METHOD"
10342 X=Y?
10343 GTO 04
10344▸LBL 03
10345 RCL "#ST-X"
10346 RCL "#ST-Y"
10347 SF 25
10348 +
10349 2
10350 FS? 25
10351 ÷
10352 FS? 25
10353 STO "#X2"
10354 1
10355 FC? 25
10356 STO+ "#X1"
10357 RCL "#X0"
10358 RCL "#X1"
10359 +
10360 2
10361 ÷
10362 STO "#X2"
10363 STO "#X2#"
10364 RCL "#ST-Z"
10365 0
10366 SF 25
10367 +
10368 FC? 25
10369 RCL "#X2"
10370 STO "#X2"
10371 RCL "#X0"
10372 X<>Y
10373 X=Y?
10374 RCL "#X2#"
10375 STO "#X2"
10376 RCL "#X1"
10377 X<>Y
10378 X=Y?
10379 RCL "#X2#"
10380 STO "#X2"
10381 CLV "#X2#"
10382▸LBL 04
10383 "Calc Yo,Y1,Y2"
10384 "Sort Yo,Y1,Y2"
10385 CLV "#ST-X"
10386 CLV "#ST-Y"
10387 CLV "#ST-Z"
10388 CLV "#XBEST"
10389 CLV "#YBEST"
10390 RCL "#X0"
10391 STO "XF"
10392 STO "F0"
10393 TYPE?
10394 1.5
10395 -
10396 ABS
10397 0.5
10398 -
10399 X=0?
10400 XEQ 71
10401 RCL "XF"
10402 STO "#X0"
10403 RCL "F0"
10404 STO "#Y0"
10405 RCL "#X1"
10406 STO "XF"
10407 STO "F0"
10408 TYPE?
10409 1.5
10410 -
10411 ABS
10412 0.5
10413 -
10414 X=0?
10415 XEQ 71
10416 RCL "XF"
10417 STO "#X1"
10418 RCL "F0"
10419 STO "#Y1"
10420 RCL "#X2"
10421 STO "XF"
10422 STO "F0"
10423 TYPE?
10424 1.5
10425 -
10426 ABS
10427 0.5
10428 -
10429 X=0?
10430 XEQ 71
10431 RCL "XF"
10432 STO "#X2"
10433 RCL "F0"
10434 STO "#Y2"
10435 SF 25
10436 ABS
10437 FC? 25
10438 GTO 01
10439 RCL "#Y1"
10440 SF 25
10441 ABS
10442 FC? 25
10443 GTO 01
10444 X≤Y?
10445 GTO 01
10446 RCL "#X1"
10447 X<> "#X2"
10448 STO "#X1"
10449 RCL "#Y1"
10450 X<> "#Y2"
10451 STO "#Y1"
10452▸LBL 01
10453 RCL "#Y0"
10454 SF 25
10455 ABS
10456 FC? 25
10457 GTO 01
10458 RCL "#Y2"
10459 SF 25
10460 ABS
10461 FC? 25
10462 GTO 01
10463 X≥Y?
10464 GTO 01
10465 RCL "#X0"
10466 X<> "#X2"
10467 STO "#X0"
10468 RCL "#Y0"
10469 X<> "#Y2"
10470 STO "#Y0"
10471▸LBL 01
10472 RCL "#Y0"
10473 SF 25
10474 ABS
10475 FC? 25
10476 GTO 01
10477 RCL "#Y1"
10478 SF 25
10479 ABS
10480 FC? 25
10481 GTO 01
10482 X≥Y?
10483 GTO 01
10484 RCL "#X0"
10485 X<> "#X1"
10486 STO "#X0"
10487 RCL "#Y0"
10488 X<> "#Y1"
10489 STO "#Y0"
10490▸LBL 01
10491 "undef."
10492 RCL "#Y2"
10493 1ᴇ999
10494 STO "#Y"
10495 X=Y?
10496 ASTO "#Y2"
10497 X=Y?
10498 ASTO "#Y"
10499 RCL "#Y1"
10500 X=Y?
10501 ASTO "#Y1"
10502 X=Y?
10503 ASTO "#Y"
10504 X<>Y
10505 RCL "#Y0"
10506 X=Y?
10507 ASTO "#Y0"
10508 X=Y?
10509 ASTO "#Y"
10510 RCL "#PRTYN"
10511 X<0?
10512 GTO 01
10513 ADV
10514 "============"
10515 ├"============"
10516 PRA
10517 ADV
10518 "VERF.: "
10519 ARCL "#METHOD"
10520 PRA
10521 RCL "EQNf(X)"
10522 RCL "FKT"
10523 ENTER
10524 "EQN"
10525 ASTO ST X
10526 X=Y?
10527 R↓
10528 R↓
10529 STO "f(X) "
10530 PRV "f(X) "
10531 CLV "f(X) "
10532 RCL "#Y2"
10533 STO "Y_2 "
10534 PRV "Y_2 "
10535 CLV "Y_2 "
10536 RCL "#Y1"
10537 STO "Y_1 "
10538 PRV "Y_1 "
10539 CLV "Y_1 "
10540 RCL "#Y0"
10541 STO "Y_0 "
10542 PRV "Y_0 "
10543 CLV "Y_0 "
10544 RCL "#X2"
10545 STO "X_2 "
10546 PRV "X_2 "
10547 CLV "X_2 "
10548 RCL "#X1"
10549 STO "X_1 "
10550 PRV "X_1 "
10551 CLV "X_1 "
10552 RCL "#X0"
10553 STO "X_0 "
10554 PRV "X_0 "
10555 CLV "X_0 "
10556▸LBL 01
10557 RCL "#Y"
10558 TYPE?
10559 5
10560 X≠Y?
10561 GTO 01
10562 "undef."
10563 ASTO ST X
10564 "X0"
10565 RCL "#Y0"
10566 X=Y?
10567 ASTO ST Z
10568 R↓
10569 "X1"
10570 RCL "#Y1"
10571 X=Y?
10572 ASTO ST Z
10573 R↓
10574 "X2"
10575 RCL "#Y2"
10576 X=Y?
10577 ASTO ST Z
10578 "#"
10579 ASTO ST T
10580 "Initialisierung"
10581 ├"sfehler"
10582 ├"f("
10583 ARCL ST Z
10584 ├") = undef."
10585 R↓
10586 R↓
10587 APPEND
10588 RCL IND ST X
10589 0
10590 ENTER
10591 ENTER
10592 R↑
10593 PROMPT
10594 GTO 51
10595▸LBL 01
10596 "RegFal"
10597 ASTO ST X
10598 RCL "#METHOD"
10599 X≠Y?
10600 GTO 01
10601 RCL "#X0"
10602 STO "#X2"
10603 RCL "#Y0"
10604 STO "#Y2"
10605 GTO 53
10606▸LBL 01
10607 RCL "#X0"
10608 X<> "#X2"
10609 STO "#X0"
10610 RCL "#Y0"
10611 X<> "#Y2"
10612 STO "#Y0"
10613 RCL "#X1"
10614 RCL "#X2"
10615 SF 25
10616 +
10617 FC? 25
10618 STO "#X1"
10619 RCL "#Y1"
10620 RCL "#Y2"
10621 SF 25
10622 +
10623 FC? 25
10624 STO "#Y1"
10625 RCL "#X0"
10626 RCL "#X1"
10627 SF 25
10628 +
10629 FC? 25
10630 STO "#X0"
10631 RCL "#Y0"
10632 RCL "#Y1"
10633 SF 25
10634 +
10635 FC? 25
10636 STO "#Y0"
10637▸LBL 53
10638 "CALC: f(x) = 0"
10639 "Auto = 117"
10640 1ᴇ999
10641 STO "#XBEST"
10642 STO "#YBEST"
10643 STO "#dX"
10644 STO "#dY"
10645 "RegFal"
10646 ASTO ST X
10647 RCL "#METHOD"
10648 X=Y?
10649 GTO 05
10650 RCL "#Y1"
10651 CPX?
10652 GTO 01
10653 X≠0?
10654 SIGN
10655 RCL "#Y2"
10656 CPX?
10657 GTO 01
10658 X≠0?
10659 SIGN
10660 X=Y?
10661 GTO 01
10662 RCL "#METH"
10663 117
10664 X≠Y?
10665 GTO 01
10666 "Bisektion"
10667 XASTO "#MBEST"
10668 "AUSGESCHLOSSEN"
10669 GTO 01
10670 RCL "#X1"
10671 RCL "#X2"
10672 +
10673 2
10674 ÷
10675 STO "#X"
10676 STO "XF"
10677 XEQ 71
10678 1ᴇ999
10679 RCL "F0"
10680 X=Y?
10681 GTO 01
10682 STO "#Y"
10683 CPX?
10684 GTO 01
10685 SIGN
10686 STO ST Y
10687 STO- ST Y
10688 RCL "#Y1"
10689 SIGN
10690 X≠Y?
10691 ISG ST Z
10692 X<>Y
10693 R↓
10694 R↓
10695 1
10696 +
10697 "#X"
10698 AIP
10699 ASTO ST Y
10700 "#Y"
10701 AIP
10702 ASTO ST Z
10703 RCL "#Y"
10704 STO IND ST T
10705 RCL "#X"
10706 STO IND ST T
10707 RCL "#X2"
10708 RCL "#X1"
10709 -
10710 ABS
10711 STO "#dX"
10712 RCL "#Y2"
10713 RCL "#Y1"
10714 -
10715 ABS
10716 STO "#dY"
10717 GTO 09
10718▸LBL 01
10719 "Kasturiarachi"
10720 CLST
10721 97
10722 RCL "#METH"
10723 X=Y?
10724 ISG ST Z
10725 STO ST X
10726 117
10727 X=Y?
10728 ISG ST T
10729 STO ST X
10730 R↑
10731 X=0?
10732 GTO 01
10733 RCL "#X2"
10734 ABS
10735 1ᴇ2
10736 ÷
10737 1ᴇ-1
10738 +
10739 RCL "#Y2"
10740 ABS
10741 X>Y?
10742 X<>Y
10743 STO "#h"
10744 RCL "#X2"
10745 +
10746 STO "XF"
10747 XEQ 71
10748 1ᴇ999
10749 RCL "F0"
10750 X=Y?
10751 GTO 01
10752 STO "#Y2+"
10753 RCL "#X2"
10754 RCL "#h"
10755 -
10756 STO "XF"
10757 XEQ 71
10758 1ᴇ999
10759 RCL "F0"
10760 X=Y?
10761 GTO 01
10762 RCL "#Y2+"
10763 CLV "#Y2+"
10764 -
10765 SF 25
10766 1/X
10767 STO "#dY"
10768 FC? 25
10769 GTO 01
10770 RCL "#Y2"
10771 STO+ ST X
10772 ×
10773 RCL "#h"
10774 ×
10775 RCL "#X2"
10776 +
10777 STO "XF"
10778 XEQ 71
10779 RCL "#Y2"
10780 RCL "F0"
10781 1ᴇ999
10782 X=Y?
10783 GTO 01
10784 R↓
10785 -
10786 SF 25
10787 1/X
10788 STO "#dY"
10789 FC? 25
10790 GTO 01
10791 RCL "#Y2"
10792 ×
10793 RCL "#X2"
10794 RCL "XF"
10795 -
10796 ×
10797 RCL "#X2"
10798 X<>Y
10799 -
10800 STO "XF"
10801 XEQ 71
10802 RCL "XF"
10803 RCL "#XBEST"
10804 RCL "F0"
10805 1ᴇ999
10806 X=Y?
10807 GTO 01
10808 R↓
10809 ABS
10810 RCL "#YBEST"
10811 ABS
10812 "Kastu"
10813 X>Y?
10814 ASTO "#MBEST"
10815 X<Y?
10816 R↑
10817 R↑
10818 STO "#XBEST"
10819 RCL "F0"
10820 RCL "#YBEST"
10821 RCL "F0"
10822 ABS
10823 RCL "#YBEST"
10824 ABS
10825 X<Y?
10826 R↑
10827 R↑
10828 STO "#YBEST"
10829 RCL "#METH"
10830 117
10831 X=Y?
10832 GTO 01
10833 RCL "XF"
10834 STO "#X"
10835 RCL "F0"
10836 STO "#Y"
10837 GTO 06
10838▸LBL 01
10839 "Ostrowski"
10840 CLST
10841 115
10842 RCL "#METH"
10843 X=Y?
10844 ISG ST Z
10845 STO ST X
10846 117
10847 X=Y?
10848 ISG ST T
10849 STO ST X
10850 R↑
10851 X=0?
10852 GTO 01
10853 RCL "#X2"
10854 ABS
10855 1ᴇ2
10856 ÷
10857 1ᴇ-1
10858 +
10859 RCL "#Y2"
10860 ABS
10861 X>Y?
10862 X<>Y
10863 STO "#h"
10864 RCL "#X2"
10865 +
10866 STO "XF"
10867 XEQ 71
10868 1ᴇ999
10869 RCL "F0"
10870 X=Y?
10871 GTO 01
10872 STO "#Y2+"
10873 RCL "#X2"
10874 RCL "#h"
10875 -
10876 STO "XF"
10877 XEQ 71
10878 1ᴇ999
10879 RCL "F0"
10880 X=Y?
10881 GTO 01
10882 RCL "#Y2+"
10883 CLV "#Y2+"
10884 -
10885 SF 25
10886 1/X
10887 STO "#dY"
10888 FC? 25
10889 GTO 01
10890 RCL "#Y2"
10891 STO+ ST X
10892 ×
10893 RCL "#h"
10894 ×
10895 RCL "#X2"
10896 +
10897 STO "XF"
10898 XEQ 71
10899 1ᴇ999
10900 RCL "F0"
10901 X=Y?
10902 GTO 01
10903 STO+ ST X
10904 RCL "#Y2"
10905 -
10906 SF 25
10907 1/X
10908 STO "#dY"
10909 FC? 25
10910 GTO 01
10911 RCL "F0"
10912 RCL "#Y2"
10913 -
10914 ×
10915 RCL "#X2"
10916 RCL "XF"
10917 -
10918 ×
10919 RCL "#X2"
10920 X<>Y
10921 -
10922 STO "XF"
10923 XEQ 71
10924 RCL "XF"
10925 RCL "#XBEST"
10926 RCL "F0"
10927 1ᴇ999
10928 X=Y?
10929 GTO 01
10930 R↓
10931 ABS
10932 RCL "#YBEST"
10933 ABS
10934 "Ostr"
10935 X>Y?
10936 ASTO "#MBEST"
10937 X<Y?
10938 R↑
10939 R↑
10940 STO "#XBEST"
10941 RCL "F0"
10942 RCL "#YBEST"
10943 RCL "F0"
10944 ABS
10945 RCL "#YBEST"
10946 ABS
10947 X<Y?
10948 R↑
10949 R↑
10950 STO "#YBEST"
10951 RCL "#METH"
10952 117
10953 X=Y?
10954 GTO 01
10955 RCL "XF"
10956 STO "#X"
10957 RCL "F0"
10958 STO "#Y"
10959 GTO 06
10960▸LBL 01
10961 "Kanwar-Sharma-"
10962 "Mamta"
10963 CLST
10964 83
10965 RCL "#METH"
10966 X=Y?
10967 ISG ST Z
10968 STO ST X
10969 117
10970 X=Y?
10971 ISG ST T
10972 STO ST X
10973 R↑
10974 X=0?
10975 GTO 01
10976 RCL "#Y2"
10977 RCL "#Y1"
10978 -
10979 0
10980 ENTER
10981 COMPLEX
10982 +
10983 COMPLEX
10984 X<>Y
10985 SIGN
10986 RCL "#Y2"
10987 RCL "#Y1"
10988 -
10989 X↑2
10990 RCL "#X2"
10991 RCL "#X1"
10992 -
10993 X↑2
10994 +
10995 SQRT
10996 ×
10997 RCL "#Y2"
10998 +
10999 RCL "#Y1"
11000 -
11001 SF 25
11002 1/X
11003 STO "#dY"
11004 FC? 25
11005 GTO 01
11006 STO+ ST X
11007 RCL "#Y2"
11008 ×
11009 RCL "#X2"
11010 RCL "#X1"
11011 -
11012 ×
11013 RCL "#X2"
11014 X<>Y
11015 -
11016 STO "XF"
11017 XEQ 71
11018 RCL "XF"
11019 RCL "#XBEST"
11020 RCL "F0"
11021 1ᴇ999
11022 X=Y?
11023 GTO 01
11024 R↓
11025 ABS
11026 RCL "#YBEST"
11027 ABS
11028 "KShM"
11029 X>Y?
11030 ASTO "#MBEST"
11031 X<Y?
11032 R↑
11033 R↑
11034 STO "#XBEST"
11035 RCL "F0"
11036 RCL "#YBEST"
11037 RCL "F0"
11038 ABS
11039 RCL "#YBEST"
11040 ABS
11041 X<Y?
11042 R↑
11043 R↑
11044 STO "#YBEST"
11045 RCL "#METH"
11046 117
11047 X=Y?
11048 GTO 01
11049 RCL "XF"
11050 STO "#X"
11051 RCL "F0"
11052 STO "#Y"
11053 GTO 06
11054▸LBL 01
11055 "inverse Quadr."
11056 "Interpolation"
11057 CLST
11058 110
11059 RCL "#METH"
11060 X=Y?
11061 ISG ST Z
11062 STO ST X
11063 117
11064 X=Y?
11065 ISG ST T
11066 STO ST X
11067 R↑
11068 X=0?
11069 GTO 01
11070 RCL "#Y2"
11071 RCL "#Y0"
11072 -
11073 STO "#Y20"
11074 RCL "#Y2"
11075 RCL "#Y1"
11076 -
11077 STO "#Y21"
11078 ×
11079 RCL "#Y1"
11080 RCL "#Y0"
11081 -
11082 STO "#Y10"
11083 ×
11084 SF 25
11085 1/X
11086 STO "#dY"
11087 FC? 25
11088 GTO 01
11089 RCL "#X2"
11090 RCL "#Y1"
11091 ×
11092 RCL "#Y0"
11093 ×
11094 RCL "#Y10"
11095 ×
11096 CLV "#Y10"
11097 RCL "#X1"
11098 RCL "#Y2"
11099 ×
11100 RCL "#Y0"
11101 ×
11102 RCL "#Y20"
11103 ×
11104 CLV "#Y20"
11105 -
11106 RCL "#X0"
11107 RCL "#Y2"
11108 ×
11109 RCL "#Y1"
11110 ×
11111 RCL "#Y21"
11112 ×
11113 CLV "#Y21"
11114 +
11115 ×
11116 STO "XF"
11117 XEQ 71
11118 1ᴇ999
11119 RCL "F0"
11120 X=Y?
11121 GTO 01
11122 RCL "XF"
11123 RCL "#XBEST"
11124 RCL "F0"
11125 ABS
11126 RCL "#YBEST"
11127 ABS
11128 "invQI"
11129 X>Y?
11130 ASTO "#MBEST"
11131 X<Y?
11132 R↑
11133 R↑
11134 STO "#XBEST"
11135 RCL "F0"
11136 RCL "#YBEST"
11137 RCL "F0"
11138 ABS
11139 RCL "#YBEST"
11140 ABS
11141 X<Y?
11142 R↑
11143 R↑
11144 STO "#YBEST"
11145 RCL "#METH"
11146 117
11147 X=Y?
11148 GTO 01
11149 RCL "XF"
11150 STO "#X"
11151 RCL "F0"
11152 STO "#Y"
11153 GTO 06
11154▸LBL 01
11155 "Sharma-Family"
11156 "min|Y| = 109"
11157 "Kreis"
11158 CLST
11159 75
11160 RCL "#METH"
11161 X=Y?
11162 ISG ST Z
11163 STO ST X
11164 117
11165 X=Y?
11166 ISG ST T
11167 STO ST X
11168 R↓
11169 109
11170 X=Y?
11171 ISG ST T
11172 STO ST X
11173 R↑
11174 X=0?
11175 GTO 01
11176 RCL "#X2"
11177 RCL "#X1"
11178 -
11179 STO "#h1"
11180 RCL "#Y2"
11181 RCL "#Y1"
11182 -
11183 RCL "#h1"
11184 SF 25
11185 1/X
11186 STO "#dY"
11187 FC? 25
11188 GTO 01
11189 ×
11190 STO "#k1"
11191 RCL "#X2"
11192 RCL "#X0"
11193 -
11194 STO "#h2"
11195 RCL "#Y2"
11196 RCL "#Y0"
11197 -
11198 RCL "#h2"
11199 SF 25
11200 1/X
11201 STO "#dY"
11202 FC? 25
11203 GTO 01
11204 ×
11205 STO "#k2"
11206 RCL "#h1"
11207 ×
11208 RCL "#h2"
11209 RCL "#k1"
11210 ×
11211 -
11212 RCL "#h1"
11213 RCL "#k1"
11214 ×
11215 RCL "#h2"
11216 RCL "#k2"
11217 ×
11218 -
11219 RCL "#k1"
11220 RCL "#k2"
11221 ×
11222 ×
11223 +
11224 RCL "#k2"
11225 RCL "#k1"
11226 -
11227 SF 25
11228 1/X
11229 STO "#dY"
11230 FC? 25
11231 GTO 01
11232 ×
11233 STO "#c"
11234 LASTX
11235 RCL "#h2"
11236 RCL "#k2"
11237 X↑2
11238 ×
11239 RCL "#h1"
11240 RCL "#k1"
11241 X↑2
11242 ×
11243 -
11244 RCL "#h2"
11245 RCL "#h1"
11246 -
11247 +
11248 ×
11249 STO "#d"
11250 RCL "#c"
11251 X↑2
11252 RCL "#Y2"
11253 RCL "#d"
11254 ×
11255 4
11256 ×
11257 -
11258 SQRT
11259 RCL "#c"
11260 0
11261 ENTER
11262 COMPLEX
11263 +
11264 COMPLEX
11265 R↓
11266 X≠0?
11267 SIGN
11268 ×
11269 RCL "#c"
11270 +
11271 SF 25
11272 1/X
11273 STO "#dY"
11274 FC? 25
11275 GTO 01
11276 STO+ ST X
11277 RCL "#Y2"
11278 ×
11279 RCL "#Y2"
11280 RCL "#d"
11281 -
11282 ×
11283 RCL "#X2"
11284 X<>Y
11285 -
11286 STO "XF"
11287 XEQ 71
11288 1ᴇ999
11289 RCL "F0"
11290 X=Y?
11291 GTO 01
11292 RCL "XF"
11293 RCL "#XBEST"
11294 RCL "F0"
11295 ABS
11296 RCL "#YBEST"
11297 ABS
11298 "Kreis"
11299 X>Y?
11300 ASTO "#MBEST"
11301 X<Y?
11302 R↑
11303 R↑
11304 STO "#XBEST"
11305 RCL "F0"
11306 RCL "#YBEST"
11307 RCL "F0"
11308 ABS
11309 RCL "#YBEST"
11310 ABS
11311 X<Y?
11312 R↑
11313 R↑
11314 STO "#YBEST"
11315 109
11316 RCL "#METH"
11317 X=Y?
11318 GTO 01
11319 117
11320 X=Y?
11321 GTO 01
11322 RCL "XF"
11323 STO "#X"
11324 RCL "F0"
11325 STO "#Y"
11326 GTO 06
11327▸LBL 01
11328 "Parab"
11329 CLST
11330 80
11331 RCL "#METH"
11332 X=Y?
11333 ISG ST Z
11334 STO ST X
11335 117
11336 X=Y?
11337 ISG ST T
11338 STO ST X
11339 R↓
11340 109
11341 X=Y?
11342 ISG ST T
11343 STO ST X
11344 R↑
11345 X=0?
11346 GTO 01
11347 RCL "#X2"
11348 RCL "#X1"
11349 -
11350 STO "#h1"
11351 RCL "#Y2"
11352 RCL "#Y1"
11353 -
11354 RCL "#h1"
11355 SF 25
11356 1/X
11357 STO "#dY"
11358 FC? 25
11359 GTO 01
11360 ×
11361 STO "#k1"
11362 RCL "#X2"
11363 RCL "#X0"
11364 -
11365 STO "#h2"
11366 RCL "#Y2"
11367 RCL "#Y0"
11368 -
11369 RCL "#h2"
11370 SF 25
11371 1/X
11372 STO "#dY"
11373 FC? 25
11374 GTO 01
11375 ×
11376 STO "#k2"
11377 RCL "#h2"
11378 ×
11379 RCL "#h1"
11380 RCL "#k1"
11381 ×
11382 X<>Y
11383 -
11384 RCL "#k1"
11385 ×
11386 RCL "#k2"
11387 ×
11388 RCL "#k2"
11389 RCL "#k1"
11390 -
11391 SF 25
11392 1/X
11393 STO "#dY"
11394 FC? 25
11395 GTO 01
11396 ×
11397 STO "#c"
11398 LASTX
11399 RCL "#h2"
11400 RCL "#k2"
11401 X↑2
11402 ×
11403 RCL "#h1"
11404 RCL "#k1"
11405 X↑2
11406 ×
11407 -
11408 ×
11409 STO "#d"
11410 RCL "#Y2"
11411 X<>Y
11412 -
11413 RCL "#Y2"
11414 ×
11415 RCL "#c"
11416 SF 25
11417 1/X
11418 STO "#dY"
11419 FC? 25
11420 GTO 01
11421 ×
11422 RCL "#X2"
11423 X<>Y
11424 -
11425 STO "XF"
11426 XEQ 71
11427 1ᴇ999
11428 RCL "F0"
11429 X=Y?
11430 GTO 01
11431 RCL "XF"
11432 RCL "#XBEST"
11433 RCL "F0"
11434 ABS
11435 RCL "#YBEST"
11436 ABS
11437 "Parabel"
11438 X>Y?
11439 XASTO "#MBEST"
11440 X<Y?
11441 R↑
11442 R↑
11443 STO "#XBEST"
11444 RCL "F0"
11445 RCL "#YBEST"
11446 RCL "F0"
11447 ABS
11448 RCL "#YBEST"
11449 ABS
11450 X<Y?
11451 R↑
11452 R↑
11453 STO "#YBEST"
11454 109
11455 RCL "#METH"
11456 X=Y?
11457 GTO 01
11458 117
11459 X=Y?
11460 GTO 01
11461 RCL "XF"
11462 STO "#X"
11463 RCL "F0"
11464 STO "#Y"
11465 GTO 06
11466▸LBL 01
11467 "Muller"
11468 CLST
11469 77
11470 RCL "#METH"
11471 X=Y?
11472 ISG ST Z
11473 STO ST X
11474 117
11475 X=Y?
11476 ISG ST T
11477 STO ST X
11478 R↓
11479 109
11480 X=Y?
11481 ISG ST T
11482 STO ST X
11483 R↑
11484 X=0?
11485 GTO 01
11486 RCL "#X2"
11487 RCL "#X1"
11488 -
11489 STO "#h1"
11490 RCL "#Y2"
11491 RCL "#Y1"
11492 -
11493 RCL "#h1"
11494 SF 25
11495 1/X
11496 STO "#dY"
11497 FC? 25
11498 GTO 01
11499 ×
11500 STO "#k1"
11501 RCL "#X2"
11502 RCL "#X0"
11503 -
11504 STO "#h2"
11505 RCL "#Y2"
11506 RCL "#Y0"
11507 -
11508 RCL "#h2"
11509 SF 25
11510 1/X
11511 STO "#dY"
11512 FC? 25
11513 GTO 01
11514 ×
11515 STO "#k2"
11516 RCL "#h1"
11517 ×
11518 RCL "#h2"
11519 RCL "#k1"
11520 ×
11521 -
11522 RCL "#k2"
11523 RCL "#k1"
11524 -
11525 SF 25
11526 1/X
11527 STO "#dY"
11528 FC? 25
11529 GTO 01
11530 ×
11531 STO "#c"
11532 LASTX
11533 RCL "#h2"
11534 RCL "#h1"
11535 -
11536 ×
11537 STO "#d"
11538 RCL "#c"
11539 X↑2
11540 RCL "#Y2"
11541 RCL "#d"
11542 ×
11543 4
11544 ×
11545 +
11546 SQRT
11547 RCL "#c"
11548 0
11549 ENTER
11550 COMPLEX
11551 +
11552 COMPLEX
11553 R↓
11554 X≠0?
11555 SIGN
11556 ×
11557 RCL "#c"
11558 +
11559 SF 25
11560 1/X
11561 STO "#dY"
11562 FC? 25
11563 GTO 01
11564 RCL "#Y2"
11565 ×
11566 RCL "#d"
11567 ×
11568 2
11569 ×
11570 RCL "#X2"
11571 +
11572 STO "XF"
11573 XEQ 71
11574 1ᴇ999
11575 RCL "F0"
11576 X=Y?
11577 GTO 01
11578 RCL "XF"
11579 RCL "#XBEST"
11580 RCL "F0"
11581 ABS
11582 RCL "#YBEST"
11583 ABS
11584 "Muller"
11585 X>Y?
11586 ASTO "#MBEST"
11587 X<Y?
11588 R↑
11589 R↑
11590 STO "#XBEST"
11591 RCL "F0"
11592 RCL "#YBEST"
11593 RCL "F0"
11594 ABS
11595 RCL "#YBEST"
11596 ABS
11597 X<Y?
11598 R↑
11599 R↑
11600 STO "#YBEST"
11601 109
11602 RCL "#METH"
11603 X=Y?
11604 GTO 01
11605 117
11606 X=Y?
11607 GTO 01
11608 RCL "F0"
11609 RCL "#Y2"
11610 SF 25
11611 1/X
11612 ×
11613 ABS
11614 10
11615 X<Y?
11616 GTO 02
11617 RCL "XF"
11618 STO "#X"
11619 RCL "F0"
11620 STO "#Y"
11621 GTO 06
11622▸LBL 02
11623 RCL "XF"
11624 RCL "#X2"
11625 +
11626 2
11627 ÷
11628 STO "XF"
11629 XEQ 71
11630 1ᴇ999
11631 RCL "F0"
11632 X=Y?
11633 GTO 01
11634 STO "#Y"
11635 RCL "XF"
11636 STO "#X"
11637 RCL "#X0"
11638 X<> "#X1"
11639 STO "#X2"
11640 RCL "#Y0"
11641 X<> "#Y1"
11642 STO "#Y2"
11643 GTO 06
11644▸LBL 01
11645 "Ellipse"
11646 CLST
11647 24
11648 RCL "#METH"
11649 X=Y?
11650 ISG ST Z
11651 STO ST X
11652 117
11653 X=Y?
11654 ISG ST T
11655 STO ST X
11656 R↓
11657 109
11658 X=Y?
11659 ISG ST T
11660 STO ST X
11661 R↑
11662 X=0?
11663 GTO 01
11664 RCL "#X2"
11665 RCL "#X1"
11666 -
11667 STO "#h1"
11668 RCL "#Y2"
11669 RCL "#Y1"
11670 -
11671 RCL "#h1"
11672 SF 25
11673 1/X
11674 STO "#dY"
11675 FC? 25
11676 GTO 01
11677 ×
11678 STO "#k1"
11679 RCL "#X2"
11680 RCL "#X0"
11681 -
11682 STO "#h2"
11683 RCL "#Y2"
11684 RCL "#Y0"
11685 -
11686 RCL "#h2"
11687 SF 25
11688 1/X
11689 STO "#dY"
11690 FC? 25
11691 GTO 01
11692 ×
11693 STO "#k2"
11694 RCL "#h1"
11695 ×
11696 RCL "#h2"
11697 RCL "#k1"
11698 ×
11699 -
11700 RCL "#Y0"
11701 RCL "#Y1"
11702 -
11703 STO+ ST X
11704 RCL "#k1"
11705 ×
11706 RCL "#k2"
11707 ×
11708 +
11709 RCL "#k2"
11710 RCL "#k1"
11711 -
11712 SF 25
11713 1/X
11714 STO "#dY"
11715 FC? 25
11716 GTO 01
11717 ×
11718 STO "#c"
11719 LASTX
11720 RCL "#h2"
11721 RCL "#k2"
11722 X↑2
11723 ×
11724 RCL "#h1"
11725 RCL "#k1"
11726 X↑2
11727 ×
11728 -
11729 STO+ ST X
11730 RCL "#h2"
11731 RCL "#h1"
11732 -
11733 +
11734 ×
11735 STO "#d"
11736 RCL "#c"
11737 X↑2
11738 RCL "#Y2"
11739 RCL "#d"
11740 ×
11741 4
11742 ×
11743 +
11744 SQRT
11745 RCL "#c"
11746 0
11747 ENTER
11748 COMPLEX
11749 +
11750 COMPLEX
11751 R↓
11752 X≠0?
11753 SIGN
11754 ×
11755 RCL "#c"
11756 +
11757 SF 25
11758 1/X
11759 STO "#dY"
11760 FC? 25
11761 GTO 01
11762 STO+ ST X
11763 RCL "#Y2"
11764 ×
11765 RCL "#Y2"
11766 STO+ ST X
11767 RCL "#d"
11768 -
11769 ×
11770 RCL "#X2"
11771 X<>Y
11772 -
11773 STO "XF"
11774 XEQ 71
11775 1ᴇ999
11776 RCL "F0"
11777 X=Y?
11778 GTO 01
11779 RCL "XF"
11780 RCL "#XBEST"
11781 RCL "F0"
11782 ABS
11783 RCL "#YBEST"
11784 ABS
11785 "Ellipse"
11786 X>Y?
11787 XASTO "#MBEST"
11788 X<Y?
11789 R↑
11790 R↑
11791 STO "#XBEST"
11792 RCL "F0"
11793 RCL "#YBEST"
11794 RCL "F0"
11795 ABS
11796 RCL "#YBEST"
11797 ABS
11798 X<Y?
11799 R↑
11800 R↑
11801 STO "#YBEST"
11802 109
11803 RCL "#METH"
11804 X=Y?
11805 GTO 01
11806 117
11807 X=Y?
11808 GTO 01
11809 RCL "XF"
11810 STO "#X"
11811 RCL "F0"
11812 STO "#Y"
11813 GTO 06
11814▸LBL 01
11815 "Hyperbel"
11816 CLST
11817 72
11818 RCL "#METH"
11819 X=Y?
11820 ISG ST Z
11821 STO ST X
11822 117
11823 X=Y?
11824 ISG ST T
11825 STO ST X
11826 R↓
11827 109
11828 X=Y?
11829 ISG ST T
11830 STO ST X
11831 R↑
11832 X=0?
11833 GTO 01
11834 RCL "#X2"
11835 RCL "#X1"
11836 -
11837 STO "#h1"
11838 RCL "#Y2"
11839 RCL "#Y1"
11840 -
11841 RCL "#h1"
11842 SF 25
11843 1/X
11844 STO "#dY"
11845 FC? 25
11846 GTO 01
11847 ×
11848 STO "#k1"
11849 RCL "#X2"
11850 RCL "#X0"
11851 -
11852 STO "#h2"
11853 RCL "#Y2"
11854 RCL "#Y0"
11855 -
11856 RCL "#h2"
11857 SF 25
11858 1/X
11859 STO "#dY"
11860 FC? 25
11861 GTO 01
11862 ×
11863 STO "#k2"
11864 RCL "#h1"
11865 ×
11866 RCL "#h2"
11867 RCL "#k1"
11868 ×
11869 -
11870 RCL "#h1"
11871 RCL "#k1"
11872 ×
11873 RCL "#h2"
11874 RCL "#k2"
11875 ×
11876 -
11877 RCL "#k1"
11878 ×
11879 RCL "#k2"
11880 ×
11881 -
11882 RCL "#k2"
11883 RCL "#k1"
11884 -
11885 SF 25
11886 1/X
11887 STO "#dY"
11888 FC? 25
11889 GTO 01
11890 ×
11891 STO "#c"
11892 LASTX
11893 RCL "#h2"
11894 RCL "#k2"
11895 X↑2
11896 ×
11897 RCL "#h1"
11898 RCL "#k1"
11899 X↑2
11900 ×
11901 -
11902 +/-
11903 RCL "#h2"
11904 RCL "#h1"
11905 -
11906 +
11907 ×
11908 STO "#d"
11909 RCL "#c"
11910 X↑2
11911 RCL "#Y2"
11912 RCL "#d"
11913 ×
11914 4
11915 ×
11916 +
11917 SQRT
11918 RCL "#c"
11919 0
11920 ENTER
11921 COMPLEX
11922 +
11923 COMPLEX
11924 R↓
11925 X≠0?
11926 SIGN
11927 ×
11928 RCL "#c"
11929 +
11930 SF 25
11931 1/X
11932 STO "#dY"
11933 FC? 25
11934 GTO 01
11935 STO+ ST X
11936 RCL "#Y2"
11937 ×
11938 RCL "#Y2"
11939 RCL "#d"
11940 +
11941 +/-
11942 ×
11943 RCL "#X2"
11944 X<>Y
11945 -
11946 STO "XF"
11947 XEQ 71
11948 1ᴇ999
11949 RCL "F0"
11950 X=Y?
11951 GTO 01
11952 RCL "XF"
11953 RCL "#XBEST"
11954 RCL "F0"
11955 ABS
11956 RCL "#YBEST"
11957 ABS
11958 "Hyperbel"
11959 X>Y?
11960 XASTO "#MBEST"
11961 X<Y?
11962 R↑
11963 R↑
11964 STO "#XBEST"
11965 RCL "F0"
11966 RCL "#YBEST"
11967 RCL "F0"
11968 ABS
11969 RCL "#YBEST"
11970 ABS
11971 X<Y?
11972 R↑
11973 R↑
11974 STO "#YBEST"
11975 109
11976 RCL "#METH"
11977 X=Y?
11978 GTO 01
11979 117
11980 X=Y?
11981 GTO 01
11982 RCL "XF"
11983 STO "#X"
11984 RCL "F0"
11985 STO "#Y"
11986 GTO 06
11987▸LBL 01
11988 120
11989 RCL "#METH"
11990 X=Y?
11991 GTO 01
11992 117
11993 X=Y?
11994 GTO 05
11995▸LBL 01
11996 "ext. Verfahren"
11997 120
11998 RCL "#METH"
11999 X≠Y?
12000 GTO 01
12001 RCL "#extrn"
12002 STO "#MBEST"
12003 RCL "#X2"
12004 STO "XF"
12005 STO "XP"
12006 RCL "#Y2"
12007 STO "F0"
12008 STO "P0"
12009 SF 25
12010 XEQ IND "#extrn"
12011 STO "XF"
12012 XEQ 71
12013 RCL "XF"
12014 STO "#X"
12015 RCL "F0"
12016 STO "#Y"
12017 GTO 06
12018▸LBL 01
12019 RCL "#XBEST"
12020 0
12021 ENTER
12022 COMPLEX
12023 +
12024 ENTER
12025 COMPLEX
12026 X≠0?
12027 R↓
12028 R↓
12029 STO "#X"
12030 X<> "#X2"
12031 X<> "#X1"
12032 X<> "#X0"
12033 RCL "#X2"
12034 RCL "#X1"
12035 -
12036 STO "#dX"
12037 RCL "#YBEST"
12038 0
12039 ENTER
12040 COMPLEX
12041 +
12042 ENTER
12043 COMPLEX
12044 X≠0?
12045 R↓
12046 R↓
12047 STO "#Y"
12048 X<> "#Y2"
12049 X<> "#Y1"
12050 X<> "#Y0"
12051 GTO 09
12052▸LBL 05
12053 "Regula Falsi"
12054 "Familie"
12055 "min|Y| = 109"
12056 "Sekante"
12057 CLST
12058 83
12059 RCL "#METH"
12060 X=Y?
12061 ISG ST Z
12062 STO ST X
12063 117
12064 X=Y?
12065 ISG ST T
12066 STO ST X
12067 R↓
12068 109
12069 X=Y?
12070 ISG ST T
12071 STO ST X
12072 R↑
12073 X=0?
12074 GTO 05
12075 RCL "#X1"
12076 RCL "#X1"
12077 RCL "#X2"
12078 -
12079 RCL "#Y1"
12080 RCL "#Y2"
12081 -
12082 SF 25
12083 1/X
12084 STO "#dY"
12085 FC? 25
12086 GTO 05
12087 ×
12088 RCL "#Y1"
12089 ×
12090 -
12091 STO "XF"
12092 XEQ 71
12093 1ᴇ999
12094 RCL "F0"
12095 X=Y?
12096 GTO 05
12097 STO "#Y"
12098 RCL "#X2"
12099 RCL "XF"
12100 RCL "#XBEST"
12101 RCL "F0"
12102 ABS
12103 RCL "#YBEST"
12104 ABS
12105 "Sekante"
12106 X>Y?
12107 XASTO "#MBEST"
12108 X<Y?
12109 R↑
12110 R↑
12111 STO "#XBEST"
12112 RCL "F0"
12113 RCL "#YBEST"
12114 RCL "F0"
12115 ABS
12116 RCL "#YBEST"
12117 ABS
12118 X<Y?
12119 R↑
12120 R↑
12121 STO "#YBEST"
12122 109
12123 RCL "#METH"
12124 X=Y?
12125 GTO 05
12126 117
12127 X=Y?
12128 GTO 05
12129 RCL "#Y2"
12130 RCL "F0"
12131 ×
12132 0
12133 ENTER
12134 COMPLEX
12135 +
12136 COMPLEX
12137 X<>Y
12138 X>0?
12139 GTO 02
12140 RCL "XF"
12141 STO "#X"
12142 X<> "#X1"
12143 ENTER
12144 X<> "#X2"
12145 -
12146 STO "#dX"
12147 RCL "F0"
12148 STO "#Y"
12149 X<> "#Y1"
12150 ENTER
12151 X<> "#Y2"
12152 -
12153 STO "#dY"
12154 GTO 09
12155▸LBL 02
12156 RCL "F0"
12157 RCL "#Y1"
12158 ×
12159 0
12160 ENTER
12161 COMPLEX
12162 +
12163 COMPLEX
12164 X<>Y
12165 X>0?
12166 GTO 02
12167 RCL "XF"
12168 ENTER
12169 STO "#X"
12170 X<> "#X2"
12171 -
12172 STO "#dX"
12173 RCL "F0"
12174 ENTER
12175 STO "#Y"
12176 X<> "#Y2"
12177 -
12178 STO "#dY"
12179 GTO 09
12180▸LBL 02
12181 RCL "XF"
12182 ENTER
12183 STO "#X"
12184 X<> "#X1"
12185 STO "#X2"
12186 -
12187 STO "#dX"
12188 RCL "F0"
12189 ENTER
12190 X<> "#Y1"
12191 STO "#Y2"
12192 -
12193 STO "#dY"
12194 GTO 09
12195▸LBL 05
12196 "Illinois"
12197 CLST
12198 73
12199 RCL "#METH"
12200 X=Y?
12201 ISG ST Z
12202 STO ST X
12203 117
12204 X=Y?
12205 ISG ST T
12206 STO ST X
12207 R↓
12208 109
12209 X=Y?
12210 ISG ST T
12211 STO ST X
12212 R↑
12213 X=0?
12214 GTO 05
12215 RCL "#X2"
12216 RCL "#X2"
12217 RCL "#X1"
12218 -
12219 RCL "#Y2"
12220 RCL "#Y1"
12221 -
12222 STO "#dY"
12223 SF 25
12224 1/X
12225 FC? 25
12226 GTO 05
12227 ×
12228 RCL "#Y2"
12229 ×
12230 -
12231 STO "#X"
12232 STO "XF"
12233 XEQ 71
12234 1ᴇ999
12235 RCL "F0"
12236 X=Y?
12237 GTO 05
12238 STO "#Y"
12239 RCL "#X"
12240 RCL "#XBEST"
12241 RCL "#Y"
12242 ABS
12243 RCL "#YBEST"
12244 ABS
12245 "Illinois"
12246 X>Y?
12247 XASTO "#MBEST"
12248 X<Y?
12249 R↑
12250 R↑
12251 STO "#XBEST"
12252 RCL "#Y"
12253 RCL "#YBEST"
12254 RCL "#Y"
12255 ABS
12256 RCL "#YBEST"
12257 ABS
12258 X<Y?
12259 R↑
12260 R↑
12261 STO "#YBEST"
12262 109
12263 RCL "#METH"
12264 X=Y?
12265 GTO 05
12266 117
12267 X=Y?
12268 GTO 05
12269 RCL "#Y"
12270 RCL "#Y2"
12271 ×
12272 0
12273 ENTER
12274 COMPLEX
12275 +
12276 COMPLEX
12277 X<>Y
12278 X≥0?
12279 GTO 02
12280 RCL "#X"
12281 ENTER
12282 X<> "#X2"
12283 STO "#X1"
12284 -
12285 STO "#dX"
12286 RCL "#Y"
12287 ENTER
12288 X<> "#Y2"
12289 STO "#Y1"
12290 -
12291 STO "#dY"
12292 GTO 09
12293▸LBL 02
12294 0.5
12295 STO× "#Y1"
12296 RCL "#X"
12297 X<> "#X2"
12298 STO "#X1"
12299 RCL "#X2"
12300 RCL "#X1"
12301 -
12302 STO "#dX"
12303 RCL "#Y"
12304 X<> "#Y2"
12305 STO "#Y1"
12306 RCL "#Y2"
12307 RCL "#Y1"
12308 -
12309 STO "#dY"
12310 GTO 09
12311▸LBL 05
12312 "Pegasus"
12313 CLST
12314 80
12315 RCL "#METH"
12316 X=Y?
12317 ISG ST Z
12318 STO ST X
12319 117
12320 X=Y?
12321 ISG ST T
12322 STO ST X
12323 R↓
12324 109
12325 X=Y?
12326 ISG ST T
12327 STO ST X
12328 R↑
12329 X=0?
12330 GTO 05
12331 RCL "#X2"
12332 RCL "#X2"
12333 RCL "#X1"
12334 -
12335 RCL "#Y2"
12336 RCL "#Y1"
12337 -
12338 STO "#dY"
12339 SF 25
12340 1/X
12341 FC? 25
12342 GTO 05
12343 ×
12344 RCL "#Y2"
12345 ×
12346 -
12347 STO "#X"
12348 STO "XF"
12349 XEQ 71
12350 1ᴇ999
12351 RCL "F0"
12352 X=Y?
12353 GTO 05
12354 STO "#Y"
12355 RCL "#X"
12356 RCL "#XBEST"
12357 RCL "#Y"
12358 ABS
12359 RCL "#YBEST"
12360 ABS
12361 "Pegasus"
12362 X>Y?
12363 XASTO "#MBEST"
12364 X<Y?
12365 R↑
12366 R↑
12367 STO "#XBEST"
12368 RCL "#Y"
12369 RCL "#YBEST"
12370 RCL "#Y"
12371 ABS
12372 RCL "#YBEST"
12373 ABS
12374 X<Y?
12375 R↑
12376 R↑
12377 STO "#YBEST"
12378 109
12379 RCL "#METH"
12380 X=Y?
12381 GTO 05
12382 117
12383 X=Y?
12384 GTO 05
12385 RCL "#Y"
12386 RCL "#Y2"
12387 ×
12388 0
12389 ENTER
12390 COMPLEX
12391 +
12392 COMPLEX
12393 X<>Y
12394 X≥0?
12395 GTO 02
12396 RCL "#X"
12397 ENTER
12398 X<> "#X2"
12399 STO "#X1"
12400 -
12401 STO "#dX"
12402 RCL "#Y"
12403 ENTER
12404 X<> "#Y2"
12405 STO "#Y1"
12406 -
12407 STO "#dY"
12408 GTO 09
12409▸LBL 02
12410 RCL "#Y2"
12411 RCL "#Y2"
12412 RCL "#Y1"
12413 +
12414 SF 25
12415 1/X
12416 ×
12417 FC? 25
12418 0.5
12419 STO× "#Y1"
12420 RCL "#X"
12421 X<> "#X2"
12422 STO "#X1"
12423 RCL "#X2"
12424 RCL "#X1"
12425 -
12426 STO "#dX"
12427 RCL "#Y"
12428 X<> "#Y2"
12429 STO "#Y1"
12430 RCL "#Y2"
12431 RCL "#Y1"
12432 -
12433 STO "#dY"
12434 GTO 09
12435▸LBL 05
12436 "And.-BjÖrck"
12437 CLST
12438 65
12439 RCL "#METH"
12440 X=Y?
12441 ISG ST Z
12442 STO ST X
12443 117
12444 X=Y?
12445 ISG ST T
12446 STO ST X
12447 R↓
12448 109
12449 X=Y?
12450 ISG ST T
12451 STO ST X
12452 R↑
12453 X=0?
12454 GTO 05
12455 RCL "#X2"
12456 RCL "#X2"
12457 RCL "#X1"
12458 -
12459 RCL "#Y2"
12460 RCL "#Y1"
12461 -
12462 STO "#dY"
12463 SF 25
12464 1/X
12465 FC? 25
12466 GTO 05
12467 ×
12468 RCL "#Y2"
12469 ×
12470 -
12471 STO "#X"
12472 STO "XF"
12473 XEQ 71
12474 1ᴇ999
12475 RCL "F0"
12476 X=Y?
12477 GTO 05
12478 STO "#Y"
12479 RCL "#X"
12480 RCL "#XBEST"
12481 RCL "#Y"
12482 ABS
12483 RCL "#YBEST"
12484 ABS
12485 "And.-BjÖrck"
12486 X>Y?
12487 XASTO "#MBEST"
12488 X<Y?
12489 R↑
12490 R↑
12491 STO "#XBEST"
12492 RCL "#Y"
12493 RCL "#YBEST"
12494 RCL "#Y"
12495 ABS
12496 RCL "#YBEST"
12497 ABS
12498 X<Y?
12499 R↑
12500 R↑
12501 STO "#YBEST"
12502 109
12503 RCL "#METH"
12504 X=Y?
12505 GTO 05
12506 117
12507 X=Y?
12508 GTO 05
12509 RCL "#Y"
12510 RCL "#Y2"
12511 ×
12512 0
12513 ENTER
12514 COMPLEX
12515 +
12516 COMPLEX
12517 X<>Y
12518 X≥0?
12519 GTO 02
12520 RCL "#X"
12521 ENTER
12522 X<> "#X2"
12523 STO "#X1"
12524 -
12525 STO "#dX"
12526 RCL "#Y"
12527 ENTER
12528 X<> "#Y2"
12529 STO "#Y1"
12530 -
12531 STO "#dY"
12532 GTO 09
12533▸LBL 02
12534 1
12535 RCL "#Y2"
12536 RCL "#Y1"
12537 SF 25
12538 ÷
12539 FC? 25
12540 GTO 05
12541 -
12542 X≤0?
12543 0.5
12544 STO× "#Y1"
12545 RCL "#X"
12546 X<> "#X2"
12547 STO "#X1"
12548 RCL "#X2"
12549 RCL "#X1"
12550 -
12551 STO "#dX"
12552 RCL "#Y"
12553 X<> "#Y2"
12554 STO "#Y1"
12555 RCL "#Y2"
12556 RCL "#Y1"
12557 -
12558 STO "#dY"
12559 GTO 09
12560▸LBL 05
12561 "Dekker"
12562 CLST
12563 68
12564 RCL "#METH"
12565 X=Y?
12566 ISG ST Z
12567 STO ST X
12568 117
12569 X=Y?
12570 ISG ST T
12571 STO ST X
12572 R↓
12573 109
12574 X=Y?
12575 ISG ST T
12576 STO ST X
12577 R↑
12578 X=0?
12579 GTO 05
12580 RCL "#X2"
12581 RCL "#X1"
12582 +
12583 2
12584 ÷
12585 STO "#X"
12586 STO "XF"
12587 XEQ 71
12588 RCL "F0"
12589 STO "#Y"
12590 RCL "XF"
12591 RCL "#XBEST"
12592 RCL "F0"
12593 ABS
12594 RCL "#YBEST"
12595 ABS
12596 "Dekker"
12597 X>Y?
12598 XASTO "#MBEST"
12599 X<Y?
12600 R↑
12601 R↑
12602 STO "#XBEST"
12603 RCL "F0"
12604 RCL "#YBEST"
12605 RCL "F0"
12606 ABS
12607 RCL "#YBEST"
12608 ABS
12609 X<Y?
12610 R↑
12611 R↑
12612 STO "#YBEST"
12613 RCL "#X2"
12614 RCL "#X2"
12615 RCL "#X1"
12616 -
12617 RCL "#Y2"
12618 RCL "#Y1"
12619 -
12620 SF 25
12621 1/X
12622 STO "#dY"
12623 FC? 25
12624 GTO 05
12625 ×
12626 RCL "#Y2"
12627 ×
12628 -
12629 STO "#X0"
12630 STO "XF"
12631 XEQ 71
12632 RCL "F0"
12633 STO "#Y0"
12634 RCL "#X0"
12635 RCL "#XBEST"
12636 RCL "#Y0"
12637 ABS
12638 RCL "#YBEST"
12639 ABS
12640 "Dekker"
12641 X>Y?
12642 XASTO "#MBEST"
12643 X<Y?
12644 R↑
12645 R↑
12646 STO "#XBEST"
12647 RCL "#Y0"
12648 RCL "#YBEST"
12649 RCL "#Y0"
12650 ABS
12651 RCL "#YBEST"
12652 ABS
12653 X<Y?
12654 R↑
12655 R↑
12656 STO "#YBEST"
12657 1ᴇ999
12658 X=Y?
12659 GTO 05
12660 109
12661 RCL "#METH"
12662 X=Y?
12663 GTO 05
12664 117
12665 X=Y?
12666 GTO 05
12667 RCL "#X"
12668 RCL "#X0"
12669 RCL "#Y"
12670 ABS
12671 RCL "#Y0"
12672 ABS
12673 X<Y?
12674 R↑
12675 R↑
12676 STO "#X"
12677 RCL "#Y"
12678 RCL "#Y0"
12679 RCL "#Y"
12680 ABS
12681 RCL "#Y0"
12682 ABS
12683 X<Y?
12684 R↑
12685 R↑
12686 STO "#Y"
12687 RCL "#Y2"
12688 RCL "#Y1"
12689 ×
12690 0
12691 ENTER
12692 COMPLEX
12693 +
12694 COMPLEX
12695 R↓
12696 X>0?
12697 GTO 06
12698 RCL "#Y"
12699 0
12700 ENTER
12701 COMPLEX
12702 +
12703 RCL "#Y1"
12704 LASTX
12705 +
12706 COMPLEX
12707 R↓
12708 X<>Y
12709 COMPLEX
12710 R↓
12711 ×
12712 X>0?
12713 GTO 02
12714 RCL "#X"
12715 ENTER
12716 X<> "#X1"
12717 -
12718 STO "#dX"
12719 RCL "#Y"
12720 ENTER
12721 X<> "#Y1"
12722 -
12723 STO "#dY"
12724 GTO 09
12725▸LBL 02
12726 RCL "#X"
12727 ENTER
12728 X<> "#X2"
12729 -
12730 STO "#dX"
12731 RCL "#Y"
12732 ENTER
12733 X<> "#Y2"
12734 -
12735 STO "#dY"
12736 GTO 09
12737▸LBL 05
12738 "Ridders"
12739 CLST
12740 82
12741 RCL "#METH"
12742 X=Y?
12743 ISG ST Z
12744 STO ST X
12745 117
12746 X=Y?
12747 ISG ST T
12748 STO ST X
12749 R↓
12750 109
12751 X=Y?
12752 ISG ST T
12753 STO ST X
12754 R↑
12755 X=0?
12756 GTO 05
12757 RCL "#X2"
12758 RCL "#X1"
12759 +
12760 2
12761 ÷
12762 STO "#X"
12763 STO "XF"
12764 XEQ 71
12765 RCL "F0"
12766 STO "#Y"
12767 RCL "XF"
12768 RCL "#XBEST"
12769 RCL "F0"
12770 ABS
12771 RCL "#YBEST"
12772 ABS
12773 "Ridders"
12774 X>Y?
12775 XASTO "#MBEST"
12776 X<Y?
12777 R↑
12778 R↑
12779 STO "#XBEST"
12780 RCL "F0"
12781 RCL "#YBEST"
12782 RCL "F0"
12783 ABS
12784 RCL "#YBEST"
12785 ABS
12786 X<Y?
12787 R↑
12788 R↑
12789 STO "#YBEST"
12790 RCL "#Y"
12791 X↑2
12792 RCL "#Y2"
12793 RCL "#Y1"
12794 ×
12795 -
12796 REAL?
12797 SQRT
12798 SF 25
12799 1/X
12800 RCL "#Y"
12801 ×
12802 RCL "#Y2"
12803 RCL "#Y1"
12804 ×
12805 0
12806 ENTER
12807 COMPLEX
12808 +
12809 COMPLEX
12810 R↓
12811 X≠0?
12812 SIGN
12813 +/-
12814 0
12815 ENTER
12816 COMPLEX
12817 RCL "#Y2"
12818 +
12819 COMPLEX
12820 R↓
12821 X≠0?
12822 SIGN
12823 ×
12824 ×
12825 RCL "#X"
12826 RCL "#X2"
12827 -
12828 ×
12829 RCL "#X"
12830 +
12831 STO "#X0"
12832 STO "XF"
12833 XEQ 71
12834 RCL "F0"
12835 STO "#Y0"
12836 RCL "#X0"
12837 RCL "#XBEST"
12838 RCL "#Y0"
12839 ABS
12840 RCL "#YBEST"
12841 ABS
12842 "Ridders"
12843 X>Y?
12844 XASTO "#MBEST"
12845 X<Y?
12846 R↑
12847 R↑
12848 STO "#XBEST"
12849 RCL "#Y0"
12850 RCL "#YBEST"
12851 RCL "#Y0"
12852 ABS
12853 RCL "#YBEST"
12854 ABS
12855 X<Y?
12856 R↑
12857 R↑
12858 STO "#YBEST"
12859 1ᴇ999
12860 X=Y?
12861 GTO 05
12862 109
12863 RCL "#METH"
12864 X=Y?
12865 GTO 05
12866 117
12867 X=Y?
12868 GTO 05
12869 RCL "#X"
12870 RCL "#X0"
12871 RCL "#Y"
12872 ABS
12873 RCL "#Y0"
12874 ABS
12875 X<Y?
12876 R↑
12877 R↑
12878 STO "#X"
12879 RCL "#Y"
12880 RCL "#Y0"
12881 RCL "#Y"
12882 ABS
12883 RCL "#Y0"
12884 ABS
12885 X<Y?
12886 R↑
12887 R↑
12888 STO "#Y"
12889 RCL "#Y2"
12890 RCL "#Y1"
12891 ×
12892 0
12893 ENTER
12894 COMPLEX
12895 +
12896 COMPLEX
12897 R↓
12898 X>0?
12899 GTO 06
12900 RCL "#Y"
12901 0
12902 ENTER
12903 COMPLEX
12904 +
12905 RCL "#Y1"
12906 LASTX
12907 +
12908 COMPLEX
12909 R↓
12910 X<>Y
12911 COMPLEX
12912 R↓
12913 ×
12914 X>0?
12915 GTO 02
12916 RCL "#X"
12917 ENTER
12918 X<> "#X1"
12919 -
12920 STO "#dX"
12921 RCL "#Y"
12922 ENTER
12923 X<> "#Y1"
12924 -
12925 STO "#dY"
12926 GTO 09
12927▸LBL 02
12928 RCL "#X"
12929 ENTER
12930 X<> "#X2"
12931 -
12932 STO "#dX"
12933 RCL "#Y"
12934 ENTER
12935 X<> "#Y2"
12936 -
12937 STO "#dY"
12938 GTO 09
12939▸LBL 05
12940 RCL "#XBEST"
12941 STO "#X"
12942 RCL "#YBEST"
12943 STO "#Y"
12944▸LBL 06
12945 RCL "#X"
12946 X<> "#X2"
12947 X<> "#X1"
12948 STO "#X0"
12949 RCL "#X2"
12950 RCL "#X1"
12951 -
12952 ABS
12953 STO "#dX"
12954 RCL "#Y"
12955 X<> "#Y2"
12956 X<> "#Y1"
12957 STO "#Y0"
12958 RCL "#Y2"
12959 RCL "#Y1"
12960 -
12961 ABS
12962 STO "#dY"
12963▸LBL 09
12964 XEQ 54
12965 "0"
12966 1
12967 0
12968 SF 25
12969 RCL "#dY"
12970 X=Y?
12971 "5"
12972 RCL "#IT"
12973 RCL "#CNT"
12974 1
12975 +
12976 STO "#CNT"
12977 X≥Y?
12978 "4"
12979 RCL "#XDIFF"
12980 RCL "#dX"
12981 ABS
12982 X≤Y?
12983 "3"
12984 RCL "#YDIFF"
12985 RCL "#Y"
12986 ABS
12987 X≤Y?
12988 "2"
12989 X=0?
12990 "1"
12991 1ᴇ999
12992 X=Y?
12993 "6"
12994 CLST
12995 ANUM
12996 X=0?
12997 GTO 53
12998 STO "RES-TYP"
12999 1
13000 X=Y?
13001 "Nullstelle X "
13002 X=Y?
13003 ├"exakt    "
13004 STO+ ST X
13005 X=Y?
13006 "Nullstelle X "
13007 X=Y?
13008 ├"approx.  "
13009 1
13010 +
13011 X=Y?
13012 "Iterierte: |d"
13013 X=Y?
13014 ├"X| ≤ min "
13015 1
13016 +
13017 X=Y?
13018 "Iterationen #"
13019 X=Y?
13020 ├"CNT ≥ max"
13021 1
13022 +
13023 X=Y?
13024 "STOP: Division"
13025 X=Y?
13026 ├" durch 0"
13027 1
13028 +
13029 X=Y?
13030 "STOP: f(X) "
13031 X=Y?
13032 ├"undefiniert"
13033 XASTO "#MSG"
13034 RCL "RES-TYP"
13035 CLV "RES-TYP"
13036 2
13037 X≥Y?
13038 GTO 55
13039 GTO 57
13040▸LBL 54
13041 "PRT Xn (SOLVE)"
13042 CLST
13043 SF 25
13044 RCL "#Xn+1"
13045 FS? 25
13046 RTN
13047 RCL "#PRTYN"
13048 X≤0?
13049 RTN
13050 ADV
13051 RCL "#CNT"
13052 "#CNT: i="
13053 AIP
13054 ├" "
13055 ARCL "#MBEST"
13056 PRA
13057 RCL "#Y"
13058 STO "Yi "
13059 PRV "Yi "
13060 CLV "Yi "
13061 RCL "#Y"
13062 ABS
13063 STO "|Yi| "
13064 RCL "#Y"
13065 CPX?
13066 PRV "|Yi| "
13067 CLV "|Yi| "
13068 RCL "#X"
13069 STO "Xi "
13070 PRV "Xi "
13071 CLV "Xi "
13072 RTN
13073▸LBL 55
13074 "NULLSTELLE "
13075 ├"BERECHNET"
13076 RCL "#YBEST"
13077 STO "#Y2"
13078 RCL "#XBEST"
13079 STO "#X2"
13080 REAL?
13081 GTO 56
13082 COMPLEX
13083 X<>Y
13084 STO "#X1"
13085 X<>Y
13086 0
13087 X<>Y
13088 COMPLEX
13089 STO "#X0"
13090 STO "XF"
13091 XEQ 71
13092 RCL "F0"
13093 STO "#Y0"
13094 RCL "#X1"
13095 STO "XF"
13096 XEQ 71
13097 RCL "F0"
13098 STO "#Y1"
13099 RCL "#X2"
13100 RCL "#X1"
13101 RCL "#Y2"
13102 ABS
13103 RCL "#Y1"
13104 ABS
13105 X<Y?
13106 R↑
13107 R↑
13108 STO "#X2"
13109 RCL "#Y2"
13110 RCL "#Y1"
13111 RCL "#Y2"
13112 ABS
13113 RCL "#Y1"
13114 ABS
13115 X<Y?
13116 R↑
13117 R↑
13118 STO "#Y2"
13119 RCL "#X2"
13120 RCL "#X0"
13121 RCL "#Y2"
13122 ABS
13123 RCL "#Y0"
13124 ABS
13125 X<Y?
13126 R↑
13127 R↑
13128 STO "#X2"
13129 STO "#X"
13130 RCL "#Y2"
13131 RCL "#Y0"
13132 RCL "#Y2"
13133 ABS
13134 RCL "#Y0"
13135 ABS
13136 X<Y?
13137 R↑
13138 R↑
13139 STO "#Y2"
13140 STO "#Y"
13141▸LBL 56
13142 RCL "#PRTYN"
13143 X<0?
13144 GTO 57
13145 ADV
13146 RCL "#CNT"
13147 "#CNT: i="
13148 AIP
13149 ├" "
13150 ARCL "#MBEST"
13151 PRA
13152 RCL "#Y"
13153 STO "f(X) "
13154 PRV "f(X) "
13155 CLV "f(X) "
13156 "|f(X)| "
13157 XASTO ST X
13158 RCL "#Y"
13159 ABS
13160 STO "|f(X)| "
13161 RCL "#Y"
13162 CPX?
13163 PRV "|f(X)| "
13164 CLV "|f(X)| "
13165 RCL "#X"
13166 STO "X "
13167 PRV "X "
13168 CLV "X "
13169▸LBL 57
13170 CLST
13171 SF 25
13172 RCL "#Xn+1"
13173 X>0?
13174 GTO 06
13175 CLV "#Xn+1"
13176 "SHOW"
13177 KEY 1 GTO 02
13178 "PRT"
13179 KEY 2 GTO 04
13180 CLA
13181 KEY 3 GTO 57
13182 "Xn+1"
13183 1ᴇ999
13184 RCL "#dX"
13185 X=Y?
13186 CLA
13187 KEY 4 GTO 06
13188 CLA
13189 KEY 5 GTO 57
13190 "BACK"
13191 KEY 6 GTO 07
13192 KEY 7 GTO 57
13193 KEY 8 GTO 57
13194 KEY 9 GTO 98
13195 CLA
13196 ARCL "#MSG"
13197 ├"#CNT  "
13198 RCL "#Y"
13199 CPX?
13200 ├"|dX|  |f(X)|"
13201 REAL?
13202 ├"  dX    f(X)"
13203 ├"   X"
13204 RCL "#CNT"
13205 RCL "#dX"
13206 0
13207 ENTER
13208 COMPLEX
13209 +
13210 ENTER
13211 COMPLEX
13212 R↓
13213 X=0?
13214 10↑X
13215 SIGN
13216 X<>Y
13217 ABS
13218 ×
13219 RCL "#Y"
13220 CPX?
13221 ABS
13222 RCL "#X"
13223 MENU
13224 PROMPT
13225 GTO 57
13226▸LBL 02
13227 "X = "
13228 RCL "#X2"
13229 CPX?
13230 GTO 03
13231 AIP
13232 ├","
13233 ABS
13234 STO ST Y
13235▸LBL 58
13236 X<>Y
13237 FP
13238 X=0?
13239 GTO 02
13240 10
13241 ×
13242 AIP
13243 ALENG
13244 44
13245 -
13246 X<0?
13247 GTO 58
13248▸LBL 02
13249 RCL "#CNT"
13250 RCL "#X2"
13251 RCL "#X1"
13252 -
13253 ABS
13254 RCL "#Y2"
13255 CPX?
13256 ABS
13257 RCL "#X2"
13258 PROMPT
13259▸LBL 02
13260 GTO 57
13261▸LBL 03
13262 22
13263 STO "#LDSP"
13264 RCL "#X2"
13265 "Xim="
13266 COMPLEX
13267 AIP
13268 ├","
13269 ABS
13270 STO ST Y
13271▸LBL 59
13272 X<>Y
13273 FP
13274 X=0?
13275 GTO 03
13276 10
13277 ×
13278 AIP
13279 ALENG
13280 22
13281 -
13282 X<0?
13283 GTO 59
13284▸LBL 03
13285 XEQ 64
13286 ├"Xre="
13287 RCL "#X2"
13288 COMPLEX
13289 X<>Y
13290 AIP
13291 ├","
13292 ABS
13293 STO ST Y
13294▸LBL 60
13295 X<>Y
13296 FP
13297 X=0?
13298 GTO 03
13299 10
13300 ×
13301 AIP
13302 ALENG
13303 44
13304 -
13305 X<0?
13306 GTO 60
13307▸LBL 03
13308 RCL "#CNT"
13309 RCL "#X2"
13310 RCL "#X1"
13311 -
13312 ABS
13313 RCL "#Y2"
13314 CPX?
13315 ABS
13316 RCL "#X2"
13317 PROMPT
13318▸LBL 02
13319 GTO 57
13320▸LBL 04
13321 ADV
13322 RCL "#CNT"
13323 "#CNT: i="
13324 AIP
13325 ├" "
13326 ARCL "#MBEST"
13327 PRA
13328 RCL "#Y2"
13329 STO "f(X) "
13330 PRV "f(X) "
13331 CLV "f(X) "
13332 RCL "#Y2"
13333 ABS
13334 STO "|f(X)| "
13335 RCL "#Y2"
13336 CPX?
13337 PRV "|f(X)| "
13338 CLV "|f(X)| "
13339 RCL "#X2"
13340 CPX?
13341 GTO 05
13342 FC? 64
13343 STO "X "
13344 FC? 64
13345 PRV "X "
13346 FC? 64
13347 CLV "X "
13348 FC? 64
13349 GTO 57
13350 "X = "
13351 AIP
13352 ├","
13353 ABS
13354 STO ST Y
13355▸LBL 61
13356 X<>Y
13357 FP
13358 X=0?
13359 GTO 04
13360 10
13361 ×
13362 AIP
13363 ALENG
13364 44
13365 -
13366 X<0?
13367 GTO 61
13368▸LBL 04
13369 PRA
13370 GTO 57
13371▸LBL 05
13372 RCL "#X2"
13373 COMPLEX
13374 X<>Y
13375 R↓
13376 FC? 64
13377 STO "X_Im "
13378 FC? 64
13379 PRV "X_Im "
13380 FC? 64
13381 CLV "X_Im "
13382 FC? 64
13383 GTO 05
13384 "X_Im = "
13385 AIP
13386 ├","
13387 ABS
13388 STO ST Y
13389▸LBL 62
13390 X<>Y
13391 FP
13392 X=0?
13393 GTO 05
13394 10
13395 ×
13396 AIP
13397 ALENG
13398 44
13399 -
13400 X<0?
13401 GTO 62
13402▸LBL 05
13403 FS? 64
13404 PRA
13405 RCL "#X2"
13406 COMPLEX
13407 R↓
13408 FC? 64
13409 STO "X_Re "
13410 FC? 64
13411 PRV "X_Re "
13412 FC? 64
13413 CLV "X_Re "
13414 FC? 64
13415 GTO 57
13416 "X_Re = "
13417 AIP
13418 ├","
13419 ABS
13420 STO ST Y
13421▸LBL 63
13422 X<>Y
13423 FP
13424 X=0?
13425 GTO 05
13426 10
13427 ×
13428 AIP
13429 ALENG
13430 44
13431 -
13432 X<0?
13433 GTO 63
13434▸LBL 05
13435 PRA
13436 GTO 57
13437▸LBL 06
13438 "Xn+1 SCHRITTe"
13439 FS? 64
13440 GTO 06
13441 1ᴇ999
13442 RCL "#dX"
13443 X=Y?
13444 GTO 57
13445 1
13446 STO "#Xn+1"
13447▸LBL 06
13448 CPX?
13449 GTO 57
13450 1ᴇ999
13451 RCL "#dX"
13452 X=Y?
13453 GTO 57
13454 R↓
13455 R↓
13456 SF 25
13457 RCL "#Xn+1"
13458 X≤0?
13459 GTO 57
13460 IP
13461 1
13462 -
13463 STO "#Xn+1"
13464 X<0?
13465 GTO 57
13466 GTO 53
13467▸LBL 07
13468 CLV "#extrn"
13469 CLV "#Xn+1"
13470 GTO 51
13471▸LBL 64
13472 ALENG
13473 RCL "#LDSP"
13474 -
13475 X≥0?
13476 RTN
13477 ├" "
13478 GTO 64
13479▸LBL 09
13480 RCL "XF"
13481 X=0?
13482 0.1
13483 1.001
13484 ×
13485 STO "XF"
13486 XEQ 73
13487 RTN
13488▸LBL 65
13489 "INIT MENU DERIV"
13490 XEQ 91
13491 CLV "XF"
13492 "D"
13493 ASTO "#-cmd-#"
13494 "INPUT: X=?"
13495 XASTO "#MSG"
13496 1ᴇ-4
13497 SF 25
13498 RCL "#H"
13499 STO "#H"
13500 0
13501 SF 25
13502 RCL "#DERIV"
13503 STO "#DERIV"
13504 CLA
13505 SF 25
13506 ARCL "#CENTER"
13507 FC? 25
13508 "←X→"
13509 ASTO "#CENTER"
13510 1
13511 SF 25
13512 RCL "#NODE"
13513 STO "#NODE"
13514 CLMENU
13515 "f"
13516 RCL "#DERIV"
13517 1
13518 X=Y?
13519 ├"'"
13520 STO+ ST X
13521 X=Y?
13522 ├"''"
13523 ISG ST X
13524 STO ST X
13525 X=Y?
13526 ├"'''"
13527 X<>Y
13528 X>Y?
13529 ├"("
13530 X>Y?
13531 AIP
13532 X>Y?
13533 ├")"
13534 KEY 1 GTO 01
13535 "X=?"
13536 KEY 2 GTO 67
13537 CLA
13538 ARCL "#CENTER"
13539 KEY 3 GTO 02
13540 CLA
13541 "<"
13542 RCL "#NODE"
13543 AIP
13544 ├">"
13545 KEY 4 GTO 03
13546 "h=E"
13547 RCL "#H"
13548 LOG
13549 AIP
13550 KEY 5 GTO 04
13551 "BACK"
13552 KEY 6 GTO 05
13553 CLA
13554 KEY 7 GTO 65
13555 KEY 8 GTO 65
13556 KEY 9 GTO 98
13557 CLA
13558 ARCL "#MSG"
13559 CLST
13560 MENU
13561 PROMPT
13562 GTO 65
13563▸LBL 66
13564 CF 22
13565 CLMENU
13566 "f"
13567 RCL "#DERIV"
13568 1
13569 X=Y?
13570 ├"'"
13571 STO+ ST X
13572 X=Y?
13573 ├"''"
13574 ISG ST X
13575 STO ST X
13576 X=Y?
13577 ├"'''"
13578 X<>Y
13579 X>Y?
13580 ├"("
13581 X>Y?
13582 AIP
13583 X>Y?
13584 ├")"
13585 R↓
13586 R↓
13587 KEY 1 GTO 01
13588 CLA
13589 "X:ST.X"
13590 KEY 2 GTO 67
13591 CLA
13592 ARCL "#CENTER"
13593 KEY 3 GTO 02
13594 CLA
13595 "<"
13596 RCL "#NODE"
13597 AIP
13598 ├">"
13599 R↓
13600 KEY 4 GTO 03
13601 "h=E"
13602 RCL "#H"
13603 LOG
13604 AIP
13605 KEY 5 GTO 04
13606 CLA
13607 "BACK"
13608 KEY 6 GTO 05
13609 CLA
13610 KEY 7 GTO 66
13611 KEY 8 GTO 66
13612 KEY 9 GTO 98
13613 MENU
13614 CLA
13615 "h  |err|  f"
13616 RCL "#DERIV"
13617 1
13618 X=Y?
13619 ├"'"
13620 STO+ ST X
13621 X=Y?
13622 ├"""
13623 1
13624 +
13625 X=Y?
13626 ├"'''"
13627 X<>Y
13628 X>Y?
13629 ├"("
13630 X>Y?
13631 AIP
13632 X>Y?
13633 ├")"
13634 ├"(X)   X"
13635 XASTO "#MSG"
13636 SF 25
13637 RCL "#H"
13638 SF 25
13639 RCL "#DDELTA"
13640 SF 25
13641 RCL "#DIFFQ"
13642 "undef."
13643 FC? 25
13644 XASTO ST X
13645 FC? 25
13646 ENTER
13647 FC? 25
13648 ENTER
13649 FC? 25
13650 ENTER
13651 RCL "#X"
13652 CLA
13653 ARCL "#MSG"
13654 PROMPT
13655 GTO 66
13656▸LBL 01
13657 8
13658 RCL "#DERIV"
13659 1
13660 FS? 64
13661 +/-
13662 +
13663 X>Y?
13664 CLX
13665 X<0?
13666 8
13667 STO "#DERIV"
13668 X=0?
13669 1
13670 STO "#NODE"
13671 CLA
13672 ARCL "#MSG"
13673 2
13674 AROT
13675 ATOX
13676 80
13677 X=Y?
13678 GTO 65
13679 RCL "#X"
13680▸LBL 67
13681 0
13682 SF 25
13683 +
13684 FC? 25
13685 CLST
13686 FC? 25
13687 GTO 65
13688 STO "XF"
13689 STO "#X"
13690 RCL "#DERIV"
13691 X=0?
13692 XEQ 73
13693 FC? 25
13694 GTO 66
13695 STO "#DIFFQ"
13696 RCL "#DERIV"
13697 X=0?
13698 STO "#DDELTA"
13699 X=0?
13700 GTO 66
13701 "EQN"
13702 RCL "#DERIV"
13703 AIP
13704 ASTO ST X
13705 SF 25
13706 RCL IND ST X
13707 FC? 25
13708 GTO 01
13709 RCL "XF"
13710 STO "#"
13711 ASTO ST X
13712 RCL IND ST X
13713 SF 25
13714 PARSE
13715 FC? 25
13716 GTO 01
13717 EVAL
13718 STO "#DIFFQ"
13719 "exact"
13720 ASTO "#DDELTA"
13721 GTO 66
13722▸LBL 01
13723 INDEX "#HPFX"
13724 I+
13725 XEQ 69
13726 GTO 66
13727▸LBL 02
13728 CLA
13729 ARCL "#CENTER"
13730 ATOX
13731 ATOX
13732 +
13733 ATOX
13734 +
13735 135
13736 X>Y?
13737 " X→"
13738 X=Y?
13739 "←X "
13740 X<Y?
13741 "←X→"
13742 ASTO "#CENTER"
13743 CLA
13744 ARCL "#MSG"
13745 2
13746 AROT
13747 ATOX
13748 80
13749 X=Y?
13750 GTO 65
13751 RCL "#X"
13752 GTO 67
13753▸LBL 03
13754 CLX
13755 STO "#MAX"
13756 99
13757 STO "#MIN"
13758 INDEX "#HPFX"
13759 I+
13760▸LBL 68
13761 RCL "#DERIV"
13762 I+
13763 RCLEL
13764 X=0?
13765 GTO 01
13766 X≠Y?
13767 GTO 68
13768 RCL "#MAX"
13769 J+
13770 J+
13771 RCLEL
13772 X>Y?
13773 STO "#MAX"
13774 RCL "#MIN"
13775 X<>Y
13776 X<Y?
13777 STO "#MIN"
13778 J-
13779 J-
13780 GTO 68
13781▸LBL 01
13782 RCL "#MIN"
13783 RCL "#MAX"
13784 RCL "#NODE"
13785 1
13786 +
13787 X>Y?
13788 RCL ST Z
13789 99
13790 X<>Y
13791 X=Y?
13792 1
13793 STO "#NODE"
13794 SF 25
13795 RCL "#X"
13796 FC? 25
13797 GTO 65
13798 GTO 67
13799▸LBL 04
13800 FS? 64
13801 1ᴇ-4
13802 X≤0?
13803 RCL "#H"
13804 STO "#H"
13805 CLA
13806 ARCL "#MSG"
13807 2
13808 AROT
13809 ATOX
13810 80
13811 X=Y?
13812 GTO 65
13813 RCL "#X"
13814 GTO 67
13815▸LBL 05
13816 XEQ 96
13817 GTO 10
13818▸LBL 69
13819 RCL "#DERIV"
13820 I+
13821 RCLEL
13822 X=0?
13823 GTO 09
13824 X≠Y?
13825 GTO 69
13826 RCL "#NODE"
13827 J+
13828 J+
13829 RCLEL
13830 X=Y?
13831 GTO 01
13832 J-
13833 J-
13834 GTO 69
13835▸LBL 01
13836 "f(n)(X) ←X→ <.>"
13837 RCLIJ
13838 X<>Y
13839 STO "#I"
13840 15
13841 STOIJ
13842 CLX
13843 STO "#DL"
13844 STO "#DR"
13845 STO "#DIFFQ"
13846 STO "#DDELTA"
13847▸LBL 70
13848 RCLIJ
13849 STO "#HPFX-J"
13850 X<>Y
13851 STO "#HPFX-I"
13852 X<>Y
13853 6
13854 X=Y?
13855 GTO 01
13856 X<>Y
13857 15
13858 X<>Y
13859 -
13860 RCL "#H"
13861 ×
13862 RCL "#X"
13863 +
13864 STO "XF"
13865 XEQ 73
13866 FC? 25
13867 GTO 09
13868 STO "F0"
13869 INDEX "#HPFX"
13870 RCL "#HPFX-I"
13871 RCL "#HPFX-J"
13872 STOIJ
13873 R↓
13874 R↓
13875 RCLEL
13876 ×
13877 STO+ "#DR"
13878 RCLIJ
13879 15
13880 X<>Y
13881 -
13882 RCL "#H"
13883 ×
13884 RCL "#X"
13885 X<>Y
13886 -
13887 STO "XF"
13888 XEQ 73
13889 FC? 25
13890 GTO 09
13891 INDEX "#HPFX"
13892 RCL "#HPFX-I"
13893 RCL "#HPFX-J"
13894 STOIJ
13895 R↓
13896 R↓
13897 RCLEL
13898 ×
13899 STO+ "#DL"
13900 J-
13901 GTO 70
13902▸LBL 01
13903 J-
13904 RCLEL
13905 RCL "#H"
13906 J-
13907 J-
13908 J-
13909 J-
13910 RCLEL
13911 Y↑X
13912 ×
13913 STO "#DIV"
13914 SF 25
13915 STO÷ "#DR"
13916 SF 25
13917 STO÷ "#DL"
13918 RCLEL
13919 2
13920 ÷
13921 FP
13922 STO+ ST X
13923 +/-
13924 X<0?
13925 STO× "#DR"
13926 RCL "#DR"
13927 RCL "#DL"
13928 -
13929 ABS
13930 CLA
13931 ARCL "#CENTER"
13932 ATOX
13933 ATOX
13934 X<>Y
13935 ATOX
13936 +
13937 47
13938 -
13939 X>0?
13940 GTO 01
13941 X=0?
13942 GTO 02
13943 RCL "#DR"
13944 RCL "#DL"
13945 +
13946 2
13947 ÷
13948 STO "#DIFFQ"
13949 RCL "#DR"
13950 RCL "#DL"
13951 -
13952 2
13953 ÷
13954 ABS
13955 STO "#DDELTA"
13956 RTN
13957▸LBL 01
13958 RCL "#DL"
13959 STO "#DIFFQ"
13960 RCL "#DR"
13961 -
13962 ABS
13963 STO "#DDELTA"
13964 RTN
13965▸LBL 02
13966 RCL "#DR"
13967 STO "#DIFFQ"
13968 RCL "#DL"
13969 -
13970 ABS
13971 STO "#DDELTA"
13972 RTN
13973▸LBL 71
13974 XEQ 73
13975 RTN
13976 FS? 25
13977 RTN
13978 1
13979 STO "#J"
13980▸LBL 72
13981 RCL "XF"
13982 X=0?
13983 0.1
13984 1.001
13985 STO+ "#J"
13986 ×
13987 STO "XF"
13988 XEQ 73
13989 FS? 25
13990 RTN
13991 RCL "#J"
13992 10
13993 X<Y?
13994 GTO 72
13995▸LBL 09
13996 CF 25
13997 "undef."
13998 ASTO ST X
13999 RTN
14000▸LBL 73
14001 "CALC "FKT(XF)""
14002 "EQN"
14003 ASTO ST X
14004 RCL "FKT"
14005 X=Y?
14006 GTO 01
14007 RCL "XF"
14008 SF 25
14009 XEQ IND "#PRGM"
14010 0
14011 ENTER
14012 COMPLEX
14013 +
14014 ENTER
14015 COMPLEX
14016 X≠0?
14017 R↓
14018 R↓
14019 STO "F0"
14020 RTN
14021▸LBL 01
14022 RCL "XF"
14023 STO "#"
14024 SF 25
14025 INDEX "EQN≠0"
14026 FS? 25
14027 GTO 02
14028 RCL "EQN-#"
14029 SF 25
14030 PARSE
14031 SF 25
14032 EVAL
14033 STO "F0"
14034 CLV "#"
14035 RTN
14036▸LBL 02
14037 J-
14038 RCLIJ
14039 X<>Y
14040 1
14041 -
14042 STO "#I"
14043▸LBL 74
14044 INDEX "EQN≠0"
14045 RCL "#I"
14046 X=0?
14047 GTO 03
14048 1
14049 STOIJ
14050 RCLEL
14051 PARSE
14052 EVAL
14053 ABS
14054 X≠0?
14055 GTO 01
14056 J+
14057 RCLEL
14058 PARSE
14059 EVAL
14060 0
14061 ENTER
14062 COMPLEX
14063 +
14064 ENTER
14065 COMPLEX
14066 X≠0?
14067 R↓
14068 R↓
14069 CPX?
14070 GTO 01
14071 X≤0?
14072 GTO 04
14073▸LBL 01
14074 1
14075 STO- "#I"
14076 GTO 74
14077▸LBL 03
14078 RCL "EQN-#"
14079 SF 25
14080 PARSE
14081 FC? 25
14082 GTO 04
14083 EVAL
14084 STO "F0"
14085 CLV "#"
14086 RTN
14087▸LBL 04
14088 CF 25
14089 1ᴇ999
14090 STO "#dY"
14091 STO "F0"
14092 CLV "#"
14093 "undef."
14094 RTN
14095▸LBL 75
14096 "PRGM"
14097 ASTO ST X
14098 RCL "FKT-TYP"
14099 X=Y?
14100 ├" = "
14101 X=Y?
14102 ARCL "#PRGM"
14103 X≠Y?
14104 "EQN: f(X) = "
14105 X≠Y?
14106 ARCL "EQNf(X)"
14107 XASTO ST X
14108 LENGTH
14109 LASTX
14110 X<>Y
14111 0
14112 X<>Y
14113 SUBSTR
14114 STO "#MSG"
14115 SF 25
14116 RCL "#XMIN"
14117 FC? 25
14118 -0.5
14119 STO "#XMIN"
14120 SF 25
14121 RCL "#XMAX"
14122 FC? 25
14123 6.5
14124 STO "#XMAX"
14125▸LBL 76
14126 CLA
14127 ARCL "FKT"
14128 KEY 1 GTO 13
14129 "←Prt"
14130 KEY 2 GTO 01
14131 "TABLE"
14132 KEY 3 GTO 03
14133 "PRGM"
14134 ASTO ST X
14135 RCL "FKT-TYP"
14136 CLA
14137 X≠Y?
14138 "CopyX"
14139 KEY 4 GTO 05
14140 "PLOT"
14141 KEY 5 GTO 06
14142 "BACK"
14143 KEY 6 GTO 02
14144 KEY 7 GTO 75
14145 KEY 8 GTO 75
14146 KEY 9 GTO 02
14147 MENU
14148 CLA
14149 SF 25
14150 ARCL "#MSG"
14151 CLST
14152 PROMPT
14153 GTO 75
14154▸LBL 01
14155 "f(X) ←Prt MENU"
14156 "PRGM"
14157 ASTO ST X
14158 RCL "FKT-TYP"
14159 X=Y?
14160 GTO 01
14161 RCL "EQNf(X)"
14162 STO "f(X)"
14163 ADV
14164 PRV "f(X)"
14165 CLV "f(X)"
14166 ADV
14167 GTO 76
14168▸LBL 01
14169 "PRP ""
14170 ARCL "FKT"
14171 ├"""
14172 XASTO "#MSG"
14173 CLA
14174 GTO 76
14175▸LBL 02
14176 XEQ 96
14177 GTO 11
14178▸LBL 03
14179 "INIT MENU 77"
14180 "T"
14181 ASTO "#-cmd-#"
14182 -0.5
14183 STO "#XMIN"
14184 6.5
14185 STO "#XMAX"
14186 RCL "#XMIN"
14187 -
14188 13
14189 ÷
14190 STO "#XINC"
14191 CLV "#TABLE"
14192▸LBL 77
14193 "TABLE MENU"
14194 CLST
14195 SF 25
14196 RCL "#TABLE"
14197 ENTER
14198 FS? 25
14199 COMPLEX
14200 FS? 25
14201 FNRM
14202 X≠0?
14203 R↓
14204 R↓
14205 CLA
14206 ARCL "FKT"
14207 KEY 1 GTO 13
14208 "Xmin"
14209 KEY 2 GTO 01
14210 "Xmax"
14211 KEY 3 GTO 02
14212 "Xinc"
14213 KEY 4 GTO 03
14214 "XEQ"
14215 KEY 5 GTO 04
14216 "BACK"
14217 KEY 6 GTO 75
14218 KEY 7 GTO 77
14219 KEY 8 GTO 77
14220 KEY 9 GTO 98
14221 RCL "#XINC"
14222 RCL "#XMAX"
14223 RCL "#XMIN"
14224 MENU
14225 "___  Xinc  "
14226 SF 25
14227 INDEX "#TABLE"
14228 FS? 25
14229 "TAB  Xinc  "
14230 ├"Xmax  Xmin"
14231 PROMPT
14232 GTO 77
14233▸LBL 01
14234 CPX?
14235 GTO 77
14236 STO "#XMIN"
14237 GTO 77
14238▸LBL 02
14239 CPX?
14240 GTO 77
14241 STO "#XMAX"
14242 GTO 77
14243▸LBL 03
14244 CPX?
14245 GTO 77
14246 X≤0?
14247 GTO 77
14248 FC? 64
14249 GTO 03
14250 FP
14251 X≠0?
14252 GTO 77
14253 LASTX
14254 RCL "#XMAX"
14255 RCL "#XMIN"
14256 -
14257 X<>Y
14258 ÷
14259 1ᴇ-10
14260 -
14261 STO "#XINC"
14262 GTO 77
14263▸LBL 03
14264 STO "#XINC"
14265 GTO 77
14266▸LBL 04
14267 "CALC TABLE"
14268 SF 25
14269 RCL "#XINC"
14270 FC? 25
14271 GTO 77
14272 ABS
14273 X=0?
14274 GTO 77
14275 STO "#XINC"
14276 RCL "#XMAX"
14277 RCL "#XMIN"
14278 X=Y?
14279 GTO 77
14280 X>Y?
14281 X<>Y
14282 STO "#XMIN"
14283 X<>Y
14284 STO "#XMAX"
14285 ADV
14286 "------------"
14287 ├"------------"
14288 PRA
14289 "Tabelle: f(X)"
14290 PRA
14291 SF 25
14292 RCL "EQNf(X)"
14293 STO "f(X)"
14294 "PRGM"
14295 ASTO ST X
14296 "f(X) = ""
14297 SF 25
14298 ARCL "#PRGM"
14299 ├"""
14300 RCL "FKT-TYP"
14301 X=Y?
14302 PRA
14303 X≠Y?
14304 PRV "f(X)"
14305 CLV "f(X)"
14306 ADV
14307 "X            "
14308 ├"f(X)    ***"
14309 PRA
14310 ADV
14311 RCL "#XMAX"
14312 RCL "#XMIN"
14313 -
14314 RCL "#XINC"
14315 ÷
14316 1.1
14317 +
14318 IP
14319 2
14320 NEWMAT
14321 ENTER
14322 COMPLEX
14323 STO "#TABLE"
14324 1
14325 STO "#TAB-#I"
14326 RCL "#XMIN"
14327 STO "XF"
14328▸LBL 78
14329 RCL "#XMAX"
14330 RCL "XF"
14331 X>Y?
14332 GTO 77
14333 CLA
14334 ARCL "XF"
14335 PRA
14336 RCL "XF"
14337 XEQ 73
14338 STO "F0"
14339 FC? 25
14340 "undef."
14341 FC? 25
14342 XASTO "F0"
14343 RCL "F0"
14344 PRX
14345 INDEX "#TABLE"
14346 RCL "#TAB-#I"
14347 1
14348 STOIJ
14349 RCL "XF"
14350 0
14351 ENTER
14352 COMPLEX
14353 +
14354 STOEL
14355 J+
14356 0
14357 ENTER
14358 COMPLEX
14359 RCL "F0"
14360 SF 25
14361 +
14362 FC? 25
14363 9ᴇ999
14364 STOEL
14365 1
14366 STO+ "#TAB-#I"
14367 RCL "#XINC"
14368 STO+ "XF"
14369 GTO 78
14370▸LBL 05
14371 "PRGM"
14372 ASTO ST X
14373 RCL "FKT-TYP"
14374 X=Y?
14375 GTO 76
14376 GTO 02
14377▸LBL 79
14378 RCL "#XMIN"
14379 RCL "#XMAX"
14380 RCL "#XMIN"
14381 ABS
14382 RCL "#XMAX"
14383 ABS
14384 X>Y?
14385 X<>Y
14386 RCL "EQNdspl"
14387 "f(X)"
14388 KEY 1 GTO 01
14389 "PRGM"
14390 ASTO ST X
14391 RCL "FKT-TYP"
14392 CLA
14393 X≠Y?
14394 "f(Z)"
14395 KEY 2 GTO 02
14396 CLA
14397 KEY 3 GTO 79
14398 KEY 4 GTO 79
14399 CLA
14400 KEY 5 GTO 79
14401 "BACK"
14402 KEY 6 GTO 03
14403 KEY 7 GTO 79
14404 KEY 8 GTO 79
14405 KEY 9 GTO 98
14406 RCL "#XMIN"
14407 RCL "#XMAX"
14408 RCL "#XMIN"
14409 ABS
14410 RCL "#XMAX"
14411 ABS
14412 +
14413 2
14414 ÷
14415 RCL "EQNdspl"
14416 CLA
14417 ARCL "#MSG"
14418 MENU
14419 PROMPT
14420 GTO 79
14421▸LBL 01
14422 "Copy & Paste "
14423 ├"to Graph:"
14424 ├"Xmin Xmax "
14425 ├"+/-iY f(X)"
14426 XASTO "#MSG"
14427 RCL "EQN-X"
14428 STO "EQNdspl"
14429 GTO 79
14430▸LBL 02
14431 "PRGM"
14432 ASTO ST X
14433 RCL "FKT-TYP"
14434 X=Y?
14435 GTO 79
14436 RCL "EQN-Z"
14437 STO "EQNdspl"
14438 "Copy & Paste "
14439 ├"to Phase:"
14440 ├"Xmin Xmax "
14441 ├"+/-iY f(Z)"
14442 XASTO "#MSG"
14443 GTO 79
14444▸LBL 03
14445 "Length"
14446 ├"(f(X)) = "
14447 RCL "EQN-X"
14448 LENGTH
14449 AIP
14450 LOG
14451 IP
14452 X=0?
14453 ├"  "
14454 1
14455 X=Y?
14456 ├" "
14457 ├"    "
14458 ├"Length"
14459 ├"(f(Z)) = "
14460 RCL "EQN-Z"
14461 LENGTH
14462 AIP
14463 XASTO "#MSG"
14464 CLST
14465 GTO 76
14466▸LBL 06
14467 "INIT PLOT MENU"
14468 "P"
14469 ASTO "#-cmd-#"
14470 -0.5
14471 STO "#XMIN"
14472 1ᴇ-2
14473 STO "#YMAX"
14474 +/-
14475 STO "#YMIN"
14476 6.5
14477 STO "#XMAX"
14478 0
14479 SF 25
14480 RCL "#-eval-"
14481 SF 25
14482 LENGTH
14483 1ᴇ2
14484 ÷
14485 RCL "#XMAX"
14486 RCL "#XMIN"
14487 -
14488 ×
14489 STO- "#XMAX"
14490 STO+ "#XMIN"
14491 RCL "#XMAX"
14492 RCL "#XMIN"
14493 STO "XF"
14494 -
14495 130
14496 ÷
14497 STO "#XINC"
14498▸LBL 80
14499 RCL "XF"
14500 XEQ 73
14501 CPX?
14502 CLX
14503 FC? 25
14504 CLX
14505 STO "F0"
14506 RCL "#YMIN"
14507 STO ST Y
14508 FS? 25
14509 RCL "F0"
14510 X<Y?
14511 STO "#YMIN"
14512 RCL "#YMAX"
14513 X<>Y
14514 X>Y?
14515 STO "#YMAX"
14516 RCL "#XINC"
14517 STO+ "XF"
14518 RCL "XF"
14519 RCL "#XMAX"
14520 X≥Y?
14521 GTO 80
14522 RCL "#YMIN"
14523 11
14524 ×
14525 10
14526 ÷
14527 IP
14528 X=0?
14529 LASTX
14530 RCL "#YMIN"
14531 1
14532 -
14533 IP
14534 X<Y?
14535 X<>Y
14536 STO "#YMIN"
14537 RCL "#YMAX"
14538 11
14539 ×
14540 10
14541 ÷
14542 IP
14543 X=0?
14544 LASTX
14545 RCL "#YMAX"
14546 1
14547 +
14548 IP
14549 X>Y?
14550 X<>Y
14551 STO "#YMAX"
14552 RCL "#YMAX"
14553 10
14554 ÷
14555 +/-
14556 RCL "#YMIN"
14557 X>Y?
14558 X<>Y
14559 STO "#YMIN"
14560 RCL "#YMIN"
14561 10
14562 ÷
14563 +/-
14564 RCL "#YMAX"
14565 X<Y?
14566 X<>Y
14567 STO "#YMAX"
14568 CLST
14569▸LBL 81
14570 "PLOT MENU"
14571 CF 22
14572 SF 25
14573 RCL "FKT"
14574 FC? 25
14575 GTO 08
14576 CLMENU
14577 "Xmin"
14578 KEY 1 GTO 01
14579 "Xmax"
14580 KEY 2 GTO 02
14581 "Ymin"
14582 KEY 3 GTO 03
14583 "Ymax"
14584 KEY 4 GTO 04
14585 "XEQ"
14586 KEY 5 GTO 82
14587 "BACK"
14588 KEY 6 GTO 75
14589 KEY 7 GTO 81
14590 KEY 8 GTO 81
14591 KEY 9 GTO 98
14592 "Ymax Ymin Xmax "
14593 ├"Xmin"
14594 RCL "#YMAX"
14595 RCL "#YMIN"
14596 RCL "#XMAX"
14597 RCL "#XMIN"
14598 MENU
14599 PROMPT
14600 GTO 81
14601▸LBL 01
14602 CPX?
14603 GTO 81
14604 X>0?
14605 GTO 81
14606 RCL "#XMIN"
14607 X<>Y
14608 X≠Y?
14609 STO "#XMIN"
14610 X=Y?
14611 GTO 81
14612 1ᴇ-2
14613 STO "#YMAX"
14614 +/-
14615 STO "#YMIN"
14616 RCL "#XMAX"
14617 RCL "#XMIN"
14618 STO "XF"
14619 -
14620 130
14621 ÷
14622 STO "#XINC"
14623 GTO 80
14624▸LBL 02
14625 CPX?
14626 GTO 81
14627 RCL "#XMAX"
14628 X<>Y
14629 X<0?
14630 GTO 81
14631 X≠Y?
14632 STO "#XMAX"
14633 X=Y?
14634 GTO 81
14635 1ᴇ-2
14636 STO "#YMAX"
14637 +/-
14638 STO "#YMIN"
14639 RCL "#XMAX"
14640 RCL "#XMIN"
14641 STO "XF"
14642 -
14643 130
14644 ÷
14645 STO "#XINC"
14646 GTO 80
14647▸LBL 03
14648 CPX?
14649 GTO 81
14650 X≤0?
14651 STO "#YMIN"
14652 GTO 81
14653▸LBL 04
14654 CPX?
14655 GTO 81
14656 X≥0?
14657 STO "#YMAX"
14658 GTO 81
14659▸LBL 82
14660 "PLOT DISP"
14661 CF 12
14662 CF 15
14663 CF 16
14664 1
14665 STO "#JPLOT"
14666 2
14667 ENTER
14668 133
14669 NEWMAT
14670 STO "#PLOT"
14671 RCL "#XMAX"
14672 RCL "#XMIN"
14673 STO "XF"
14674 -
14675 131
14676 ÷
14677 STO "#XINC"
14678 120
14679 RCL "#YMAX"
14680 ×
14681 LASTX
14682 RCL "#YMIN"
14683 -
14684 SF 25
14685 1/X
14686 ×
14687 1
14688 +
14689 IP
14690 X≤0?
14691 1
14692 120
14693 X>Y?
14694 X<>Y
14695 STO "#XAXIS"
14696 129
14697 RCL "#XMIN"
14698 ×
14699 LASTX
14700 RCL "#XMAX"
14701 -
14702 SF 25
14703 1/X
14704 ×
14705 1.5
14706 +
14707 IP
14708 X≤0?
14709 1
14710 131
14711 X>Y?
14712 X<>Y
14713 STO "#YAXIS"
14714▸LBL 83
14715 RCL "XF"
14716 XEQ 73
14717 CPX?
14718 CLX
14719 FC? 25
14720 CLX
14721 STO "F0"
14722 RCL "#XAXIS"
14723 RCL "F0"
14724 X≠0?
14725 SIGN
14726 -
14727 STO "#XAXISd"
14728 INDEX "#PLOT"
14729 1
14730 RCL "#JPLOT"
14731 STOIJ
14732 RCL "F0"
14733 RCL "#YMAX"
14734 -
14735 120
14736 ×
14737 RCL "#YMIN"
14738 RCL "#YMAX"
14739 -
14740 SF 25
14741 1/X
14742 ×
14743 1
14744 +
14745 IP
14746 RCL "#XAXIS"
14747 X<>Y
14748 X=Y?
14749 RCL "#XAXISd"
14750 STOEL
14751 I+
14752 RCL "F0"
14753 STOEL
14754 RCL "#XINC"
14755 STO+ "XF"
14756 RCL "#JPLOT"
14757 1
14758 +
14759 STO "#JPLOT"
14760 132
14761 X≥Y?
14762 GTO 83
14763 "PLOT PLUS42 DSP"
14764 16
14765 ENTER
14766 22
14767 SETDS
14768 INDEX "#PLOT"
14769 HEIGHT
14770 8
14771 -
14772 RCL "#YMAX"
14773 ×
14774 LASTX
14775 RCL "#YMIN"
14776 -
14777 SF 25
14778 1/X
14779 ×
14780 1
14781 +
14782 IP
14783 X≤0?
14784 1
14785 HEIGHT
14786 8
14787 -
14788 X>Y?
14789 X<>Y
14790 STO "#XAXIS"
14791 +/-
14792 WIDTH
14793 RCL "#XMIN"
14794 STO "XF"
14795 ×
14796 LASTX
14797 RCL "#XMAX"
14798 -
14799 SF 25
14800 1/X
14801 ×
14802 1
14803 +
14804 IP
14805 X≤0?
14806 CLX
14807 X=0?
14808 E↑X
14809 130
14810 X<Y?
14811 X<>Y
14812 R↓
14813 STO "#YAXIS"
14814 STO "#JPLOT"
14815 CLLCD
14816 PIXEL
14817 X<>Y
14818 +/-
14819 1
14820 +
14821 2
14822 PIXEL
14823 STO- ST Y
14824 PIXEL
14825 1
14826 +
14827 PIXEL
14828 STO+ ST Y
14829 PIXEL
14830 X<>Y
14831 1
14832 -
14833 X<>Y
14834 PIXEL
14835 X<>Y
14836 3
14837 -
14838 X<>Y
14839 PIXEL
14840 R↓
14841 WIDTH
14842 2
14843 -
14844 PIXEL
14845 X<>Y
14846 1
14847 +
14848 X<>Y
14849 PIXEL
14850 1
14851 +
14852 PIXEL
14853 X<>Y
14854 2
14855 +
14856 X<>Y
14857 PIXEL
14858 1
14859 -
14860 PIXEL
14861 X<>Y
14862 1
14863 +
14864 X<>Y
14865 PIXEL
14866 2
14867 RCL "#JPLOT"
14868 1
14869 -
14870 PIXEL
14871 2
14872 +
14873 PIXEL
14874 3
14875 X<>Y
14876 PIXEL
14877 1
14878 +
14879 PIXEL
14880 3
14881 -
14882 PIXEL
14883 1
14884 -
14885 PIXEL
14886 HEIGHT
14887 10
14888 -
14889 X<>Y
14890 PIXEL
14891 1
14892 +
14893 PIXEL
14894 2
14895 +
14896 PIXEL
14897 1
14898 +
14899 PIXEL
14900 1
14901 -
14902 X<>Y
14903 LASTX
14904 +
14905 X<>Y
14906 PIXEL
14907 2
14908 -
14909 PIXEL
14910 1
14911 RCL "#YAXIS"
14912 PIXEL
14913 2
14914 X<>Y
14915 PIXEL
14916 3
14917 X<>Y
14918 PIXEL
14919 4
14920 X<>Y
14921 PIXEL
14922 5
14923 X<>Y
14924 PIXEL
14925 6
14926 X<>Y
14927 PIXEL
14928 7
14929 X<>Y
14930 PIXEL
14931 8
14932 X<>Y
14933 PIXEL
14934 9
14935 X<>Y
14936 PIXEL
14937 10
14938 X<>Y
14939 PIXEL
14940 11
14941 X<>Y
14942 PIXEL
14943 12
14944 X<>Y
14945 PIXEL
14946 13
14947 X<>Y
14948 PIXEL
14949 14
14950 X<>Y
14951 PIXEL
14952 15
14953 X<>Y
14954 PIXEL
14955 16
14956 X<>Y
14957 PIXEL
14958 17
14959 X<>Y
14960 PIXEL
14961 18
14962 X<>Y
14963 PIXEL
14964 19
14965 X<>Y
14966 PIXEL
14967 20
14968 X<>Y
14969 PIXEL
14970 21
14971 X<>Y
14972 PIXEL
14973 22
14974 X<>Y
14975 PIXEL
14976 23
14977 X<>Y
14978 PIXEL
14979 24
14980 X<>Y
14981 PIXEL
14982 25
14983 X<>Y
14984 PIXEL
14985 26
14986 X<>Y
14987 PIXEL
14988 27
14989 X<>Y
14990 PIXEL
14991 28
14992 X<>Y
14993 PIXEL
14994 29
14995 X<>Y
14996 PIXEL
14997 30
14998 X<>Y
14999 PIXEL
15000 31
15001 X<>Y
15002 PIXEL
15003 32
15004 X<>Y
15005 PIXEL
15006 33
15007 X<>Y
15008 PIXEL
15009 34
15010 X<>Y
15011 PIXEL
15012 35
15013 X<>Y
15014 PIXEL
15015 36
15016 X<>Y
15017 PIXEL
15018 37
15019 X<>Y
15020 PIXEL
15021 38
15022 X<>Y
15023 PIXEL
15024 39
15025 X<>Y
15026 PIXEL
15027 40
15028 X<>Y
15029 PIXEL
15030 41
15031 X<>Y
15032 PIXEL
15033 42
15034 X<>Y
15035 PIXEL
15036 43
15037 X<>Y
15038 PIXEL
15039 44
15040 X<>Y
15041 PIXEL
15042 45
15043 X<>Y
15044 PIXEL
15045 46
15046 X<>Y
15047 PIXEL
15048 47
15049 X<>Y
15050 PIXEL
15051 48
15052 X<>Y
15053 PIXEL
15054 49
15055 X<>Y
15056 PIXEL
15057 50
15058 X<>Y
15059 PIXEL
15060 51
15061 X<>Y
15062 PIXEL
15063 52
15064 X<>Y
15065 PIXEL
15066 53
15067 X<>Y
15068 PIXEL
15069 54
15070 X<>Y
15071 PIXEL
15072 55
15073 X<>Y
15074 PIXEL
15075 56
15076 X<>Y
15077 PIXEL
15078 57
15079 X<>Y
15080 PIXEL
15081 58
15082 X<>Y
15083 PIXEL
15084 59
15085 X<>Y
15086 PIXEL
15087 60
15088 X<>Y
15089 PIXEL
15090 61
15091 X<>Y
15092 PIXEL
15093 62
15094 X<>Y
15095 PIXEL
15096 63
15097 X<>Y
15098 PIXEL
15099 64
15100 X<>Y
15101 PIXEL
15102 65
15103 X<>Y
15104 PIXEL
15105 66
15106 X<>Y
15107 PIXEL
15108 67
15109 X<>Y
15110 PIXEL
15111 68
15112 X<>Y
15113 PIXEL
15114 69
15115 X<>Y
15116 PIXEL
15117 70
15118 X<>Y
15119 PIXEL
15120 71
15121 X<>Y
15122 PIXEL
15123 72
15124 X<>Y
15125 PIXEL
15126 73
15127 X<>Y
15128 PIXEL
15129 74
15130 X<>Y
15131 PIXEL
15132 75
15133 X<>Y
15134 PIXEL
15135 76
15136 X<>Y
15137 PIXEL
15138 77
15139 X<>Y
15140 PIXEL
15141 78
15142 X<>Y
15143 PIXEL
15144 79
15145 X<>Y
15146 PIXEL
15147 80
15148 X<>Y
15149 PIXEL
15150 81
15151 X<>Y
15152 PIXEL
15153 82
15154 X<>Y
15155 PIXEL
15156 83
15157 X<>Y
15158 PIXEL
15159 84
15160 X<>Y
15161 PIXEL
15162 85
15163 X<>Y
15164 PIXEL
15165 86
15166 X<>Y
15167 PIXEL
15168 87
15169 X<>Y
15170 PIXEL
15171 88
15172 X<>Y
15173 PIXEL
15174 89
15175 X<>Y
15176 PIXEL
15177 90
15178 X<>Y
15179 PIXEL
15180 91
15181 X<>Y
15182 PIXEL
15183 92
15184 X<>Y
15185 PIXEL
15186 93
15187 X<>Y
15188 PIXEL
15189 94
15190 X<>Y
15191 PIXEL
15192 95
15193 X<>Y
15194 PIXEL
15195 96
15196 X<>Y
15197 PIXEL
15198 97
15199 X<>Y
15200 PIXEL
15201 98
15202 X<>Y
15203 PIXEL
15204 99
15205 X<>Y
15206 PIXEL
15207 100
15208 X<>Y
15209 PIXEL
15210 101
15211 X<>Y
15212 PIXEL
15213 102
15214 X<>Y
15215 PIXEL
15216 103
15217 X<>Y
15218 PIXEL
15219 104
15220 X<>Y
15221 PIXEL
15222 105
15223 X<>Y
15224 PIXEL
15225 106
15226 X<>Y
15227 PIXEL
15228 107
15229 X<>Y
15230 PIXEL
15231 108
15232 X<>Y
15233 PIXEL
15234 109
15235 X<>Y
15236 PIXEL
15237 110
15238 X<>Y
15239 PIXEL
15240 111
15241 X<>Y
15242 PIXEL
15243 112
15244 X<>Y
15245 PIXEL
15246 113
15247 X<>Y
15248 PIXEL
15249 114
15250 X<>Y
15251 PIXEL
15252 115
15253 X<>Y
15254 PIXEL
15255 116
15256 X<>Y
15257 PIXEL
15258 117
15259 X<>Y
15260 PIXEL
15261 118
15262 X<>Y
15263 PIXEL
15264 119
15265 X<>Y
15266 PIXEL
15267 120
15268 X<>Y
15269 PIXEL
15270 INDEX "#PLOT"
15271 2
15272 ENTER
15273 1.130
15274 STO "#JPLOT"
15275 IP
15276 STOIJ
15277 RCLEL
15278 SIGN
15279 STO "#F0SIGN"
15280 RCL "#XINC"
15281 STO- "XF"
15282▸LBL 84
15283 RCL "#XAXIS"
15284 RCLEL
15285 X≠0?
15286 SIGN
15287 -
15288 STO "#XAXISd"
15289 RCLEL
15290 RCL "#YMAX"
15291 -
15292 HEIGHT
15293 8
15294 -
15295 ×
15296 RCL "#YMIN"
15297 RCL "#YMAX"
15298 -
15299 SF 25
15300 1/X
15301 ×
15302 1
15303 +
15304 IP
15305 1
15306 X<Y?
15307 X<>Y
15308 HEIGHT
15309 8
15310 -
15311 X>Y?
15312 X<>Y
15313 RCL "#XAXIS"
15314 X<>Y
15315 X=Y?
15316 RCL "#XAXISd"
15317 RCL "#JPLOT"
15318 IP
15319 PIXEL
15320 RCL "#F0SIGN"
15321 RCLEL
15322 SIGN
15323 STO "#F0SIGN"
15324 CLA
15325 ARCL "FKT"
15326 ├" = 0, x = "
15327 ARCL "XF"
15328 X=0?
15329 ADV
15330 X=0?
15331 PRA
15332 "VZW "
15333 ARCL "FKT"
15334 ├", x = "
15335 ARCL "XF"
15336 X≠Y?
15337 ADV
15338 X≠Y?
15339 PRA
15340 "VZW "
15341 ARCL "FKT"
15342 ├", x = "
15343 RCL "XF"
15344 RCL "#XINC"
15345 +
15346 ARCL ST X
15347 R↓
15348 X≠Y?
15349 PRA
15350 J+
15351 RCL "#XINC"
15352 STO+ "XF"
15353 ISG "#JPLOT"
15354 GTO 84
15355 "PHASE in Menu"
15356 HEIGHT
15357 6
15358 -
15359 ENTER
15360 1
15361 PIXEL
15362 1
15363 +
15364 PIXEL
15365 1
15366 +
15367 PIXEL
15368 1
15369 +
15370 PIXEL
15371 1
15372 +
15373 PIXEL
15374 1
15375 +
15376 PIXEL
15377 1
15378 +
15379 PIXEL
15380 1
15381 +
15382 PIXEL
15383 1
15384 +
15385 PIXEL
15386 1
15387 +
15388 PIXEL
15389 1
15390 +
15391 PIXEL
15392 1
15393 +
15394 PIXEL
15395 1
15396 +
15397 PIXEL
15398 1
15399 +
15400 PIXEL
15401 1
15402 +
15403 PIXEL
15404 1
15405 +
15406 PIXEL
15407 1
15408 +
15409 PIXEL
15410 1
15411 +
15412 PIXEL
15413 1
15414 +
15415 PIXEL
15416 1
15417 +
15418 PIXEL
15419 1
15420 +
15421 PIXEL
15422 X<>Y
15423 1
15424 +
15425 X<>Y
15426 PIXEL
15427 4
15428 -
15429 PIXEL
15430 3
15431 -
15432 PIXEL
15433 1
15434 -
15435 PIXEL
15436 1
15437 -
15438 PIXEL
15439 2
15440 -
15441 PIXEL
15442 1
15443 -
15444 PIXEL
15445 2
15446 -
15447 PIXEL
15448 2
15449 -
15450 PIXEL
15451 4
15452 -
15453 PIXEL
15454 X<>Y
15455 1
15456 +
15457 X<>Y
15458 PIXEL
15459 2
15460 +
15461 PIXEL
15462 2
15463 +
15464 PIXEL
15465 2
15466 +
15467 PIXEL
15468 2
15469 +
15470 PIXEL
15471 2
15472 +
15473 PIXEL
15474 2
15475 +
15476 PIXEL
15477 2
15478 +
15479 PIXEL
15480 1
15481 +
15482 PIXEL
15483 1
15484 +
15485 PIXEL
15486 2
15487 +
15488 PIXEL
15489 1
15490 +
15491 PIXEL
15492 1
15493 +
15494 PIXEL
15495 X<>Y
15496 1
15497 +
15498 X<>Y
15499 PIXEL
15500 1
15501 -
15502 PIXEL
15503 3
15504 -
15505 PIXEL
15506 1
15507 -
15508 PIXEL
15509 2
15510 -
15511 PIXEL
15512 1
15513 -
15514 PIXEL
15515 4
15516 -
15517 PIXEL
15518 4
15519 -
15520 PIXEL
15521 4
15522 -
15523 PIXEL
15524 X<>Y
15525 1
15526 +
15527 X<>Y
15528 PIXEL
15529 2
15530 +
15531 PIXEL
15532 1
15533 +
15534 PIXEL
15535 1
15536 +
15537 PIXEL
15538 2
15539 +
15540 PIXEL
15541 2
15542 +
15543 PIXEL
15544 2
15545 +
15546 PIXEL
15547 2
15548 +
15549 PIXEL
15550 1
15551 +
15552 PIXEL
15553 1
15554 +
15555 PIXEL
15556 2
15557 +
15558 PIXEL
15559 2
15560 +
15561 PIXEL
15562 1
15563 +
15564 PIXEL
15565 1
15566 +
15567 PIXEL
15568 X<>Y
15569 1
15570 +
15571 X<>Y
15572 PIXEL
15573 4
15574 -
15575 PIXEL
15576 4
15577 -
15578 PIXEL
15579 2
15580 -
15581 PIXEL
15582 2
15583 -
15584 PIXEL
15585 2
15586 -
15587 PIXEL
15588 2
15589 -
15590 PIXEL
15591 1
15592 -
15593 PIXEL
15594 1
15595 -
15596 PIXEL
15597 2
15598 -
15599 PIXEL
15600 X<>Y
15601 1
15602 +
15603 X<>Y
15604 PIXEL
15605 1
15606 +
15607 PIXEL
15608 1
15609 +
15610 PIXEL
15611 1
15612 +
15613 PIXEL
15614 1
15615 +
15616 PIXEL
15617 1
15618 +
15619 PIXEL
15620 1
15621 +
15622 PIXEL
15623 1
15624 +
15625 PIXEL
15626 1
15627 +
15628 PIXEL
15629 1
15630 +
15631 PIXEL
15632 1
15633 +
15634 PIXEL
15635 1
15636 +
15637 PIXEL
15638 1
15639 +
15640 PIXEL
15641 1
15642 +
15643 PIXEL
15644 1
15645 +
15646 PIXEL
15647 1
15648 +
15649 PIXEL
15650 1
15651 +
15652 PIXEL
15653 1
15654 +
15655 PIXEL
15656 1
15657 +
15658 PIXEL
15659 1
15660 +
15661 PIXEL
15662 1
15663 +
15664 PIXEL
15665 "PAPER in MENU"
15666 HEIGHT
15667 6
15668 -
15669 ENTER
15670 67
15671 PIXEL
15672 1
15673 +
15674 PIXEL
15675 1
15676 +
15677 PIXEL
15678 1
15679 +
15680 PIXEL
15681 1
15682 +
15683 PIXEL
15684 1
15685 +
15686 PIXEL
15687 1
15688 +
15689 PIXEL
15690 1
15691 +
15692 PIXEL
15693 1
15694 +
15695 PIXEL
15696 1
15697 +
15698 PIXEL
15699 1
15700 +
15701 PIXEL
15702 1
15703 +
15704 PIXEL
15705 1
15706 +
15707 PIXEL
15708 1
15709 +
15710 PIXEL
15711 1
15712 +
15713 PIXEL
15714 1
15715 +
15716 PIXEL
15717 1
15718 +
15719 PIXEL
15720 1
15721 +
15722 PIXEL
15723 1
15724 +
15725 PIXEL
15726 1
15727 +
15728 PIXEL
15729 1
15730 +
15731 PIXEL
15732 X<>Y
15733 1
15734 +
15735 X<>Y
15736 PIXEL
15737 4
15738 -
15739 PIXEL
15740 4
15741 -
15742 PIXEL
15743 4
15744 -
15745 PIXEL
15746 1
15747 -
15748 PIXEL
15749 2
15750 -
15751 PIXEL
15752 1
15753 -
15754 PIXEL
15755 4
15756 -
15757 PIXEL
15758 X<>Y
15759 1
15760 +
15761 X<>Y
15762 PIXEL
15763 2
15764 +
15765 PIXEL
15766 2
15767 +
15768 PIXEL
15769 2
15770 +
15771 PIXEL
15772 2
15773 +
15774 PIXEL
15775 2
15776 +
15777 PIXEL
15778 2
15779 +
15780 PIXEL
15781 2
15782 +
15783 PIXEL
15784 1
15785 +
15786 PIXEL
15787 1
15788 +
15789 PIXEL
15790 2
15791 +
15792 PIXEL
15793 2
15794 +
15795 PIXEL
15796 X<>Y
15797 1
15798 +
15799 X<>Y
15800 PIXEL
15801 1
15802 -
15803 PIXEL
15804 3
15805 -
15806 PIXEL
15807 1
15808 -
15809 PIXEL
15810 3
15811 -
15812 PIXEL
15813 4
15814 -
15815 PIXEL
15816 4
15817 -
15818 PIXEL
15819 4
15820 -
15821 PIXEL
15822 X<>Y
15823 1
15824 +
15825 X<>Y
15826 PIXEL
15827 2
15828 +
15829 PIXEL
15830 1
15831 +
15832 PIXEL
15833 1
15834 +
15835 PIXEL
15836 2
15837 +
15838 PIXEL
15839 2
15840 +
15841 PIXEL
15842 2
15843 +
15844 PIXEL
15845 1
15846 +
15847 PIXEL
15848 1
15849 +
15850 PIXEL
15851 2
15852 +
15853 PIXEL
15854 1
15855 +
15856 PIXEL
15857 1
15858 +
15859 PIXEL
15860 2
15861 +
15862 PIXEL
15863 2
15864 +
15865 PIXEL
15866 X<>Y
15867 1
15868 +
15869 X<>Y
15870 PIXEL
15871 2
15872 -
15873 PIXEL
15874 2
15875 -
15876 PIXEL
15877 4
15878 -
15879 PIXEL
15880 1
15881 -
15882 PIXEL
15883 1
15884 -
15885 PIXEL
15886 2
15887 -
15888 PIXEL
15889 2
15890 -
15891 PIXEL
15892 2
15893 -
15894 PIXEL
15895 1
15896 -
15897 PIXEL
15898 1
15899 -
15900 PIXEL
15901 2
15902 -
15903 PIXEL
15904 X<>Y
15905 1
15906 +
15907 X<>Y
15908 PIXEL
15909 1
15910 +
15911 PIXEL
15912 1
15913 +
15914 PIXEL
15915 1
15916 +
15917 PIXEL
15918 1
15919 +
15920 PIXEL
15921 1
15922 +
15923 PIXEL
15924 1
15925 +
15926 PIXEL
15927 1
15928 +
15929 PIXEL
15930 1
15931 +
15932 PIXEL
15933 1
15934 +
15935 PIXEL
15936 1
15937 +
15938 PIXEL
15939 1
15940 +
15941 PIXEL
15942 1
15943 +
15944 PIXEL
15945 1
15946 +
15947 PIXEL
15948 1
15949 +
15950 PIXEL
15951 1
15952 +
15953 PIXEL
15954 1
15955 +
15956 PIXEL
15957 1
15958 +
15959 PIXEL
15960 1
15961 +
15962 PIXEL
15963 1
15964 +
15965 PIXEL
15966 1
15967 +
15968 PIXEL
15969 "BACK in MENU"
15970 HEIGHT
15971 6
15972 -
15973 ENTER
15974 111
15975 PIXEL
15976 1
15977 +
15978 PIXEL
15979 1
15980 +
15981 PIXEL
15982 1
15983 +
15984 PIXEL
15985 1
15986 +
15987 PIXEL
15988 1
15989 +
15990 PIXEL
15991 1
15992 +
15993 PIXEL
15994 1
15995 +
15996 PIXEL
15997 1
15998 +
15999 PIXEL
16000 1
16001 +
16002 PIXEL
16003 1
16004 +
16005 PIXEL
16006 1
16007 +
16008 PIXEL
16009 1
16010 +
16011 PIXEL
16012 1
16013 +
16014 PIXEL
16015 1
16016 +
16017 PIXEL
16018 1
16019 +
16020 PIXEL
16021 1
16022 +
16023 PIXEL
16024 1
16025 +
16026 PIXEL
16027 1
16028 +
16029 PIXEL
16030 1
16031 +
16032 PIXEL
16033 1
16034 +
16035 PIXEL
16036 X<>Y
16037 1
16038 +
16039 X<>Y
16040 PIXEL
16041 1
16042 -
16043 PIXEL
16044 1
16045 -
16046 PIXEL
16047 2
16048 -
16049 PIXEL
16050 1
16051 -
16052 PIXEL
16053 2
16054 -
16055 PIXEL
16056 3
16057 -
16058 PIXEL
16059 1
16060 -
16061 PIXEL
16062 1
16063 -
16064 PIXEL
16065 2
16066 -
16067 PIXEL
16068 1
16069 -
16070 PIXEL
16071 1
16072 -
16073 PIXEL
16074 3
16075 -
16076 PIXEL
16077 1
16078 -
16079 PIXEL
16080 X<>Y
16081 1
16082 +
16083 X<>Y
16084 PIXEL
16085 1
16086 +
16087 PIXEL
16088 2
16089 +
16090 PIXEL
16091 2
16092 +
16093 PIXEL
16094 2
16095 +
16096 PIXEL
16097 2
16098 +
16099 PIXEL
16100 2
16101 +
16102 PIXEL
16103 1
16104 +
16105 PIXEL
16106 1
16107 +
16108 PIXEL
16109 2
16110 +
16111 PIXEL
16112 2
16113 +
16114 PIXEL
16115 1
16116 +
16117 PIXEL
16118 1
16119 +
16120 PIXEL
16121 1
16122 +
16123 PIXEL
16124 X<>Y
16125 1
16126 +
16127 X<>Y
16128 PIXEL
16129 1
16130 -
16131 PIXEL
16132 1
16133 -
16134 PIXEL
16135 1
16136 -
16137 PIXEL
16138 4
16139 -
16140 PIXEL
16141 1
16142 -
16143 PIXEL
16144 1
16145 -
16146 PIXEL
16147 2
16148 -
16149 PIXEL
16150 4
16151 -
16152 PIXEL
16153 4
16154 -
16155 PIXEL
16156 1
16157 -
16158 PIXEL
16159 X<>Y
16160 1
16161 +
16162 X<>Y
16163 PIXEL
16164 1
16165 +
16166 PIXEL
16167 2
16168 +
16169 PIXEL
16170 2
16171 +
16172 PIXEL
16173 2
16174 +
16175 PIXEL
16176 2
16177 +
16178 PIXEL
16179 2
16180 +
16181 PIXEL
16182 1
16183 +
16184 PIXEL
16185 1
16186 +
16187 PIXEL
16188 2
16189 +
16190 PIXEL
16191 2
16192 +
16193 PIXEL
16194 1
16195 +
16196 PIXEL
16197 1
16198 +
16199 PIXEL
16200 1
16201 +
16202 PIXEL
16203 X<>Y
16204 1
16205 +
16206 X<>Y
16207 PIXEL
16208 1
16209 -
16210 PIXEL
16211 1
16212 -
16213 PIXEL
16214 2
16215 -
16216 PIXEL
16217 1
16218 -
16219 PIXEL
16220 2
16221 -
16222 PIXEL
16223 3
16224 -
16225 PIXEL
16226 1
16227 -
16228 PIXEL
16229 2
16230 -
16231 PIXEL
16232 2
16233 -
16234 PIXEL
16235 1
16236 -
16237 PIXEL
16238 3
16239 -
16240 PIXEL
16241 1
16242 -
16243 PIXEL
16244 X<>Y
16245 1
16246 +
16247 X<>Y
16248 PIXEL
16249 1
16250 +
16251 PIXEL
16252 1
16253 +
16254 PIXEL
16255 1
16256 +
16257 PIXEL
16258 1
16259 +
16260 PIXEL
16261 1
16262 +
16263 PIXEL
16264 1
16265 +
16266 PIXEL
16267 1
16268 +
16269 PIXEL
16270 1
16271 +
16272 PIXEL
16273 1
16274 +
16275 PIXEL
16276 1
16277 +
16278 PIXEL
16279 1
16280 +
16281 PIXEL
16282 1
16283 +
16284 PIXEL
16285 1
16286 +
16287 PIXEL
16288 1
16289 +
16290 PIXEL
16291 1
16292 +
16293 PIXEL
16294 1
16295 +
16296 PIXEL
16297 1
16298 +
16299 PIXEL
16300 1
16301 +
16302 PIXEL
16303 1
16304 +
16305 PIXEL
16306 1
16307 +
16308 PIXEL
16309 CLV "#XINC"
16310 CLV "#PLOT"
16311 CLV "#JPLOT"
16312 CLV "#XAXIS"
16313 CLV "#XAXISd"
16314 CLV "#YAXIS"
16315 CLV "#F0SIGN"
16316 RCL "#XMIN"
16317 RCL "#XMAX"
16318 RCL "#YMAX"
16319 RCL "#YMIN"
16320 CLA
16321 KEY 1 GTO 87
16322 KEY 2 GTO 01
16323 KEY 3 GTO 01
16324 KEY 4 GTO 02
16325 KEY 5 GTO 01
16326 "BACK"
16327 KEY 6 GTO 01
16328 CLA
16329 KEY 7 GTO 01
16330 KEY 8 GTO 01
16331 KEY 9 GTO 98
16332 STOP
16333▸LBL 01
16334 CLMENU
16335 CF 19
16336 R↑
16337 R↑
16338 8
16339 ENTER
16340 22
16341 SETDS
16342 R↑
16343 R↑
16344 +
16345 2
16346 ÷
16347 STO "XF"
16348 GTO 81
16349▸LBL 02
16350 "PLOT PAPER"
16351 ADV
16352 "------------"
16353 ├"------------"
16354 PRA
16355 "Plot: f(X)"
16356 PRA
16357 SF 25
16358 RCL "EQNf(X)"
16359 STO "f(X)"
16360 "PRGM"
16361 ASTO ST X
16362 "f(X) = ""
16363 SF 25
16364 ARCL "#PRGM"
16365 ├"""
16366 RCL "FKT-TYP"
16367 X=Y?
16368 PRA
16369 X≠Y?
16370 PRV "f(X)"
16371 CLV "f(X)"
16372 8
16373 ENTER
16374 22
16375 SETDS
16376 CF 12
16377 CF 15
16378 CF 16
16379 1
16380 STO "#JPLOT"
16381 2
16382 ENTER
16383 133
16384 NEWMAT
16385 STO "#PLOT"
16386 RCL "#XMAX"
16387 RCL "#XMIN"
16388 STO "XF"
16389 -
16390 131
16391 ÷
16392 STO "#XINC"
16393 384
16394 RCL "#YMAX"
16395 ×
16396 LASTX
16397 RCL "#YMIN"
16398 -
16399 SF 25
16400 1/X
16401 ×
16402 1
16403 +
16404 IP
16405 X≤0?
16406 1
16407 383
16408 X>Y?
16409 X<>Y
16410 STO "#XAXIS"
16411 129
16412 RCL "#XMIN"
16413 ×
16414 LASTX
16415 RCL "#XMAX"
16416 -
16417 SF 25
16418 1/X
16419 ×
16420 1.5
16421 +
16422 IP
16423 X≤0?
16424 1
16425 131
16426 X>Y?
16427 X<>Y
16428 STO "#YAXIS"
16429▸LBL 85
16430 RCL "XF"
16431 XEQ 73
16432 CPX?
16433 CLX
16434 FC? 25
16435 CLX
16436 STO "F0"
16437 RCL "#XAXIS"
16438 RCL "F0"
16439 X≠0?
16440 SIGN
16441 -
16442 STO "#XAXISd"
16443 INDEX "#PLOT"
16444 1
16445 RCL "#JPLOT"
16446 STOIJ
16447 RCL "F0"
16448 RCL "#YMAX"
16449 -
16450 384
16451 ×
16452 RCL "#YMIN"
16453 RCL "#YMAX"
16454 -
16455 SF 25
16456 1/X
16457 ×
16458 1.5
16459 +
16460 IP
16461 RCL "#XAXIS"
16462 X<>Y
16463 X=Y?
16464 RCL "#XAXISd"
16465 STOEL
16466 I+
16467 RCL "F0"
16468 STOEL
16469 RCL "#XINC"
16470 STO+ "XF"
16471 RCL "#JPLOT"
16472 1
16473 +
16474 STO "#JPLOT"
16475 130
16476 X≥Y?
16477 GTO 85
16478 CLX
16479 STO "#JPLOT"
16480 1
16481 STO "#Z"
16482 STO "#Z1N"
16483 64
16484 STO "#Z64N"
16485 ADV
16486 RCL "#YMAX"
16487 STO "Ymax "
16488 PRV "Ymax "
16489 CLV "Ymax "
16490 RCL "#YMIN"
16491 STO "Ymin "
16492 PRV "Ymin "
16493 CLV "Ymin "
16494 RCL "#XMAX"
16495 STO "Xmax "
16496 PRV "Xmax "
16497 CLV "Xmax "
16498 RCL "#XMIN"
16499 STO "Xmin "
16500 PRV "Xmin "
16501 CLV "Xmin "
16502 ADV
16503 CLLCD
16504 2
16505 RCL "#YAXIS"
16506 1
16507 -
16508 PIXEL
16509 2
16510 +
16511 PIXEL
16512 3
16513 X<>Y
16514 PIXEL
16515 1
16516 +
16517 PIXEL
16518 3
16519 -
16520 PIXEL
16521 1
16522 -
16523 PIXEL
16524▸LBL 86
16525 INDEX "#PLOT"
16526 1
16527 STO+ "#JPLOT"
16528 RCL "#JPLOT"
16529 130
16530 X<Y?
16531 GTO 01
16532 R↓
16533 STOIJ
16534 RCLEL
16535 RCL "#Z1N"
16536 X>Y?
16537 GTO 86
16538 RCLEL
16539 RCL "#Z64N"
16540 X<Y?
16541 GTO 86
16542 RCLIJ
16543 RCLEL
16544 RCL "#Z"
16545 1
16546 -
16547 64
16548 ×
16549 -
16550 X<>Y
16551 PIXEL
16552 GTO 86
16553▸LBL 01
16554 RCL "#XAXIS"
16555 RCL "#Z1N"
16556 X>Y?
16557 GTO 02
16558 RCL "#XAXIS"
16559 RCL "#Z64N"
16560 X<Y?
16561 GTO 02
16562 RCL "#XAXIS"
16563 RCL "#Z"
16564 1
16565 -
16566 64
16567 ×
16568 -
16569 +/-
16570 1
16571 PIXEL
16572 X<>Y
16573 +/-
16574 1
16575 -
16576 2
16577 PIXEL
16578 1
16579 +
16580 PIXEL
16581 X<>Y
16582 1
16583 -
16584 X<>Y
16585 PIXEL
16586 X<>Y
16587 4
16588 +
16589 X<>Y
16590 PIXEL
16591 X<>Y
16592 1
16593 -
16594 2
16595 PIXEL
16596 1
16597 +
16598 PIXEL
16599 X<>Y
16600 130
16601 PIXEL
16602 1
16603 -
16604 PIXEL
16605 X<>Y
16606 1
16607 +
16608 X<>Y
16609 PIXEL
16610 X<>Y
16611 4
16612 -
16613 X<>Y
16614 PIXEL
16615 X<>Y
16616 1
16617 +
16618 X<>Y
16619 PIXEL
16620 1
16621 +
16622 PIXEL
16623▸LBL 02
16624 1
16625 RCL "#YAXIS"
16626 +/-
16627 PIXEL
16628 RCL "#Z"
16629 6
16630 X≠Y?
16631 PRLCD
16632 X≠Y?
16633 CLLCD
16634 CLX
16635 STO "#JPLOT"
16636 64
16637 STO+ "#Z1N"
16638 STO+ "#Z64N"
16639 1
16640 RCL "#Z"
16641 +
16642 STO "#Z"
16643 7
16644 X>Y?
16645 GTO 86
16646 62
16647 RCL "#YAXIS"
16648 PIXEL
16649 1
16650 -
16651 PIXEL
16652 1
16653 -
16654 PIXEL
16655 3
16656 +
16657 PIXEL
16658 1
16659 +
16660 PIXEL
16661 63
16662 RCL "#YAXIS"
16663 PIXEL
16664 1
16665 -
16666 PIXEL
16667 2
16668 +
16669 PIXEL
16670 PRLCD
16671 ADV
16672 CLD
16673 CLV "#YAXIS"
16674 CLV "#Z"
16675 CLV "#Z1N"
16676 CLV "#Z64N"
16677 CLV "F0"
16678 CLST
16679 GTO 82
16680▸LBL 87
16681 "MENU PHASENPLOT"
16682 8
16683 ENTER
16684 22
16685 SETDS
16686 CLMENU
16687 "Pmin"
16688 KEY 1 GTO 01
16689 "Pmax"
16690 KEY 2 GTO 02
16691 "IiYI"
16692 KEY 3 GTO 03
16693 "<0,0>"
16694 KEY 4 GTO 04
16695 "XEQ"
16696 KEY 5 GTO 05
16697 "BACK"
16698 KEY 6 GTO 81
16699 KEY 7 GTO 87
16700 KEY 8 GTO 87
16701 KEY 9 GTO 98
16702 CLA
16703 SF 25
16704 RCL "#P-VK"
16705 FC? 25
16706 0
16707 STO "#P-VK"
16708 4
16709 X<Y?
16710 ├"."
16711 X<>Y
16712 X>Y?
16713 AIP
16714 X<>Y
16715 X<Y?
16716 ├"x0,"
16717 X=Y?
16718 ├"0000,"
16719 1
16720 -
16721 X=Y?
16722 ├".000,"
16723 1
16724 -
16725 X=Y?
16726 ├"..00,"
16727 1
16728 -
16729 X=Y?
16730 ├"...0,"
16731 1
16732 -
16733 X=Y?
16734 ├"....,"
16735 SF 25
16736 RCL "#P-NK"
16737 FC? 25
16738 1
16739 STO "#P-NK"
16740 4
16741 X<Y?
16742 ├"0x"
16743 X<>Y
16744 X>Y?
16745 AIP
16746 X<>Y
16747 X<Y?
16748 ├"."
16749 X=Y?
16750 ├"0000"
16751 1
16752 -
16753 X=Y?
16754 ├"000."
16755 1
16756 -
16757 X=Y?
16758 ├"00.."
16759 1
16760 -
16761 X=Y?
16762 ├"0..."
16763 1
16764 -
16765 X=Y?
16766 ├"...."
16767 ├" iY Pmax Pmin"
16768 SF 25
16769 RCL "#Y-END"
16770 FC? 25
16771 1
16772 STO "#Y-END"
16773 RCL "#P-VK"
16774 RCL "#P-NK"
16775 10
16776 ÷
16777 +
16778 RCL "#Y-END"
16779 SF 25
16780 RCL "#P-MAX"
16781 FC? 25
16782 10
16783 STO "#P-MAX"
16784 SF 25
16785 RCL "#P-MIN"
16786 FC? 25
16787 0
16788 STO "#P-MIN"
16789 MENU
16790 PROMPT
16791 GTO 87
16792▸LBL 01
16793 X<0?
16794 GTO 87
16795 RCL "#P-MAX"
16796 X<>Y
16797 X>Y?
16798 GTO 87
16799 RCL "#P-MIN"
16800 X<>Y
16801 X=Y?
16802 GTO 87
16803 STO "#P-MIN"
16804 GTO 05
16805▸LBL 02
16806 X≤0?
16807 GTO 87
16808 RCL "#P-MIN"
16809 X<>Y
16810 X<Y?
16811 GTO 87
16812 RCL "#P-MAX"
16813 X<>Y
16814 X=Y?
16815 GTO 87
16816 STO "#P-MAX"
16817 GTO 05
16818▸LBL 03
16819 X<0?
16820 GTO 87
16821 RCL "#Y-END"
16822 X<>Y
16823 X=Y?
16824 GTO 87
16825 STO "#Y-END"
16826 GTO 05
16827▸LBL 04
16828 X≤0?
16829 GTO 87
16830 IP
16831 LASTX
16832 FP
16833 10
16834 ×
16835 IP
16836 9
16837 X<>Y
16838 X>Y?
16839 X<>Y
16840 X<> "#P-NK"
16841 RCL "#P-NK"
16842 -
16843 ABS
16844 RCL ST Z
16845 9
16846 X<>Y
16847 X>Y?
16848 X<>Y
16849 X<> "#P-VK"
16850 RCL "#P-VK"
16851 -
16852 ABS
16853 RCL ST Z
16854 +
16855 X=0?
16856 GTO 87
16857 GTO 05
16858▸LBL 05
16859 "PHASENPLOT"
16860 1ᴇ99
16861 STO "#Y-MIN"
16862 +/-
16863 STO "#Y-MAX"
16864 RCL "#XMAX"
16865 RCL "#XMIN"
16866 STO "#X#"
16867 -
16868 WIDTH
16869 11
16870 -
16871 SF 25
16872 1/X
16873 ×
16874 STO "#XINC"
16875 RCL "#Y-END"
16876 STO "#Y#"
16877 STO+ ST X
16878 120
16879 ÷
16880 STO "#YINC"
16881 0.12
16882 STO "#IT-X"
16883 STO "#IT-Y"
16884 121
16885 ENTER
16886 DIM "#PHASE"
16887▸LBL 88
16888 RCL "#XMIN"
16889 RCL "#IT-X"
16890 IP
16891 RCL "#XINC"
16892 ×
16893 +
16894 STO "#X#"
16895 RCL "#Y#"
16896 COMPLEX
16897 STO "XF"
16898 XEQ 73
16899 FC? 25
16900 CLX
16901 STO "F0"
16902 ABS
16903 STO "#PH"
16904 RCL "#IT-Y"
16905 IP
16906 1
16907 +
16908 RCL "#IT-X"
16909 1
16910 +
16911 IP
16912 INDEX "#PHASE"
16913 STOIJ
16914 RCL "#PH"
16915 STOEL
16916 RCL "#Y-MAX"
16917 X<Y?
16918 X<>Y
16919 STO "#Y-MAX"
16920 RCL "#PH"
16921 RCL "#Y-MIN"
16922 X>Y?
16923 X<>Y
16924 STO "#Y-MIN"
16925 ISG "#IT-X"
16926 GTO 88
16927 0.12
16928 STO "#IT-X"
16929 RCL "#XMIN"
16930 STO "#X#"
16931 RCL "#Y-END"
16932 RCL "#YINC"
16933 RCL "#IT-Y"
16934 IP
16935 1
16936 +
16937 ×
16938 -
16939 STO "#Y#"
16940 ISG "#IT-Y"
16941 GTO 88
16942 CLV "#PH"
16943 CLV "#X#"
16944 CLV "#Y#"
16945 RCL "#P-MAX"
16946 STO ST Y
16947 RCL "#P-MIN"
16948 -
16949 RCL "#Y-MAX"
16950 RCL "#Y-MIN"
16951 -
16952 SF 25
16953 1/X
16954 ×
16955 STO× "#PHASE"
16956 RCL "#Y-MAX"
16957 ×
16958 -
16959 STO+ "#PHASE"
16960 CLV "#Y-MIN"
16961 CLV "#Y-MAX"
16962 1.121
16963 STO "#IT-X"
16964 STO "#IT-Y"
16965 INDEX "#PHASE"
16966 16
16967 ENTER
16968 22
16969 SETDS
16970 CLLCD
16971 -61
16972 ENTER
16973 0
16974 PIXEL
16975 "-65"
16976 125
16977 RCL "#XMAX"
16978 RCL "#XMIN"
16979 -
16980 SF 25
16981 1/X
16982 RCL "#XMAX"
16983 ×
16984 120
16985 ×
16986 -
16987 1.51
16988 +
16989 IP
16990 +/-
16991 PIXEL
16992▸LBL 89
16993 RCL "#IT-X"
16994 IP
16995 RCL "#IT-Y"
16996 IP
16997 STOIJ
16998 RCLEL
16999 RCL "#P-NK"
17000 10↑X
17001 ×
17002 IP
17003 RCL "#P-VK"
17004 RCL "#P-NK"
17005 +
17006 10↑X
17007 SF 25
17008 1/X
17009 ×
17010 FP
17011 STO "#VAL"
17012 RCLIJ
17013 5
17014 +
17015 RCL "#VAL"
17016 CLV "#VAL"
17017 X≠0?
17018 STO ST Y
17019 X≠0?
17020 STO- ST Y
17021 X≠0?
17022 STO ST Z
17023 X≠0?
17024 STO- ST Z
17025 R↓
17026 PIXEL
17027 ISG "#IT-X"
17028 GTO 89
17029 1.121
17030 STO "#IT-X"
17031 ISG "#IT-Y"
17032 GTO 89
17033 CLV "#IT-X"
17034 CLV "#IT-Y"
17035 CLV "#PHASE"
17036 "PAPER in MENU"
17037 HEIGHT
17038 6
17039 -
17040 ENTER
17041 67
17042 PIXEL
17043 1
17044 +
17045 PIXEL
17046 1
17047 +
17048 PIXEL
17049 1
17050 +
17051 PIXEL
17052 1
17053 +
17054 PIXEL
17055 1
17056 +
17057 PIXEL
17058 1
17059 +
17060 PIXEL
17061 1
17062 +
17063 PIXEL
17064 1
17065 +
17066 PIXEL
17067 1
17068 +
17069 PIXEL
17070 1
17071 +
17072 PIXEL
17073 1
17074 +
17075 PIXEL
17076 1
17077 +
17078 PIXEL
17079 1
17080 +
17081 PIXEL
17082 1
17083 +
17084 PIXEL
17085 1
17086 +
17087 PIXEL
17088 1
17089 +
17090 PIXEL
17091 1
17092 +
17093 PIXEL
17094 1
17095 +
17096 PIXEL
17097 1
17098 +
17099 PIXEL
17100 1
17101 +
17102 PIXEL
17103 X<>Y
17104 1
17105 +
17106 X<>Y
17107 PIXEL
17108 4
17109 -
17110 PIXEL
17111 4
17112 -
17113 PIXEL
17114 4
17115 -
17116 PIXEL
17117 1
17118 -
17119 PIXEL
17120 2
17121 -
17122 PIXEL
17123 1
17124 -
17125 PIXEL
17126 4
17127 -
17128 PIXEL
17129 X<>Y
17130 1
17131 +
17132 X<>Y
17133 PIXEL
17134 2
17135 +
17136 PIXEL
17137 2
17138 +
17139 PIXEL
17140 2
17141 +
17142 PIXEL
17143 2
17144 +
17145 PIXEL
17146 2
17147 +
17148 PIXEL
17149 2
17150 +
17151 PIXEL
17152 2
17153 +
17154 PIXEL
17155 1
17156 +
17157 PIXEL
17158 1
17159 +
17160 PIXEL
17161 2
17162 +
17163 PIXEL
17164 2
17165 +
17166 PIXEL
17167 X<>Y
17168 1
17169 +
17170 X<>Y
17171 PIXEL
17172 1
17173 -
17174 PIXEL
17175 3
17176 -
17177 PIXEL
17178 1
17179 -
17180 PIXEL
17181 3
17182 -
17183 PIXEL
17184 4
17185 -
17186 PIXEL
17187 4
17188 -
17189 PIXEL
17190 4
17191 -
17192 PIXEL
17193 X<>Y
17194 1
17195 +
17196 X<>Y
17197 PIXEL
17198 2
17199 +
17200 PIXEL
17201 1
17202 +
17203 PIXEL
17204 1
17205 +
17206 PIXEL
17207 2
17208 +
17209 PIXEL
17210 2
17211 +
17212 PIXEL
17213 2
17214 +
17215 PIXEL
17216 1
17217 +
17218 PIXEL
17219 1
17220 +
17221 PIXEL
17222 2
17223 +
17224 PIXEL
17225 1
17226 +
17227 PIXEL
17228 1
17229 +
17230 PIXEL
17231 2
17232 +
17233 PIXEL
17234 2
17235 +
17236 PIXEL
17237 X<>Y
17238 1
17239 +
17240 X<>Y
17241 PIXEL
17242 2
17243 -
17244 PIXEL
17245 2
17246 -
17247 PIXEL
17248 4
17249 -
17250 PIXEL
17251 1
17252 -
17253 PIXEL
17254 1
17255 -
17256 PIXEL
17257 2
17258 -
17259 PIXEL
17260 2
17261 -
17262 PIXEL
17263 2
17264 -
17265 PIXEL
17266 1
17267 -
17268 PIXEL
17269 1
17270 -
17271 PIXEL
17272 2
17273 -
17274 PIXEL
17275 X<>Y
17276 1
17277 +
17278 X<>Y
17279 PIXEL
17280 1
17281 +
17282 PIXEL
17283 1
17284 +
17285 PIXEL
17286 1
17287 +
17288 PIXEL
17289 1
17290 +
17291 PIXEL
17292 1
17293 +
17294 PIXEL
17295 1
17296 +
17297 PIXEL
17298 1
17299 +
17300 PIXEL
17301 1
17302 +
17303 PIXEL
17304 1
17305 +
17306 PIXEL
17307 1
17308 +
17309 PIXEL
17310 1
17311 +
17312 PIXEL
17313 1
17314 +
17315 PIXEL
17316 1
17317 +
17318 PIXEL
17319 1
17320 +
17321 PIXEL
17322 1
17323 +
17324 PIXEL
17325 1
17326 +
17327 PIXEL
17328 1
17329 +
17330 PIXEL
17331 1
17332 +
17333 PIXEL
17334 1
17335 +
17336 PIXEL
17337 1
17338 +
17339 PIXEL
17340 "BACK IN MENU"
17341 HEIGHT
17342 6
17343 -
17344 ENTER
17345 111
17346 PIXEL
17347 1
17348 +
17349 PIXEL
17350 1
17351 +
17352 PIXEL
17353 1
17354 +
17355 PIXEL
17356 1
17357 +
17358 PIXEL
17359 1
17360 +
17361 PIXEL
17362 1
17363 +
17364 PIXEL
17365 1
17366 +
17367 PIXEL
17368 1
17369 +
17370 PIXEL
17371 1
17372 +
17373 PIXEL
17374 1
17375 +
17376 PIXEL
17377 1
17378 +
17379 PIXEL
17380 1
17381 +
17382 PIXEL
17383 1
17384 +
17385 PIXEL
17386 1
17387 +
17388 PIXEL
17389 1
17390 +
17391 PIXEL
17392 1
17393 +
17394 PIXEL
17395 1
17396 +
17397 PIXEL
17398 1
17399 +
17400 PIXEL
17401 1
17402 +
17403 PIXEL
17404 1
17405 +
17406 PIXEL
17407 X<>Y
17408 1
17409 +
17410 X<>Y
17411 PIXEL
17412 1
17413 -
17414 PIXEL
17415 1
17416 -
17417 PIXEL
17418 2
17419 -
17420 PIXEL
17421 1
17422 -
17423 PIXEL
17424 2
17425 -
17426 PIXEL
17427 3
17428 -
17429 PIXEL
17430 1
17431 -
17432 PIXEL
17433 1
17434 -
17435 PIXEL
17436 2
17437 -
17438 PIXEL
17439 1
17440 -
17441 PIXEL
17442 1
17443 -
17444 PIXEL
17445 3
17446 -
17447 PIXEL
17448 1
17449 -
17450 PIXEL
17451 X<>Y
17452 1
17453 +
17454 X<>Y
17455 PIXEL
17456 1
17457 +
17458 PIXEL
17459 2
17460 +
17461 PIXEL
17462 2
17463 +
17464 PIXEL
17465 2
17466 +
17467 PIXEL
17468 2
17469 +
17470 PIXEL
17471 2
17472 +
17473 PIXEL
17474 1
17475 +
17476 PIXEL
17477 1
17478 +
17479 PIXEL
17480 2
17481 +
17482 PIXEL
17483 2
17484 +
17485 PIXEL
17486 1
17487 +
17488 PIXEL
17489 1
17490 +
17491 PIXEL
17492 1
17493 +
17494 PIXEL
17495 X<>Y
17496 1
17497 +
17498 X<>Y
17499 PIXEL
17500 1
17501 -
17502 PIXEL
17503 1
17504 -
17505 PIXEL
17506 1
17507 -
17508 PIXEL
17509 4
17510 -
17511 PIXEL
17512 1
17513 -
17514 PIXEL
17515 1
17516 -
17517 PIXEL
17518 2
17519 -
17520 PIXEL
17521 4
17522 -
17523 PIXEL
17524 4
17525 -
17526 PIXEL
17527 1
17528 -
17529 PIXEL
17530 X<>Y
17531 1
17532 +
17533 X<>Y
17534 PIXEL
17535 1
17536 +
17537 PIXEL
17538 2
17539 +
17540 PIXEL
17541 2
17542 +
17543 PIXEL
17544 2
17545 +
17546 PIXEL
17547 2
17548 +
17549 PIXEL
17550 2
17551 +
17552 PIXEL
17553 1
17554 +
17555 PIXEL
17556 1
17557 +
17558 PIXEL
17559 2
17560 +
17561 PIXEL
17562 2
17563 +
17564 PIXEL
17565 1
17566 +
17567 PIXEL
17568 1
17569 +
17570 PIXEL
17571 1
17572 +
17573 PIXEL
17574 X<>Y
17575 1
17576 +
17577 X<>Y
17578 PIXEL
17579 1
17580 -
17581 PIXEL
17582 1
17583 -
17584 PIXEL
17585 2
17586 -
17587 PIXEL
17588 1
17589 -
17590 PIXEL
17591 2
17592 -
17593 PIXEL
17594 3
17595 -
17596 PIXEL
17597 1
17598 -
17599 PIXEL
17600 2
17601 -
17602 PIXEL
17603 2
17604 -
17605 PIXEL
17606 1
17607 -
17608 PIXEL
17609 3
17610 -
17611 PIXEL
17612 1
17613 -
17614 PIXEL
17615 X<>Y
17616 1
17617 +
17618 X<>Y
17619 PIXEL
17620 1
17621 +
17622 PIXEL
17623 1
17624 +
17625 PIXEL
17626 1
17627 +
17628 PIXEL
17629 1
17630 +
17631 PIXEL
17632 1
17633 +
17634 PIXEL
17635 1
17636 +
17637 PIXEL
17638 1
17639 +
17640 PIXEL
17641 1
17642 +
17643 PIXEL
17644 1
17645 +
17646 PIXEL
17647 1
17648 +
17649 PIXEL
17650 1
17651 +
17652 PIXEL
17653 1
17654 +
17655 PIXEL
17656 1
17657 +
17658 PIXEL
17659 1
17660 +
17661 PIXEL
17662 1
17663 +
17664 PIXEL
17665 1
17666 +
17667 PIXEL
17668 1
17669 +
17670 PIXEL
17671 1
17672 +
17673 PIXEL
17674 1
17675 +
17676 PIXEL
17677 1
17678 +
17679 PIXEL
17680 KEY 1 GTO 87
17681 KEY 2 GTO 87
17682 KEY 3 GTO 87
17683 KEY 4 GTO 01
17684 KEY 5 GTO 87
17685 KEY 6 GTO 87
17686 KEY 7 GTO 87
17687 KEY 8 GTO 87
17688 KEY 9 GTO 98
17689 STOP
17690 8
17691 ENTER
17692 22
17693 SETDS
17694 GTO 87
17695▸LBL 01
17696 ADV
17697 ADV
17698 RCL "#XMIN"
17699 STO "Xmin "
17700 PRV "Xmin "
17701 CLV "Xmin "
17702 RCL "#XMAX"
17703 STO "Xmax "
17704 PRV "Xmax "
17705 CLV "Xmax "
17706 RCL "#Y-END"
17707 STO "|iY| "
17708 PRV "|iY| "
17709 CLV "|iY| "
17710 RCL "#P-MAX"
17711 STO "Pmax "
17712 PRV "Pmax "
17713 CLV "Pmax "
17714 RCL "#P-MIN"
17715 STO "Pmin "
17716 PRV "Pmin "
17717 CLV "Pmin "
17718 RCL "#P-VK"
17719 "mask <"
17720 5
17721 X<>Y
17722 X>Y?
17723 ├".."
17724 X>Y?
17725 AIP
17726 X>Y?
17727 ├"x0"
17728 X<>Y
17729 X=Y?
17730 ├"00000"
17731 1
17732 -
17733 X=Y?
17734 ├".0000"
17735 1
17736 -
17737 X=Y?
17738 ├"..000"
17739 1
17740 -
17741 X=Y?
17742 ├"...00"
17743 1
17744 -
17745 X=Y?
17746 ├"....0"
17747 1
17748 -
17749 X=Y?
17750 ├"....."
17751 ├","
17752 5
17753 RCL "#P-NK"
17754 X>Y?
17755 ├"0x"
17756 X>Y?
17757 AIP
17758 X>Y?
17759 ├"..>"
17760 X<>Y
17761 X=Y?
17762 ├"00000>"
17763 1
17764 -
17765 X=Y?
17766 ├"0000.>"
17767 1
17768 -
17769 X=Y?
17770 ├"000..>"
17771 1
17772 -
17773 X=Y?
17774 ├"00...>"
17775 1
17776 -
17777 X=Y?
17778 ├"0....>"
17779 1
17780 -
17781 X=Y?
17782 ├".....>"
17783 PRA
17784 PRLCD
17785 ADV
17786 GTO 87
17787▸LBL 90
17788 "NODES & WEIGHTS"
17789 SF 25
17790 CLV "#HPFX"
17791 7
17792 ENTER
17793 100
17794 DIM "#HPFX"
17795 INDEX "#HPFX"
17796 "NODES"
17797 ASTO ST X
17798 STOEL
17799 J+
17800 -0.999804199685638727994974003607983
17801 STOEL
17802 J+
17803 +/-
17804 STOEL
17805 J+
17806 -0.998820150606635379361831272704111
17807 STOEL
17808 J+
17809 +/-
17810 STOEL
17811 J+
17812 -0.9968198142998264694012839590360078
17813 STOEL
17814 J+
17815 +/-
17816 STOEL
17817 J+
17818 -0.9937886619441677907601138592579536
17819 STOEL
17820 J+
17821 +/-
17822 STOEL
17823 J+
17824 -0.989764238414064471063168293135
17825 STOEL
17826 J+
17827 +/-
17828 STOEL
17829 J+
17830 -0.9847578959142130043592989953685747
17831 STOEL
17832 J+
17833 +/-
17834 STOEL
17835 J+
17836 -0.9787573030312066845298589027301962
17837 STOEL
17838 J+
17839 +/-
17840 STOEL
17841 J+
17842 -0.9717622009015553801399724215047741
17843 STOEL
17844 J+
17845 +/-
17846 STOEL
17847 J+
17848 -0.9637900181363554282611096000219869
17849 STOEL
17850 J+
17851 +/-
17852 STOEL
17853 J+
17854 -0.954853658674137233555243679668184
17855 STOEL
17856 J+
17857 +/-
17858 STOEL
17859 J+
17860 -0.944955059221329473155835112992641
17861 STOEL
17862 J+
17863 +/-
17864 STOEL
17865 J+
17866 -0.934100294755810149058982460636545
17867 STOEL
17868 J+
17869 +/-
17870 STOEL
17871 J+
17872 -0.9223054754539361687554290102229532
17873 STOEL
17874 J+
17875 +/-
17876 STOEL
17877 J+
17878 -0.9095856558280732852130196403558001
17879 STOEL
17880 J+
17881 +/-
17882 STOEL
17883 J+
17884 -0.8959496245835934207352332018243469
17885 STOEL
17886 J+
17887 +/-
17888 STOEL
17889 J+
17890 -0.8814084455730089100370315358170049
17891 STOEL
17892 J+
17893 +/-
17894 STOEL
17895 J+
17896 -0.8659800043151457264442523756091547
17897 STOEL
17898 J+
17899 +/-
17900 STOEL
17901 J+
17902 -0.8496821198441657010348818722429793
17903 STOEL
17904 J+
17905 +/-
17906 STOEL
17907 J+
17908 -0.8325285014874601685172633163696317
17909 STOEL
17910 J+
17911 +/-
17912 STOEL
17913 J+
17914 -0.814534427359855431539500787764777
17915 STOEL
17916 J+
17917 +/-
17918 STOEL
17919 J+
17920 -0.7957203207625248381360568099163764
17921 STOEL
17922 J+
17923 +/-
17924 STOEL
17925 J+
17926 -0.776106894345446635018142812248456
17927 STOEL
17928 J+
17929 +/-
17930 STOEL
17931 J+
17932 -0.7557118903695143082456546843790014
17933 STOEL
17934 J+
17935 +/-
17936 STOEL
17937 J+
17938 -0.734554254237402696213674212858525
17939 STOEL
17940 J+
17941 +/-
17942 STOEL
17943 J+
17944 -0.712657066705008830847420587154317
17945 STOEL
17946 J+
17947 +/-
17948 STOEL
17949 J+
17950 -0.6900438244251321135047518072749419
17951 STOEL
17952 J+
17953 +/-
17954 STOEL
17955 J+
17956 -0.666735700841571667866116467842425
17957 STOEL
17958 J+
17959 +/-
17960 STOEL
17961 J+
17962 -0.6427548324192376640568569485839001
17963 STOEL
17964 J+
17965 +/-
17966 STOEL
17967 J+
17968 -0.618126817800879299161146713068752
17969 STOEL
17970 J+
17971 +/-
17972 STOEL
17973 J+
17974 -0.5928776941089007124558643367926285
17975 STOEL
17976 J+
17977 +/-
17978 STOEL
17979 J+
17980 -0.567031549495391732863107815442941
17981 STOEL
17982 J+
17983 +/-
17984 STOEL
17985 J+
17986 -0.540613246991726066558225467229436
17987 STOEL
17988 J+
17989 +/-
17990 STOEL
17991 J+
17992 -0.513650628401734382311100884324782
17993 STOEL
17994 J+
17995 +/-
17996 STOEL
17997 J+
17998 -0.4861719414524920421769760960585751
17999 STOEL
18000 J+
18001 +/-
18002 STOEL
18003 J+
18004 -0.4582036915390298548495608644613814
18005 STOEL
18006 J+
18007 +/-
18008 STOEL
18009 J+
18010 -0.429772993341576524658584141807423
18011 STOEL
18012 J+
18013 +/-
18014 STOEL
18015 J+
18016 -0.4009095739292798809373223889102203
18017 STOEL
18018 J+
18019 +/-
18020 STOEL
18021 J+
18022 -0.371643501262284888863734540946961
18023 STOEL
18024 J+
18025 +/-
18026 STOEL
18027 J+
18028 -0.3420031959918559601078363738324531
18029 STOEL
18030 J+
18031 +/-
18032 STOEL
18033 J+
18034 -0.3120175321197487622078606765064163
18035 STOEL
18036 J+
18037 +/-
18038 STOEL
18039 J+
18040 -0.2817177082410294178774691465638328
18041 STOEL
18042 J+
18043 +/-
18044 STOEL
18045 J+
18046 -0.2511351786125772735071559428246113
18047 STOEL
18048 J+
18049 +/-
18050 STOEL
18051 J+
18052 -0.2202997655098053353242633730358589
18053 STOEL
18054 J+
18055 +/-
18056 STOEL
18057 J+
18058 -0.1892415924618135864853101738599865
18059 STOEL
18060 J+
18061 +/-
18062 STOEL
18063 J+
18064 -0.1579928776643683586660036556130289
18065 STOEL
18066 J+
18067 +/-
18068 STOEL
18069 J+
18070 -0.1265859972696720510679852885755362
18071 STOEL
18072 J+
18073 +/-
18074 STOEL
18075 J+
18076 -0.095051649986123375660035089328368
18077 STOEL
18078 J+
18079 +/-
18080 STOEL
18081 J+
18082 -0.06342068498268678602883482087848497
18083 STOEL
18084 J+
18085 +/-
18086 STOEL
18087 J+
18088 -0.0317258634590731536308193652686307
18089 STOEL
18090 J+
18091 +/-
18092 STOEL
18093 J+
18094 0
18095 STOEL
18096 J+
18097 "KRONROD"
18098 ASTO ST X
18099 STOEL
18100 J+
18101 0.00052747696837833231426392216677
18102 STOEL
18103 J+
18104 STOEL
18105 J+
18106 0.00147796392817436202085567581223501
18107 STOEL
18108 J+
18109 STOEL
18110 J+
18111 0.00252187657314964968451363314444
18112 STOEL
18113 J+
18114 STOEL
18115 J+
18116 0.0035329557014832599891867695315599
18117 STOEL
18118 J+
18119 STOEL
18120 J+
18121 0.0045141331625998620836358420641829
18122 STOEL
18123 J+
18124 STOEL
18125 J+
18126 0.0055014203993380782040404696584139
18127 STOEL
18128 J+
18129 STOEL
18130 J+
18131 0.006499872532166484516849830171239
18132 STOEL
18133 J+
18134 STOEL
18135 J+
18136 0.0074869102764140445198175459913945
18137 STOEL
18138 J+
18139 STOEL
18140 J+
18141 0.008455185639775045670114558371764
18142 STOEL
18143 J+
18144 STOEL
18145 J+
18146 0.0094175722296862066762316928503638
18147 STOEL
18148 J+
18149 STOEL
18150 J+
18151 0.0103787329241166077069683569328913
18152 STOEL
18153 J+
18154 STOEL
18155 J+
18156 0.0113278438578780228794689725519478
18157 STOEL
18158 J+
18159 STOEL
18160 J+
18161 0.0122591748799473589076504729170825
18162 STOEL
18163 J+
18164 STOEL
18165 J+
18166 0.0131792068212079366056557559621176
18167 STOEL
18168 J+
18169 STOEL
18170 J+
18171 0.014091111047270544037748385218045
18172 STOEL
18173 J+
18174 STOEL
18175 J+
18176 0.0149880989346802956592971874255513
18177 STOEL
18178 J+
18179 STOEL
18180 J+
18181 0.015865723698872893130368150761464
18182 STOEL
18183 J+
18184 STOEL
18185 J+
18186 0.0167278985537773186823128361860891
18187 STOEL
18188 J+
18189 STOEL
18190 J+
18191 0.0175768726412448262384462318590166
18192 STOEL
18193 J+
18194 STOEL
18195 J+
18196 0.0184077538519825820281183776609503
18197 STOEL
18198 J+
18199 STOEL
18200 J+
18201 0.0192169329826556442116763155896852
18202 STOEL
18203 J+
18204 STOEL
18205 J+
18206 0.0200070643859274929265393916944815
18207 STOEL
18208 J+
18209 STOEL
18210 J+
18211 0.0207798535198561693336617663172753
18212 STOEL
18213 J+
18214 STOEL
18215 J+
18216 0.0215314818077816867538181700504126
18217 STOEL
18218 J+
18219 STOEL
18220 J+
18221 0.0222589139301299466359937854028854
18222 STOEL
18223 J+
18224 STOEL
18225 J+
18226 0.0229641216311680166298032506167028
18227 STOEL
18228 J+
18229 STOEL
18230 J+
18231 0.023648494373863135027606738151061
18232 STOEL
18233 J+
18234 STOEL
18235 J+
18236 0.0243089029298119497086904956086293
18237 STOEL
18238 J+
18239 STOEL
18240 J+
18241 0.0249427312116380137806008849854078
18242 STOEL
18243 J+
18244 STOEL
18245 J+
18246 0.025551567629898396796236813110352
18247 STOEL
18248 J+
18249 STOEL
18250 J+
18251 0.026136629572717056199681859247504
18252 STOEL
18253 J+
18254 STOEL
18255 J+
18256 0.026695273107158037742721370750002
18257 STOEL
18258 J+
18259 STOEL
18260 J+
18261 0.0272252058087967119960015977339419
18262 STOEL
18263 J+
18264 STOEL
18265 J+
18266 0.0277278075508688728381337851641494
18267 STOEL
18268 J+
18269 STOEL
18270 J+
18271 0.028204220570029200521357749544287
18272 STOEL
18273 J+
18274 STOEL
18275 J+
18276 0.02865216671090199984955207682324
18277 STOEL
18278 J+
18279 STOEL
18280 J+
18281 0.0290696140121504756930876722916518
18282 STOEL
18283 J+
18284 STOEL
18285 J+
18286 0.0294578454056420734075586763875507
18287 STOEL
18288 J+
18289 STOEL
18290 J+
18291 0.0298179973237107521896477020354547
18292 STOEL
18293 J+
18294 STOEL
18295 J+
18296 0.030148081066799933145430671257942
18297 STOEL
18298 J+
18299 STOEL
18300 J+
18301 0.0304462797396858877385633903866
18302 STOEL
18303 J+
18304 STOEL
18305 J+
18306 0.0307138558577390833919631228468087
18307 STOEL
18308 J+
18309 STOEL
18310 J+
18311 0.030951992615566392527522287324914
18312 STOEL
18313 J+
18314 STOEL
18315 J+
18316 0.031158937496597415869647162792595
18317 STOEL
18318 J+
18319 STOEL
18320 J+
18321 0.0313330525912310597588614425068009
18322 STOEL
18323 J+
18324 STOEL
18325 J+
18326 0.0314756358269989035185166465702536
18327 STOEL
18328 J+
18329 STOEL
18330 J+
18331 0.0315879594586859731614238500111578
18332 STOEL
18333 J+
18334 STOEL
18335 J+
18336 0.0316684660566117158446164077085652
18337 STOEL
18338 J+
18339 STOEL
18340 J+
18341 0.031715664503973344041013897230302
18342 STOEL
18343 J+
18344 STOEL
18345 J+
18346 0.0317309313985218944090527052437375
18347 STOEL
18348 J+
18349 "GAUSS"
18350 ASTO ST X
18351 STOEL
18352 J+
18353 0
18354 J+
18355 J+
18356 0.003027278988922905077480698175827
18357 STOEL
18358 J+
18359 STOEL
18360 J+
18361 0
18362 J+
18363 J+
18364 0.007035099590086451473450678311348
18365 STOEL
18366 J+
18367 STOEL
18368 J+
18369 0
18370 J+
18371 J+
18372 0.0110205510315935804975082881668333
18373 STOEL
18374 J+
18375 STOEL
18376 J+
18377 0
18378 J+
18379 J+
18380 0.0149621449356246510295843191202015
18381 STOEL
18382 J+
18383 STOEL
18384 J+
18385 0
18386 J+
18387 J+
18388 0.0188435958530894584444506533911073
18389 STOEL
18390 J+
18391 STOEL
18392 J+
18393 0
18394 J+
18395 J+
18396 0.0226492015874466764987709642160429
18397 STOEL
18398 J+
18399 STOEL
18400 J+
18401 0
18402 J+
18403 J+
18404 0.026363618927066016960945745239742
18405 STOEL
18406 J+
18407 STOEL
18408 J+
18409 0
18410 J+
18411 J+
18412 0.0299718846205838253506905580741472
18413 STOEL
18414 J+
18415 STOEL
18416 J+
18417 0
18418 J+
18419 J+
18420 0.0334594667916221743424871508916892
18421 STOEL
18422 J+
18423 STOEL
18424 J+
18425 0
18426 J+
18427 J+
18428 0.0368123209630006898194672366988823
18429 STOEL
18430 J+
18431 STOEL
18432 J+
18433 0
18434 J+
18435 J+
18436 0.0400169457663730213686050367431033
18437 STOEL
18438 J+
18439 STOEL
18440 J+
18441 0
18442 J+
18443 J+
18444 0.0430604369812595979883454840010385
18445 STOEL
18446 J+
18447 STOEL
18448 J+
18449 0
18450 J+
18451 J+
18452 0.04593053935559585354249961997212767
18453 STOEL
18454 J+
18455 STOEL
18456 J+
18457 0
18458 J+
18459 J+
18460 0.0486156958878282402776511972878685
18461 STOEL
18462 J+
18463 STOEL
18464 J+
18465 0
18466 J+
18467 J+
18468 0.0511050943301445906746228060493186
18469 STOEL
18470 J+
18471 STOEL
18472 J+
18473 0
18474 J+
18475 J+
18476 0.0533887107082589685279429337301762
18477 STOEL
18478 J+
18479 STOEL
18480 J+
18481 0
18482 J+
18483 J+
18484 0.05545734967480358869043158148269807
18485 STOEL
18486 J+
18487 STOEL
18488 J+
18489 0
18490 J+
18491 J+
18492 0.0573026815301874754851645923508165
18493 STOEL
18494 J+
18495 STOEL
18496 J+
18497 0
18498 J+
18499 J+
18500 0.0589172757600272660245276507424925
18501 STOEL
18502 J+
18503 STOEL
18504 J+
18505 0
18506 J+
18507 J+
18508 0.0602946309531520173031061168755416
18509 STOEL
18510 J+
18511 STOEL
18512 J+
18513 0
18514 J+
18515 J+
18516 0.06142920097919293629682664614030107
18517 STOEL
18518 J+
18519 STOEL
18520 J+
18521 0
18522 J+
18523 J+
18524 0.0623164173200572674010768252159497
18525 STOEL
18526 J+
18527 STOEL
18528 J+
18529 0
18530 J+
18531 J+
18532 0.06295270746519569947439955578289101
18533 STOEL
18534 J+
18535 STOEL
18536 J+
18537 0
18538 J+
18539 J+
18540 0.0633355092964917485908369274000905
18541 STOEL
18542 J+
18543 STOEL
18544 J+
18545 0
18546 J+
18547 J+
18548 0.0634632814047905977182534678795296
18549 STOEL
18550 J+
18551 "KQ"
18552 ASTO ST X
18553 STOEL
18554 I+
18555 "GQ"
18556 ASTO ST X
18557 STOEL
18558 I+
18559 "KQ2"
18560 ASTO ST X
18561 STOEL
18562 I+
18563 "GQ2"
18564 ASTO ST X
18565 STOEL
18566 RTN
18567▸LBL 91
18568 "DERIV WEIGHTS"
18569 SF 25
18570 CLV "#HPFX"
18571 75
18572 ENTER
18573 15
18574 DIM "#HPFX"
18575 INDEX "#HPFX"
18576 "DERIV"
18577 ASTO ST X
18578 STOEL
18579 J+
18580 "DSP"
18581 ASTO ST X
18582 STOEL
18583 J+
18584 "#h"
18585 ASTO ST X
18586 STOEL
18587 J+
18588 "DSP"
18589 ASTO ST X
18590 STOEL
18591 J+
18592 "DIV"
18593 ASTO ST X
18594 STOEL
18595 J+
18596 -9
18597 STOEL
18598 J+
18599 -8
18600 STOEL
18601 J+
18602 -7
18603 STOEL
18604 J+
18605 -6
18606 STOEL
18607 J+
18608 -5
18609 STOEL
18610 J+
18611 -4
18612 STOEL
18613 J+
18614 -3
18615 STOEL
18616 J+
18617 -2
18618 STOEL
18619 J+
18620 -1
18621 STOEL
18622 J+
18623 J+
18624 CLX
18625 STOEL
18626 J+
18627 "f"
18628 ASTO ST X
18629 STOEL
18630 J+
18631 CLX
18632 STOEL
18633 J+
18634 "<0>"
18635 ASTO ST X
18636 STOEL
18637 J+
18638 1
18639 STOEL
18640 J+
18641 J+
18642 J+
18643 J+
18644 J+
18645 J+
18646 J+
18647 J+
18648 J+
18649 J+
18650 1
18651 STOEL
18652 J+
18653 1
18654 STOEL
18655 J+
18656 "f'"
18657 ASTO ST X
18658 STOEL
18659 J+
18660 8
18661 STOEL
18662 J+
18663 "<8>"
18664 ASTO ST X
18665 STOEL
18666 J+
18667 840
18668 STOEL
18669 J+
18670 CLX
18671 STOEL
18672 J+
18673 105
18674 STOEL
18675 J+
18676 -960
18677 STOEL
18678 J+
18679 3920
18680 STOEL
18681 J+
18682 -9408
18683 STOEL
18684 J+
18685 14700
18686 STOEL
18687 J+
18688 -15680
18689 STOEL
18690 J+
18691 11760
18692 STOEL
18693 J+
18694 -6720
18695 STOEL
18696 J+
18697 2283
18698 STOEL
18699 J+
18700 1
18701 STOEL
18702 J+
18703 "f'"
18704 ASTO ST X
18705 STOEL
18706 J+
18707 7
18708 STOEL
18709 J+
18710 "<7>"
18711 ASTO ST X
18712 STOEL
18713 J+
18714 840
18715 STOEL
18716 J+
18717 J+
18718 J+
18719 -120
18720 STOEL
18721 J+
18722 980
18723 STOEL
18724 J+
18725 -3528
18726 STOEL
18727 J+
18728 7350
18729 STOEL
18730 J+
18731 -9800
18732 STOEL
18733 J+
18734 8820
18735 STOEL
18736 J+
18737 -5880
18738 STOEL
18739 J+
18740 2178
18741 STOEL
18742 J+
18743 1
18744 STOEL
18745 J+
18746 "f'"
18747 ASTO ST X
18748 STOEL
18749 J+
18750 6
18751 STOEL
18752 J+
18753 "<6>"
18754 ASTO ST X
18755 STOEL
18756 J+
18757 60
18758 STOEL
18759 J+
18760 J+
18761 J+
18762 J+
18763 10
18764 STOEL
18765 J+
18766 -72
18767 STOEL
18768 J+
18769 225
18770 STOEL
18771 J+
18772 -400
18773 STOEL
18774 J+
18775 450
18776 STOEL
18777 J+
18778 -360
18779 STOEL
18780 J+
18781 147
18782 STOEL
18783 J+
18784 1
18785 STOEL
18786 J+
18787 "f'"
18788 ASTO ST X
18789 STOEL
18790 J+
18791 5
18792 STOEL
18793 J+
18794 "<5>"
18795 ASTO ST X
18796 STOEL
18797 J+
18798 60
18799 STOEL
18800 J+
18801 J+
18802 J+
18803 J+
18804 J+
18805 -12
18806 STOEL
18807 J+
18808 75
18809 STOEL
18810 J+
18811 -200
18812 STOEL
18813 J+
18814 300
18815 STOEL
18816 J+
18817 +/-
18818 STOEL
18819 J+
18820 137
18821 STOEL
18822 J+
18823 1
18824 STOEL
18825 J+
18826 "f'"
18827 ASTO ST X
18828 STOEL
18829 J+
18830 4
18831 STOEL
18832 J+
18833 "<4>"
18834 ASTO ST X
18835 STOEL
18836 J+
18837 12
18838 STOEL
18839 J+
18840 J+
18841 J+
18842 J+
18843 J+
18844 J+
18845 3
18846 STOEL
18847 J+
18848 -16
18849 STOEL
18850 J+
18851 36
18852 STOEL
18853 J+
18854 -48
18855 STOEL
18856 J+
18857 25
18858 STOEL
18859 J+
18860 1
18861 STOEL
18862 J+
18863 "f'"
18864 ASTO ST X
18865 STOEL
18866 J+
18867 3
18868 STOEL
18869 J+
18870 "<3>"
18871 ASTO ST X
18872 STOEL
18873 J+
18874 6
18875 STOEL
18876 J+
18877 J+
18878 J+
18879 J+
18880 J+
18881 J+
18882 J+
18883 -2
18884 STOEL
18885 J+
18886 9
18887 STOEL
18888 J+
18889 -18
18890 STOEL
18891 J+
18892 11
18893 STOEL
18894 J+
18895 1
18896 STOEL
18897 J+
18898 "f'"
18899 ASTO ST X
18900 STOEL
18901 J+
18902 2
18903 STOEL
18904 J+
18905 "<2>"
18906 ASTO ST X
18907 STOEL
18908 J+
18909 2
18910 STOEL
18911 J+
18912 J+
18913 J+
18914 J+
18915 J+
18916 J+
18917 J+
18918 J+
18919 1
18920 STOEL
18921 J+
18922 -4
18923 STOEL
18924 J+
18925 3
18926 STOEL
18927 J+
18928 1
18929 STOEL
18930 J+
18931 "f'"
18932 ASTO ST X
18933 STOEL
18934 J+
18935 1
18936 STOEL
18937 J+
18938 "<1>"
18939 ASTO ST X
18940 STOEL
18941 J+
18942 1
18943 STOEL
18944 J+
18945 J+
18946 J+
18947 J+
18948 J+
18949 J+
18950 J+
18951 J+
18952 J+
18953 -1
18954 STOEL
18955 J+
18956 +/-
18957 STOEL
18958 J+
18959 2
18960 STOEL
18961 J+
18962 "f''"
18963 ASTO ST X
18964 STOEL
18965 J+
18966 8
18967 STOEL
18968 J+
18969 "<8>"
18970 ASTO ST X
18971 STOEL
18972 J+
18973 5040
18974 STOEL
18975 J+
18976 J+
18977 3267
18978 STOEL
18979 J+
18980 -29664
18981 STOEL
18982 J+
18983 120008
18984 STOEL
18985 J+
18986 -284256
18987 STOEL
18988 J+
18989 435330
18990 STOEL
18991 J+
18992 -448672
18993 STOEL
18994 J+
18995 312984
18996 STOEL
18997 J+
18998 -138528
18999 STOEL
19000 J+
19001 29531
19002 STOEL
19003 J+
19004 2
19005 STOEL
19006 J+
19007 "f''"
19008 ASTO ST X
19009 STOEL
19010 J+
19011 7
19012 STOEL
19013 J+
19014 "<7>"
19015 ASTO ST X
19016 STOEL
19017 J+
19018 180
19019 STOEL
19020 J+
19021 J+
19022 J+
19023 -126
19024 STOEL
19025 J+
19026 1019
19027 STOEL
19028 J+
19029 -3618
19030 STOEL
19031 J+
19032 7380
19033 STOEL
19034 J+
19035 -9490
19036 STOEL
19037 J+
19038 7911
19039 STOEL
19040 J+
19041 -4014
19042 STOEL
19043 J+
19044 938
19045 STOEL
19046 J+
19047 2
19048 STOEL
19049 J+
19050 "f''"
19051 ASTO ST X
19052 STOEL
19053 J+
19054 6
19055 STOEL
19056 J+
19057 "<6>"
19058 ASTO ST X
19059 STOEL
19060 J+
19061 180
19062 STOEL
19063 J+
19064 J+
19065 J+
19066 J+
19067 137
19068 STOEL
19069 J+
19070 -972
19071 STOEL
19072 J+
19073 2970
19074 STOEL
19075 J+
19076 -5080
19077 STOEL
19078 J+
19079 5265
19080 STOEL
19081 J+
19082 -3132
19083 STOEL
19084 J+
19085 812
19086 STOEL
19087 J+
19088 2
19089 STOEL
19090 J+
19091 "f''"
19092 ASTO ST X
19093 STOEL
19094 J+
19095 5
19096 STOEL
19097 J+
19098 "<5>"
19099 ASTO ST X
19100 STOEL
19101 J+
19102 12
19103 STOEL
19104 J+
19105 J+
19106 J+
19107 J+
19108 J+
19109 -10
19110 STOEL
19111 J+
19112 61
19113 STOEL
19114 J+
19115 -156
19116 STOEL
19117 J+
19118 214
19119 STOEL
19120 J+
19121 -154
19122 STOEL
19123 J+
19124 45
19125 STOEL
19126 J+
19127 2
19128 STOEL
19129 J+
19130 "f''"
19131 ASTO ST X
19132 STOEL
19133 J+
19134 4
19135 STOEL
19136 J+
19137 "<4>"
19138 ASTO ST X
19139 STOEL
19140 J+
19141 12
19142 STOEL
19143 J+
19144 J+
19145 J+
19146 J+
19147 J+
19148 J+
19149 11
19150 STOEL
19151 J+
19152 -56
19153 STOEL
19154 J+
19155 114
19156 STOEL
19157 J+
19158 -104
19159 STOEL
19160 J+
19161 35
19162 STOEL
19163 J+
19164 2
19165 STOEL
19166 J+
19167 "f''"
19168 ASTO ST X
19169 STOEL
19170 J+
19171 3
19172 STOEL
19173 J+
19174 "<3>"
19175 ASTO ST X
19176 STOEL
19177 J+
19178 1
19179 STOEL
19180 J+
19181 J+
19182 J+
19183 J+
19184 J+
19185 J+
19186 J+
19187 -1
19188 STOEL
19189 J+
19190 4
19191 STOEL
19192 J+
19193 -5
19194 STOEL
19195 J+
19196 2
19197 STOEL
19198 J+
19199 2
19200 STOEL
19201 J+
19202 "f''"
19203 ASTO ST X
19204 STOEL
19205 J+
19206 2
19207 STOEL
19208 J+
19209 "<2>"
19210 ASTO ST X
19211 STOEL
19212 J+
19213 1
19214 STOEL
19215 J+
19216 J+
19217 J+
19218 J+
19219 J+
19220 J+
19221 J+
19222 J+
19223 STOEL
19224 J+
19225 -2
19226 STOEL
19227 J+
19228 1
19229 STOEL
19230 J+
19231 3
19232 STOEL
19233 J+
19234 "f'''"
19235 ASTO ST X
19236 STOEL
19237 J+
19238 8
19239 STOEL
19240 J+
19241 "<8>"
19242 ASTO ST X
19243 STOEL
19244 J+
19245 240
19246 STOEL
19247 J+
19248 J+
19249 469
19250 STOEL
19251 J+
19252 -4216
19253 STOEL
19254 J+
19255 16830
19256 STOEL
19257 J+
19258 -39128
19259 STOEL
19260 J+
19261 58280
19262 STOEL
19263 J+
19264 -57384
19265 STOEL
19266 J+
19267 36706
19268 STOEL
19269 J+
19270 -13960
19271 STOEL
19272 J+
19273 2403
19274 STOEL
19275 J+
19276 3
19277 STOEL
19278 J+
19279 "f'''"
19280 ASTO ST X
19281 STOEL
19282 J+
19283 7
19284 STOEL
19285 J+
19286 "<7>"
19287 ASTO ST X
19288 STOEL
19289 J+
19290 120
19291 STOEL
19292 J+
19293 J+
19294 J+
19295 -232
19296 STOEL
19297 J+
19298 1849
19299 STOEL
19300 J+
19301 -6432
19302 STOEL
19303 J+
19304 12725
19305 STOEL
19306 J+
19307 -15560
19308 STOEL
19309 J+
19310 11787
19311 STOEL
19312 J+
19313 -5104
19314 STOEL
19315 J+
19316 967
19317 STOEL
19318 J+
19319 3
19320 STOEL
19321 J+
19322 "f'''"
19323 ASTO ST X
19324 STOEL
19325 J+
19326 6
19327 STOEL
19328 J+
19329 "<6>"
19330 ASTO ST X
19331 STOEL
19332 J+
19333 8
19334 STOEL
19335 J+
19336 J+
19337 J+
19338 J+
19339 15
19340 STOEL
19341 J+
19342 -104
19343 STOEL
19344 J+
19345 307
19346 STOEL
19347 J+
19348 -496
19349 STOEL
19350 J+
19351 461
19352 STOEL
19353 J+
19354 -232
19355 STOEL
19356 J+
19357 49
19358 STOEL
19359 J+
19360 3
19361 STOEL
19362 J+
19363 "f'''"
19364 ASTO ST X
19365 STOEL
19366 J+
19367 5
19368 STOEL
19369 J+
19370 "<5>"
19371 ASTO ST X
19372 STOEL
19373 J+
19374 4
19375 STOEL
19376 J+
19377 J+
19378 J+
19379 J+
19380 J+
19381 -7
19382 STOEL
19383 J+
19384 41
19385 STOEL
19386 J+
19387 -98
19388 STOEL
19389 J+
19390 118
19391 STOEL
19392 J+
19393 -71
19394 STOEL
19395 J+
19396 17
19397 STOEL
19398 J+
19399 3
19400 STOEL
19401 J+
19402 "f'''"
19403 ASTO ST X
19404 STOEL
19405 J+
19406 4
19407 STOEL
19408 J+
19409 "<4>"
19410 ASTO ST X
19411 STOEL
19412 J+
19413 2
19414 STOEL
19415 J+
19416 J+
19417 J+
19418 J+
19419 J+
19420 J+
19421 3
19422 STOEL
19423 J+
19424 -14
19425 STOEL
19426 J+
19427 24
19428 STOEL
19429 J+
19430 -18
19431 STOEL
19432 J+
19433 5
19434 STOEL
19435 J+
19436 3
19437 STOEL
19438 J+
19439 "f'''"
19440 ASTO ST X
19441 STOEL
19442 J+
19443 3
19444 STOEL
19445 J+
19446 "<3>"
19447 ASTO ST X
19448 STOEL
19449 J+
19450 1
19451 STOEL
19452 J+
19453 J+
19454 J+
19455 J+
19456 J+
19457 J+
19458 J+
19459 -1
19460 STOEL
19461 J+
19462 3
19463 STOEL
19464 J+
19465 +/-
19466 STOEL
19467 J+
19468 1
19469 STOEL
19470 J+
19471 4
19472 STOEL
19473 J+
19474 "f(4)"
19475 ASTO ST X
19476 STOEL
19477 J+
19478 8
19479 STOEL
19480 J+
19481 "<8>"
19482 ASTO ST X
19483 STOEL
19484 J+
19485 240
19486 STOEL
19487 J+
19488 J+
19489 967
19490 STOEL
19491 J+
19492 -8576
19493 STOEL
19494 J+
19495 33636
19496 STOEL
19497 J+
19498 -76352
19499 STOEL
19500 J+
19501 109930
19502 STOEL
19503 J+
19504 -102912
19505 STOEL
19506 J+
19507 61156
19508 STOEL
19509 J+
19510 -21056
19511 STOEL
19512 J+
19513 3207
19514 STOEL
19515 J+
19516 4
19517 STOEL
19518 J+
19519 "f(4)"
19520 ASTO ST X
19521 STOEL
19522 J+
19523 7
19524 STOEL
19525 J+
19526 "<7>"
19527 ASTO ST X
19528 STOEL
19529 J+
19530 6
19531 STOEL
19532 J+
19533 J+
19534 J+
19535 -21
19536 STOEL
19537 J+
19538 164
19539 STOEL
19540 J+
19541 -555
19542 STOEL
19543 J+
19544 1056
19545 STOEL
19546 J+
19547 -1219
19548 STOEL
19549 J+
19550 852
19551 STOEL
19552 J+
19553 -333
19554 STOEL
19555 J+
19556 56
19557 STOEL
19558 J+
19559 4
19560 STOEL
19561 J+
19562 "f(4)"
19563 ASTO ST X
19564 STOEL
19565 J+
19566 6
19567 STOEL
19568 J+
19569 "<6>"
19570 ASTO ST X
19571 STOEL
19572 J+
19573 6
19574 STOEL
19575 J+
19576 J+
19577 J+
19578 J+
19579 17
19580 STOEL
19581 J+
19582 -114
19583 STOEL
19584 J+
19585 321
19586 STOEL
19587 J+
19588 -484
19589 STOEL
19590 J+
19591 411
19592 STOEL
19593 J+
19594 -186
19595 STOEL
19596 J+
19597 35
19598 STOEL
19599 J+
19600 4
19601 STOEL
19602 J+
19603 "f(4)"
19604 ASTO ST X
19605 STOEL
19606 J+
19607 5
19608 STOEL
19609 J+
19610 "<5>"
19611 ASTO ST X
19612 STOEL
19613 J+
19614 1
19615 STOEL
19616 J+
19617 J+
19618 J+
19619 J+
19620 J+
19621 -2
19622 STOEL
19623 J+
19624 11
19625 STOEL
19626 J+
19627 -24
19628 STOEL
19629 J+
19630 26
19631 STOEL
19632 J+
19633 -14
19634 STOEL
19635 J+
19636 3
19637 STOEL
19638 J+
19639 4
19640 STOEL
19641 J+
19642 "f(4)"
19643 ASTO ST X
19644 STOEL
19645 J+
19646 4
19647 STOEL
19648 J+
19649 "<4>"
19650 ASTO ST X
19651 STOEL
19652 J+
19653 1
19654 STOEL
19655 J+
19656 J+
19657 J+
19658 J+
19659 J+
19660 J+
19661 1
19662 STOEL
19663 J+
19664 -4
19665 STOEL
19666 J+
19667 6
19668 STOEL
19669 J+
19670 -4
19671 STOEL
19672 J+
19673 1
19674 STOEL
19675 J+
19676 5
19677 STOEL
19678 J+
19679 "f(5)"
19680 ASTO ST X
19681 STOEL
19682 J+
19683 8
19684 STOEL
19685 J+
19686 "<8>"
19687 ASTO ST X
19688 STOEL
19689 J+
19690 6
19691 STOEL
19692 J+
19693 J+
19694 35
19695 STOEL
19696 J+
19697 -305
19698 STOEL
19699 J+
19700 1170
19701 STOEL
19702 J+
19703 -2581
19704 STOEL
19705 J+
19706 3580
19707 STOEL
19708 J+
19709 -3195
19710 STOEL
19711 J+
19712 1790
19713 STOEL
19714 J+
19715 -575
19716 STOEL
19717 J+
19718 81
19719 STOEL
19720 J+
19721 5
19722 STOEL
19723 J+
19724 "f(5)"
19725 ASTO ST X
19726 STOEL
19727 J+
19728 7
19729 STOEL
19730 J+
19731 "<7>"
19732 ASTO ST X
19733 STOEL
19734 J+
19735 6
19736 STOEL
19737 J+
19738 J+
19739 J+
19740 -25
19741 STOEL
19742 J+
19743 190
19744 STOEL
19745 J+
19746 -621
19747 STOEL
19748 J+
19749 1130
19750 STOEL
19751 J+
19752 -1235
19753 STOEL
19754 J+
19755 810
19756 STOEL
19757 J+
19758 -295
19759 STOEL
19760 J+
19761 46
19762 STOEL
19763 J+
19764 5
19765 STOEL
19766 J+
19767 "f(5)"
19768 ASTO ST X
19769 STOEL
19770 J+
19771 6
19772 STOEL
19773 J+
19774 "<6>"
19775 ASTO ST X
19776 STOEL
19777 J+
19778 2
19779 STOEL
19780 J+
19781 J+
19782 J+
19783 J+
19784 5
19785 STOEL
19786 J+
19787 -32
19788 STOEL
19789 J+
19790 85
19791 STOEL
19792 J+
19793 -120
19794 STOEL
19795 J+
19796 95
19797 STOEL
19798 J+
19799 -40
19800 STOEL
19801 J+
19802 7
19803 STOEL
19804 J+
19805 5
19806 STOEL
19807 J+
19808 "f(5)"
19809 ASTO ST X
19810 STOEL
19811 J+
19812 5
19813 STOEL
19814 J+
19815 "<5>"
19816 ASTO ST X
19817 STOEL
19818 J+
19819 1
19820 STOEL
19821 J+
19822 J+
19823 J+
19824 J+
19825 J+
19826 -1
19827 STOEL
19828 J+
19829 5
19830 STOEL
19831 J+
19832 -10
19833 STOEL
19834 J+
19835 10
19836 STOEL
19837 J+
19838 -5
19839 STOEL
19840 J+
19841 1
19842 STOEL
19843 J+
19844 6
19845 STOEL
19846 J+
19847 "f(6)"
19848 ASTO ST X
19849 STOEL
19850 J+
19851 8
19852 STOEL
19853 J+
19854 "<8>"
19855 ASTO ST X
19856 STOEL
19857 J+
19858 4
19859 STOEL
19860 J+
19861 J+
19862 23
19863 STOEL
19864 J+
19865 -196
19866 STOEL
19867 J+
19868 732
19869 STOEL
19870 J+
19871 -1564
19872 STOEL
19873 J+
19874 2090
19875 STOEL
19876 J+
19877 -1788
19878 STOEL
19879 J+
19880 956
19881 STOEL
19882 J+
19883 -292
19884 STOEL
19885 J+
19886 39
19887 STOEL
19888 J+
19889 6
19890 STOEL
19891 J+
19892 "f(6)"
19893 ASTO ST X
19894 STOEL
19895 J+
19896 7
19897 STOEL
19898 J+
19899 "<7>"
19900 ASTO ST X
19901 STOEL
19902 J+
19903 1
19904 STOEL
19905 J+
19906 J+
19907 J+
19908 -3
19909 STOEL
19910 J+
19911 22
19912 STOEL
19913 J+
19914 -69
19915 STOEL
19916 J+
19917 120
19918 STOEL
19919 J+
19920 -125
19921 STOEL
19922 J+
19923 78
19924 STOEL
19925 J+
19926 -27
19927 STOEL
19928 J+
19929 4
19930 STOEL
19931 J+
19932 6
19933 STOEL
19934 J+
19935 "f(6)"
19936 ASTO ST X
19937 STOEL
19938 J+
19939 6
19940 STOEL
19941 J+
19942 "<6>"
19943 ASTO ST X
19944 STOEL
19945 J+
19946 1
19947 STOEL
19948 J+
19949 J+
19950 J+
19951 J+
19952 1
19953 STOEL
19954 J+
19955 -6
19956 STOEL
19957 J+
19958 15
19959 STOEL
19960 J+
19961 -20
19962 STOEL
19963 J+
19964 15
19965 STOEL
19966 J+
19967 -6
19968 STOEL
19969 J+
19970 1
19971 STOEL
19972 J+
19973 7
19974 STOEL
19975 J+
19976 "f(7)"
19977 ASTO ST X
19978 STOEL
19979 J+
19980 8
19981 STOEL
19982 J+
19983 "<8>"
19984 ASTO ST X
19985 STOEL
19986 J+
19987 2
19988 STOEL
19989 J+
19990 J+
19991 7
19992 STOEL
19993 J+
19994 -58
19995 STOEL
19996 J+
19997 210
19998 STOEL
19999 J+
20000 -434
20001 STOEL
20002 J+
20003 560
20004 STOEL
20005 J+
20006 -462
20007 STOEL
20008 J+
20009 238
20010 STOEL
20011 J+
20012 -70
20013 STOEL
20014 J+
20015 9
20016 STOEL
20017 J+
20018 7
20019 STOEL
20020 J+
20021 "f(7)"
20022 ASTO ST X
20023 STOEL
20024 J+
20025 7
20026 STOEL
20027 J+
20028 "<7>"
20029 ASTO ST X
20030 STOEL
20031 J+
20032 1
20033 STOEL
20034 J+
20035 J+
20036 J+
20037 -1
20038 STOEL
20039 J+
20040 7
20041 STOEL
20042 J+
20043 -21
20044 STOEL
20045 J+
20046 35
20047 STOEL
20048 J+
20049 -35
20050 STOEL
20051 J+
20052 21
20053 STOEL
20054 J+
20055 -7
20056 STOEL
20057 J+
20058 1
20059 STOEL
20060 J+
20061 8
20062 STOEL
20063 J+
20064 "f(8)"
20065 ASTO ST X
20066 STOEL
20067 J+
20068 8
20069 STOEL
20070 J+
20071 "<8>"
20072 ASTO ST X
20073 STOEL
20074 J+
20075 1
20076 STOEL
20077 J+
20078 J+
20079 1
20080 STOEL
20081 J+
20082 -8
20083 STOEL
20084 J+
20085 28
20086 STOEL
20087 J+
20088 -56
20089 STOEL
20090 J+
20091 70
20092 STOEL
20093 J+
20094 -56
20095 STOEL
20096 J+
20097 28
20098 STOEL
20099 J+
20100 -8
20101 STOEL
20102 J+
20103 1
20104 STOEL
20105 J+
20106 I+
20107 "CENTRAL WEIGHTS"
20108 CLX
20109 STOEL
20110 J+
20111 "f"
20112 ASTO ST X
20113 STOEL
20114 J+
20115 0
20116 STOEL
20117 J+
20118 "(0.0)"
20119 ASTO ST X
20120 STOEL
20121 J+
20122 1
20123 STOEL
20124 J+
20125 J+
20126 J+
20127 J+
20128 J+
20129 J+
20130 J+
20131 J+
20132 J+
20133 J+
20134 1
20135 STOEL
20136 J+
20137 10
20138 STOEL
20139 J+
20140 "f(10)"
20141 ASTO ST X
20142 STOEL
20143 J+
20144 8
20145 STOEL
20146 J+
20147 "(8.8)"
20148 ASTO ST X
20149 STOEL
20150 J+
20151 2016
20152 STOEL
20153 J+
20154 J+
20155 -67
20156 STOEL
20157 J+
20158 1324
20159 STOEL
20160 J+
20161 -12408
20162 STOEL
20163 J+
20164 72548
20165 STOEL
20166 J+
20167 -289268
20168 STOEL
20169 J+
20170 820428
20171 STOEL
20172 J+
20173 -1698760
20174 STOEL
20175 J+
20176 2611876
20177 STOEL
20178 J+
20179 -3011346
20180 STOEL
20181 J+
20182 9
20183 STOEL
20184 J+
20185 "f(9)"
20186 ASTO ST X
20187 STOEL
20188 J+
20189 8
20190 STOEL
20191 J+
20192 "(8.8)"
20193 ASTO ST X
20194 STOEL
20195 J+
20196 5040
20197 STOEL
20198 J+
20199 J+
20200 134
20201 STOEL
20202 J+
20203 -2317
20204 STOEL
20205 J+
20206 18612
20207 STOEL
20208 J+
20209 -90685
20210 STOEL
20211 J+
20212 289268
20213 STOEL
20214 J+
20215 -615321
20216 STOEL
20217 J+
20218 849380
20219 STOEL
20220 J+
20221 -652969
20222 STOEL
20223 J+
20224 CLX
20225 STOEL
20226 J+
20227 10
20228 STOEL
20229 J+
20230 "f(10)"
20231 ASTO ST X
20232 STOEL
20233 J+
20234 6
20235 STOEL
20236 J+
20237 "(6.6)"
20238 ASTO ST X
20239 STOEL
20240 J+
20241 12
20242 STOEL
20243 J+
20244 J+
20245 J+
20246 J+
20247 -5
20248 STOEL
20249 J+
20250 72
20251 STOEL
20252 J+
20253 -450
20254 STOEL
20255 J+
20256 1640
20257 STOEL
20258 J+
20259 -3915
20260 STOEL
20261 J+
20262 6480
20263 STOEL
20264 J+
20265 -7644
20266 STOEL
20267 J+
20268 9
20269 STOEL
20270 J+
20271 "f(9)"
20272 ASTO ST X
20273 STOEL
20274 J+
20275 6
20276 STOEL
20277 J+
20278 "(6.6)"
20279 ASTO ST X
20280 STOEL
20281 J+
20282 4
20283 STOEL
20284 J+
20285 J+
20286 J+
20287 J+
20288 1
20289 STOEL
20290 J+
20291 -12
20292 STOEL
20293 J+
20294 60
20295 STOEL
20296 J+
20297 -164
20298 STOEL
20299 J+
20300 261
20301 STOEL
20302 J+
20303 -216
20304 STOEL
20305 J+
20306 CLX
20307 STOEL
20308 J+
20309 8
20310 STOEL
20311 J+
20312 "f(8)"
20313 ASTO ST X
20314 STOEL
20315 J+
20316 6
20317 STOEL
20318 J+
20319 "(6.6)"
20320 ASTO ST X
20321 STOEL
20322 J+
20323 360
20324 STOEL
20325 J+
20326 J+
20327 J+
20328 J+
20329 31
20330 STOEL
20331 J+
20332 -492
20333 STOEL
20334 J+
20335 3606
20336 STOEL
20337 J+
20338 -15100
20339 STOEL
20340 J+
20341 39825
20342 STOEL
20343 J+
20344 -69912
20345 STOEL
20346 J+
20347 84084
20348 STOEL
20349 J+
20350 7
20351 STOEL
20352 J+
20353 "f(7)"
20354 ASTO ST X
20355 STOEL
20356 J+
20357 6
20358 STOEL
20359 J+
20360 "(6.6)"
20361 ASTO ST X
20362 STOEL
20363 J+
20364 480
20365 STOEL
20366 J+
20367 J+
20368 J+
20369 J+
20370 -31
20371 STOEL
20372 J+
20373 410
20374 STOEL
20375 J+
20376 -2404
20377 STOEL
20378 J+
20379 7550
20380 STOEL
20381 J+
20382 -13275
20383 STOEL
20384 J+
20385 11652
20386 STOEL
20387 J+
20388 CLX
20389 STOEL
20390 J+
20391 10
20392 STOEL
20393 J+
20394 "f(10)"
20395 ASTO ST X
20396 STOEL
20397 J+
20398 5
20399 STOEL
20400 J+
20401 "(5.5)"
20402 ASTO ST X
20403 STOEL
20404 J+
20405 1
20406 STOEL
20407 J+
20408 J+
20409 J+
20410 J+
20411 J+
20412 1
20413 STOEL
20414 J+
20415 -10
20416 STOEL
20417 J+
20418 45
20419 STOEL
20420 J+
20421 -120
20422 STOEL
20423 J+
20424 210
20425 STOEL
20426 J+
20427 -252
20428 STOEL
20429 J+
20430 9
20431 STOEL
20432 J+
20433 "f(9)"
20434 ASTO ST X
20435 STOEL
20436 J+
20437 5
20438 STOEL
20439 J+
20440 "(5.5)"
20441 ASTO ST X
20442 STOEL
20443 J+
20444 2
20445 STOEL
20446 J+
20447 J+
20448 J+
20449 J+
20450 J+
20451 -1
20452 STOEL
20453 J+
20454 8
20455 STOEL
20456 J+
20457 -27
20458 STOEL
20459 J+
20460 48
20461 STOEL
20462 J+
20463 -42
20464 STOEL
20465 J+
20466 CLX
20467 STOEL
20468 J+
20469 8
20470 STOEL
20471 J+
20472 "f(8)"
20473 ASTO ST X
20474 STOEL
20475 J+
20476 5
20477 STOEL
20478 J+
20479 "(5.5)"
20480 ASTO ST X
20481 STOEL
20482 J+
20483 3
20484 STOEL
20485 J+
20486 J+
20487 J+
20488 J+
20489 J+
20490 -1
20491 STOEL
20492 J+
20493 13
20494 STOEL
20495 J+
20496 -69
20497 STOEL
20498 J+
20499 204
20500 STOEL
20501 J+
20502 -378
20503 STOEL
20504 J+
20505 462
20506 STOEL
20507 J+
20508 7
20509 STOEL
20510 J+
20511 "f(7)"
20512 ASTO ST X
20513 STOEL
20514 J+
20515 5
20516 STOEL
20517 J+
20518 "(5.5)"
20519 ASTO ST X
20520 STOEL
20521 J+
20522 24
20523 STOEL
20524 J+
20525 J+
20526 J+
20527 J+
20528 J+
20529 5
20530 STOEL
20531 J+
20532 -52
20533 STOEL
20534 J+
20535 207
20536 STOEL
20537 J+
20538 -408
20539 STOEL
20540 J+
20541 378
20542 STOEL
20543 J+
20544 CLX
20545 STOEL
20546 J+
20547 6
20548 STOEL
20549 J+
20550 "f(6)"
20551 ASTO ST X
20552 STOEL
20553 J+
20554 5
20555 STOEL
20556 J+
20557 "(5.5)"
20558 ASTO ST X
20559 STOEL
20560 J+
20561 240
20562 STOEL
20563 J+
20564 J+
20565 J+
20566 J+
20567 J+
20568 13
20569 STOEL
20570 J+
20571 -190
20572 STOEL
20573 J+
20574 1305
20575 STOEL
20576 J+
20577 -4680
20578 STOEL
20579 J+
20580 9690
20581 STOEL
20582 J+
20583 -12276
20584 STOEL
20585 J+
20586 5
20587 STOEL
20588 J+
20589 "f(5)"
20590 ASTO ST X
20591 STOEL
20592 J+
20593 5
20594 STOEL
20595 J+
20596 "(5.5)"
20597 ASTO ST X
20598 STOEL
20599 J+
20600 288
20601 STOEL
20602 J+
20603 J+
20604 J+
20605 J+
20606 J+
20607 -13
20608 STOEL
20609 J+
20610 152
20611 STOEL
20612 J+
20613 -783
20614 STOEL
20615 J+
20616 1872
20617 STOEL
20618 J+
20619 -1938
20620 STOEL
20621 J+
20622 CLX
20623 STOEL
20624 J+
20625 4
20626 STOEL
20627 J+
20628 "f(4)"
20629 ASTO ST X
20630 STOEL
20631 J+
20632 5
20633 STOEL
20634 J+
20635 "(5.5)"
20636 ASTO ST X
20637 STOEL
20638 J+
20639 15120
20640 STOEL
20641 J+
20642 J+
20643 J+
20644 J+
20645 J+
20646 -82
20647 STOEL
20648 J+
20649 1261
20650 STOEL
20651 J+
20652 -9738
20653 STOEL
20654 J+
20655 52428
20656 STOEL
20657 J+
20658 -140196
20659 STOEL
20660 J+
20661 192654
20662 STOEL
20663 J+
20664 3
20665 STOEL
20666 J+
20667 "f'''"
20668 ASTO ST X
20669 STOEL
20670 J+
20671 5
20672 STOEL
20673 J+
20674 "(5.5)"
20675 ASTO ST X
20676 STOEL
20677 J+
20678 30240
20679 STOEL
20680 J+
20681 J+
20682 J+
20683 J+
20684 J+
20685 205
20686 STOEL
20687 J+
20688 -2522
20689 STOEL
20690 J+
20691 14607
20692 STOEL
20693 J+
20694 -52428
20695 STOEL
20696 J+
20697 70098
20698 STOEL
20699 J+
20700 CLX
20701 STOEL
20702 J+
20703 2
20704 STOEL
20705 J+
20706 "f''"
20707 ASTO ST X
20708 STOEL
20709 J+
20710 5
20711 STOEL
20712 J+
20713 "(5.5)"
20714 ASTO ST X
20715 STOEL
20716 J+
20717 25200
20718 STOEL
20719 J+
20720 J+
20721 J+
20722 J+
20723 J+
20724 8
20725 STOEL
20726 J+
20727 -125
20728 STOEL
20729 J+
20730 1000
20731 STOEL
20732 J+
20733 -6000
20734 STOEL
20735 J+
20736 42000
20737 STOEL
20738 J+
20739 -73766
20740 STOEL
20741 J+
20742 1
20743 STOEL
20744 J+
20745 "f'"
20746 ASTO ST X
20747 STOEL
20748 J+
20749 5
20750 STOEL
20751 J+
20752 "(5.5)"
20753 ASTO ST X
20754 STOEL
20755 J+
20756 12600
20757 STOEL
20758 J+
20759 J+
20760 J+
20761 J+
20762 J+
20763 -10
20764 STOEL
20765 J+
20766 125
20767 STOEL
20768 J+
20769 -750
20770 STOEL
20771 J+
20772 3000
20773 STOEL
20774 J+
20775 -10500
20776 STOEL
20777 J+
20778 CLX
20779 STOEL
20780 J+
20781 8
20782 STOEL
20783 J+
20784 "f(8)"
20785 ASTO ST X
20786 STOEL
20787 J+
20788 4
20789 STOEL
20790 J+
20791 "(4.4)"
20792 ASTO ST X
20793 STOEL
20794 J+
20795 1
20796 STOEL
20797 J+
20798 J+
20799 J+
20800 J+
20801 J+
20802 J+
20803 1
20804 STOEL
20805 J+
20806 -8
20807 STOEL
20808 J+
20809 28
20810 STOEL
20811 J+
20812 56
20813 STOEL
20814 J+
20815 70
20816 STOEL
20817 J+
20818 7
20819 STOEL
20820 J+
20821 "f(7)"
20822 ASTO ST X
20823 STOEL
20824 J+
20825 4
20826 STOEL
20827 J+
20828 "(4.4)"
20829 ASTO ST X
20830 STOEL
20831 J+
20832 2
20833 STOEL
20834 J+
20835 J+
20836 J+
20837 J+
20838 J+
20839 J+
20840 -1
20841 STOEL
20842 J+
20843 6
20844 STOEL
20845 J+
20846 -14
20847 STOEL
20848 J+
20849 14
20850 STOEL
20851 J+
20852 CLX
20853 STOEL
20854 J+
20855 6
20856 STOEL
20857 J+
20858 "f(6)"
20859 ASTO ST X
20860 STOEL
20861 J+
20862 4
20863 STOEL
20864 J+
20865 "(4.4)"
20866 ASTO ST X
20867 STOEL
20868 J+
20869 4
20870 STOEL
20871 J+
20872 J+
20873 J+
20874 J+
20875 J+
20876 J+
20877 -1
20878 STOEL
20879 J+
20880 12
20881 STOEL
20882 J+
20883 -52
20884 STOEL
20885 J+
20886 116
20887 STOEL
20888 J+
20889 -150
20890 STOEL
20891 J+
20892 5
20893 STOEL
20894 J+
20895 "f(5)"
20896 ASTO ST X
20897 STOEL
20898 J+
20899 4
20900 STOEL
20901 J+
20902 "(4.4)"
20903 ASTO ST X
20904 STOEL
20905 J+
20906 6
20907 STOEL
20908 J+
20909 J+
20910 J+
20911 J+
20912 J+
20913 J+
20914 1
20915 STOEL
20916 J+
20917 -9
20918 STOEL
20919 J+
20920 26
20921 STOEL
20922 J+
20923 -29
20924 STOEL
20925 J+
20926 CLX
20927 STOEL
20928 J+
20929 4
20930 STOEL
20931 J+
20932 "f(4)"
20933 ASTO ST X
20934 STOEL
20935 J+
20936 4
20937 STOEL
20938 J+
20939 "(4.4)"
20940 ASTO ST X
20941 STOEL
20942 J+
20943 240
20944 STOEL
20945 J+
20946 J+
20947 J+
20948 J+
20949 J+
20950 J+
20951 7
20952 STOEL
20953 J+
20954 -96
20955 STOEL
20956 J+
20957 676
20958 STOEL
20959 J+
20960 -1952
20961 STOEL
20962 J+
20963 2730
20964 STOEL
20965 J+
20966 3
20967 STOEL
20968 J+
20969 "f'''"
20970 ASTO ST X
20971 STOEL
20972 J+
20973 4
20974 STOEL
20975 J+
20976 "(4.4)"
20977 ASTO ST X
20978 STOEL
20979 J+
20980 240
20981 STOEL
20982 J+
20983 J+
20984 J+
20985 J+
20986 J+
20987 J+
20988 -7
20989 STOEL
20990 J+
20991 72
20992 STOEL
20993 J+
20994 -338
20995 STOEL
20996 J+
20997 488
20998 STOEL
20999 J+
21000 CLX
21001 STOEL
21002 J+
21003 2
21004 STOEL
21005 J+
21006 "f''"
21007 ASTO ST X
21008 STOEL
21009 J+
21010 4
21011 STOEL
21012 J+
21013 "(4.4)"
21014 ASTO ST X
21015 STOEL
21016 J+
21017 5040
21018 STOEL
21019 J+
21020 J+
21021 J+
21022 J+
21023 J+
21024 J+
21025 -9
21026 STOEL
21027 J+
21028 128
21029 STOEL
21030 J+
21031 -1008
21032 STOEL
21033 J+
21034 8064
21035 STOEL
21036 J+
21037 -14350
21038 STOEL
21039 J+
21040 1
21041 STOEL
21042 J+
21043 "f'"
21044 ASTO ST X
21045 STOEL
21046 J+
21047 4
21048 STOEL
21049 J+
21050 "(4.4)"
21051 ASTO ST X
21052 STOEL
21053 J+
21054 840
21055 STOEL
21056 J+
21057 J+
21058 J+
21059 J+
21060 J+
21061 J+
21062 3
21063 STOEL
21064 J+
21065 -32
21066 STOEL
21067 J+
21068 168
21069 STOEL
21070 J+
21071 -672
21072 STOEL
21073 J+
21074 CLX
21075 STOEL
21076 J+
21077 RTN
21078▸LBL 92
21079 XASTO "#TXT"
21080 "elementare"
21081 "Ableitungen"
21082 1
21083 CLA
21084 ARCL "#TXT"
21085 ALENG
21086 X>Y?
21087 GTO 02
21088 35
21089 ENTER
21090 ATOX
21091 X≠Y?
21092 GTO 01
21093 "1"
21094 RTN
21095▸LBL 01
21096 108
21097 X>Y?
21098 CLA
21099 X>Y?
21100 "0"
21101 X>Y?
21102 RTN
21103 X<Y?
21104 GTO 01
21105 "l"
21106 RTN
21107▸LBL 01
21108 1
21109 +
21110 X<Y?
21111 GTO 01
21112 "#'(-1)"
21113 RTN
21114▸LBL 01
21115 1
21116 +
21117 X<Y?
21118 GTO 01
21119 "(n(10)*#)'(-1)"
21120 RTN
21121▸LBL 01
21122 1
21123 +
21124 X<Y?
21125 GTO 01
21126 "p"
21127 RTN
21128▸LBL 01
21129 1
21130 +
21131 X<Y?
21132 GTO 01
21133 "(-o)"
21134 RTN
21135▸LBL 01
21136 1
21137 +
21138 X<Y?
21139 GTO 01
21140 "(1+q'(2))"
21141 RTN
21142▸LBL 01
21143 1
21144 +
21145 X<Y?
21146 GTO 01
21147 "(1-#'(2))'"
21148 ├"(-0.5)"
21149 RTN
21150▸LBL 01
21151 1
21152 +
21153 X<Y?
21154 GTO 01
21155 "(-(1-#'(2))'"
21156 ├"(-0.5)"
21157 RTN
21158▸LBL 01
21159 1
21160 +
21161 X<Y?
21162 GTO 01
21163 "(1+#'(2))'(-1)"
21164 RTN
21165▸LBL 01
21166 1
21167 +
21168 X<Y?
21169 GTO 01
21170 "v"
21171 RTN
21172▸LBL 01
21173 1
21174 +
21175 X<Y?
21176 GTO 01
21177 "u"
21178 RTN
21179▸LBL 01
21180 1
21181 +
21182 X<Y?
21183 GTO 01
21184 "(1-w'(2))"
21185 RTN
21186▸LBL 01
21187 1
21188 +
21189 X<Y?
21190 GTO 01
21191 "(1+#'(2))'"
21192 ├"(-0.5)"
21193 RTN
21194▸LBL 01
21195 1
21196 +
21197 X<Y?
21198 GTO 01
21199 "(#'(2)-1)'"
21200 ├"(-0.5)"
21201 RTN
21202▸LBL 01
21203 1
21204 +
21205 X<Y?
21206 GTO 01
21207 "(1-#'(2))'(-1)"
21208 RTN
21209▸LBL 01
21210 CLA
21211 RTN
21212▸LBL 02
21213 RCL "#TXT"
21214 ENTER
21215 "'(0)"
21216 ASTO ST X
21217 POS
21218 X>0?
21219 "0"
21220 X>0?
21221 RTN
21222 RCL "#TXT"
21223 ENTER
21224 "#"
21225 ASTO ST X
21226 POS
21227 X<0?
21228 "0"
21229 X<0?
21230 RTN
21231 "1"
21232 RCL "#TXT"
21233 0
21234 RCL ST Z
21235 1
21236 -
21237 X>0?
21238 ├"*"
21239 X<0?
21240 CLX
21241 SUBSTR
21242 ASTO ST Y
21243 APPEND
21244 PARSE
21245 EVAL
21246 RCL "#TXT"
21247 ENTER
21248 ENTER
21249 "'"
21250 ASTO ST X
21251 POS
21252 X<0?
21253 CLA
21254 X<0?
21255 ARCL ST T
21256 X<0?
21257 RTN
21258 1
21259 +
21260 SUBSTR
21261 PARSE
21262 EVAL
21263 X<>Y
21264 R↓
21265 STO× ST Y
21266 1
21267 -
21268 LASTX
21269 RCL ST Z
21270 CLA
21271 X≠Y?
21272 ARCL ST X
21273 X≠Y?
21274 ├"*"
21275 ├"#"
21276 X<> ST Z
21277 X≠Y?
21278 ├"'("
21279 X≠Y?
21280 ARCL ST X
21281 X≠Y?
21282 ├")"
21283 X=0?
21284 CLA
21285 X=0?
21286 ARCL ST Z
21287 STOP
21288 RTN
21289▸LBL 93
21290 "PRT PARA SOLVE"
21291 ADV
21292 "------------"
21293 ├"------------"
21294 PRA
21295 "Verfahren: "
21296 ARCL "#METHOD"
21297 PRA
21298 "Iterationen: "
21299 ├"IT = "
21300 RCL "#IT"
21301 AIP
21302 PRA
21303 "|dX| = "
21304 ARCL "#XDIFF"
21305 PRA
21306 "|dY| = "
21307 ARCL "#YDIFF"
21308 PRA
21309 "Drucken: PRT"
21310 RCL "#PRTYN"
21311 X<0?
21312 ├"-"
21313 X=0?
21314 ├"0"
21315 X>0?
21316 ├"+"
21317 PRA
21318 "  "
21319 X<0?
21320 ├"Nichts"
21321 X=0?
21322 ├"Nur Ergebnisse"
21323 X>0?
21324 " Jeden Schritt"
21325 ├" drucken"
21326 PRA
21327 "------------"
21328 ├"------------"
21329 PRA
21330 ADV
21331 RTN
21332▸LBL 94
21333 ADV
21334 "============"
21335 ├"============"
21336 PRA
21337 "HPFX"
21338 PRA
21339 "============"
21340 ├"============"
21341 PRA
21342 ADV
21343 "INTEG: Gauss49"
21344 ├"-Kronrod99"
21345 PRA
21346 ADV
21347 "DERIV: 8←...1"
21348 ├"← 0 →1...→8"
21349 PRA
21350 ADV
21351 "SOLVE:"
21352 PRA
21353 ADV
21354 "  Automatik"
21355 PRA
21356 ADV
21357 "  Kasturiara"
21358 ├"chi (Xo;fo)"
21359 PRA
21360 ADV
21361 "  Ostrowski "
21362 ├"(Xo;fo)"
21363 PRA
21364 ADV
21365 "  Kanwar-Shar"
21366 ├"ma-Mamta"
21367 PRA
21368 "  (Xo;fo), "
21369 ├"(X1;f1)"
21370 PRA
21371 ADV
21372 "  Regula-Fals"
21373 ├"i-Type"
21374 PRA
21375 "  (Xi;Yi) "
21376 ├" i=0,1"
21377 PRA
21378 "  min|Yi|"
21379 PRA
21380 "  Sekante"
21381 PRA
21382 "  Illinois"
21383 PRA
21384 "  Pegasus"
21385 PRA
21386 "  Andersen-"
21387 ├"BjÖrck"
21388 PRA
21389 "  Dekker"
21390 PRA
21391 "  Ridders"
21392 PRA
21393 ADV
21394 "  Inv. Quad."
21395 ├" Interp."
21396 PRA
21397 "  (Xi;Yi) "
21398 ├" i=0,1,2"
21399 PRA
21400 ADV
21401 "  Sharma-"
21402 ├"Family"
21403 PRA
21404 "  (Xi;Yi) "
21405 ├" i=0,1,2"
21406 PRA
21407 "  min|Yi|"
21408 PRA
21409 "  Kreis"
21410 PRA
21411 "  Parabel"
21412 PRA
21413 "  Muller"
21414 PRA
21415 "  Ellipse"
21416 PRA
21417 "  Hyperbel"
21418 PRA
21419 ADV
21420 "f(X) als Equ"
21421 ├"ation EQN"
21422 PRA
21423 "  VAR X = # "
21424 ├" x  X  z  Z"
21425 PRA
21426 "  CONST: PI "
21427 ├" π  e  E"
21428 PRA
21429 "  Klammern: "
21430 ├"() {} [] <>"
21431 PRA
21432 "  Funktionen:"
21433 PRA
21434 "  + - * × / ÷ "
21435 ├"** ABS ||"
21436 PRA
21437 "  SQR  SQ  Q "
21438 ├" SQRT  √  W"
21439 PRA
21440 "  √↑n↑  √'n' "
21441 ├" W↑n↑  W'n'"
21442 PRA
21443 "  LOG LOG↓n↓ "
21444 ├" LOG_n_"
21445 PRA
21446 "  LD LB LN EXP"
21447 ├" E** E↑ E^"
21448 PRA
21449 "  {A}SIN{H}  "
21450 ├" {A}COS{H}"
21451 PRA
21452 "  {A}TAN{H}  "
21453 ├" {A}COT{H}"
21454 PRA
21455 "  {A}SEC{H}  "
21456 ├" {A}CSC{H}"
21457 PRA
21458 ADV
21459 "f(X) als ext"
21460 ├"ernes PRGM"
21461 PRA
21462 "  LBL "{name}""
21463 PRA
21464 "  RCL "XF""
21465 PRA
21466 "  :"
21467 PRA
21468 "  (opt.) "
21469 ├"STO "F0""
21470 PRA
21471 "  RTN END"
21472 PRA
21473 ADV
21474 "============"
21475 ├"============"
21476 PRA
21477 ADV
21478 GTO 11
21479▸LBL 95
21480 "Error: DIV by"
21481 ├" 0"
21482 PROMPT
21483 GTO 99
21484▸LBL 96
21485 "DEL VARS INTEG"
21486 CLV "#A"
21487 CLV "#B"
21488 CLV "#J"
21489 CLV "#∫"
21490 CLV "#∫-ERR"
21491 CLV "#HPFX"
21492 "DEL VARS SOLVE"
21493 CLV "#ST-X"
21494 CLV "#ST-Y"
21495 CLV "#ST-Z"
21496 CLV "#METHOD"
21497 CLV "#METH"
21498 CLV "#METH2"
21499 CLV "#MSG"
21500 CLV "#CNT"
21501 CLV "#LDSP"
21502 CLV "#h"
21503 CLV "#h1"
21504 CLV "#h2"
21505 CLV "#k1"
21506 CLV "#k2"
21507 CLV "#c"
21508 CLV "#d"
21509 CLV "#X0"
21510 CLV "#X1"
21511 CLV "#X2"
21512 CLV "#Xn+1"
21513 CLV "#dX"
21514 CLV "#Y"
21515 CLV "#Y0"
21516 CLV "#Y1"
21517 CLV "#Y2"
21518 CLV "#Y2+"
21519 CLV "#dY"
21520 CLV "#m-Illi"
21521 CLV "#m-Pega"
21522 CLV "#m-AndB"
21523 CLV "#Y10"
21524 CLV "#Y20"
21525 CLV "#Y21"
21526 CLV "#MBEST"
21527 CLV "#XBEST"
21528 CLV "#YBEST"
21529 "DEL VARS DERIV"
21530 CLV "#DERIV"
21531 CLV "#CENTER"
21532 CLV "#NODE"
21533 CLV "#DDELTA"
21534 CLV "#DIFFQ"
21535 CLV "#DR"
21536 CLV "#DL"
21537 CLV "#DIV"
21538 CLV "#I"
21539 CLV "#X"
21540 CLV "#MIN"
21541 CLV "#MAX"
21542 CLV "#HPFX"
21543 CLV "#HPFX-I"
21544 CLV "#HPFX-J"
21545 "DEL VARS PRINT"
21546 CLV "#XMIN"
21547 CLV "#XINC"
21548 CLV "#XMAX"
21549 CLV "#YMIN"
21550 CLV "#YINC"
21551 CLV "#YMAX"
21552 CLV "#TABLE"
21553 CLV "#TAB-#I"
21554 CLV "#Y-END"
21555 CLV "#P-MIN"
21556 CLV "#P-MAX"
21557 CLV "#P-VK"
21558 CLV "#P-NK"
21559 CLV "#PHASE"
21560 CLV "#IT-X"
21561 CLV "#IT-Y"
21562 CLV "#PH"
21563 CLV "#X#"
21564 CLV "#Y#"
21565 CLV "#Y-MIN"
21566 CLV "#Y-MAX"
21567 "DEL VARS EQN"
21568 CLV "#TXT"
21569 CLV "#TXT1"
21570 CLV "#TXT2"
21571 CLV "#TXT3"
21572 CLV "#TXT4"
21573 CLV "#CHARa"
21574 CLV "#CHARn"
21575 CLV "#LASTn"
21576 CLV "#POS"
21577 CLV "#POS#"
21578 CLV "#POS1"
21579 CLV "#POS2"
21580 CLV "###("
21581 CLV "###130"
21582 CLV "#()-A"
21583 CLV "#LENGTH"
21584 RTN
21585▸LBL 97
21586 1
21587 ENTER
21588 50
21589 SF 25
21590 INDEX "HPReg"
21591 FC? 25
21592 DIM "HPReg"
21593 INDEX "HPReg"
21594 J-
21595 RCLIJ
21596 X<>Y
21597 R↓
21598 X≥Y?
21599 X<>Y
21600 R↓
21601 DIM "HPReg"
21602 INDEX "HPReg"
21603 CLA
21604 SF 25
21605 ARCL "FKT"
21606 ASTO ST X
21607 STOEL
21608 J+
21609 "EQN"
21610 ASTO ST X
21611 STOEL
21612 J+
21613 SF 25
21614 RCL "EQNf(X)"
21615 "SIN(X)"
21616 FC? 25
21617 ASTO ST X
21618 STOEL
21619 J+
21620 SF 25
21621 RCL "EQN-#"
21622 "SIN(#)"
21623 FC? 25
21624 ASTO ST X
21625 STOEL
21626 J+
21627 SF 25
21628 RCL "EQN-X"
21629 "SIN(X)"
21630 FC? 25
21631 ASTO ST X
21632 STOEL
21633 J+
21634 SF 25
21635 RCL "EQN-Z"
21636 "SIN(Z)"
21637 FC? 25
21638 ASTO ST X
21639 STOEL
21640 J+
21641 CLA
21642 SF 25
21643 ARCL "#PRGM"
21644 ASTO ST X
21645 STOEL
21646 J+
21647 99
21648 SF 25
21649 RCL "#IT"
21650 STOEL
21651 J+
21652 1ᴇ-10
21653 SF 25
21654 RCL "#YDIFF"
21655 STOEL
21656 J+
21657 1ᴇ-10
21658 SF 25
21659 RCL "#XDIFF"
21660 STOEL
21661 J+
21662 0
21663 SF 25
21664 RCL "#PRTYN"
21665 STOEL
21666 J+
21667 1ᴇ-4
21668 SF 25
21669 RCL "#H"
21670 STOEL
21671 J+
21672 CLA
21673 SF 25
21674 ARCL "#METHOD"
21675 FC? 25
21676 "Auto"
21677 ASTO ST X
21678 STOEL
21679 J+
21680 CLA
21681 SF 25
21682 ARCL "#METH2"
21683 ASTO ST X
21684 STOEL
21685 RTN
21686▸LBL 98
21687 "EXIT HPFX"
21688 8
21689 ENTER
21690 22
21691 SETDS
21692 FS? 64
21693 GTO 94
21694 AOFF
21695 CPXRES
21696 CLMENU
21697 EXITALL
21698 1
21699 RCL "#MODE"
21700 CLV "#MODE"
21701 X=Y?
21702 GRAD
21703 X<Y?
21704 RAD
21705 X=0?
21706 DEG
21707 RCLFLAG
21708 SF 25
21709 RCL "#FLAG"
21710 CLV "#FLAG"
21711 STOFLAG
21712 XEQ 97
21713 XEQ 96
21714 "DEL GLOB VARS"
21715 CLV "###cmd"
21716 CLV "#-eval-"
21717 CLV "#-errX-"
21718 CLV "#check"
21719 CLV "#check2"
21720 CLV "FKT"
21721 CLV "FKT-TYP"
21722 CLV "#FKT"
21723 CLV "XF"
21724 CLV "XP"
21725 CLV "F0"
21726 CLV "P0"
21727 CLV "Xext"
21728 CLV "Xext0"
21729 CLV "Xext1"
21730 CLV "Xext2"
21731 CLV "Xext3"
21732 CLV "Xext4"
21733 CLV "Xext5"
21734 CLV "Xext6"
21735 CLV "Xext7"
21736 CLV "Xext8"
21737 CLV "Xext9"
21738 CLV "Yext"
21739 CLV "Yext0"
21740 CLV "Yext1"
21741 CLV "Yext2"
21742 CLV "Yext3"
21743 CLV "Yext4"
21744 CLV "Yext5"
21745 CLV "Yext6"
21746 CLV "Yext7"
21747 CLV "Yext8"
21748 CLV "Yext9"
21749 CLV "#PRGM"
21750 CLV "EQN-X"
21751 CLV "EQN-Z"
21752 CLV "EQN-#"
21753 CLV "#"
21754 CLV "EQNf(X)"
21755 CLV "EQNchek"
21756 CLV "EQNold"
21757 CLV "EQNdspl"
21758 CLV "EQNcode"
21759 CLV "EQN-↑"
21760 CLV "EQN≠0"
21761 CLV "EQN1"
21762 CLV "EQN2"
21763 CLV "EQN3"
21764 CLV "EQN4"
21765 CLV "EQN5"
21766 CLV "EQN6"
21767 CLV "EQN7"
21768 CLV "EQN8"
21769 CLV "#eps"
21770 CLV "#H"
21771 CLV "#XDIFF"
21772 CLV "#YDIFF"
21773 CLV "#IT"
21774 CLV "#PRTYN"
21775 CLA
21776 CLST
21777▸LBL 99
21778 RTN
21779 GTO 99
21780 RAISE 1
21781 RTNERR 8
21782 STOP
21783 "EVAL ERROR"
21784 GTO 11
21785 END