00 { 60074-Byte Prgm }
01▸LBL "HPOLY"
02 PRON
03 XASTO "#####"
04 STO "##A0"
05 R↓
06 STO "##A1"
07 R↓
08 STO "##A2"
09 R↓
10 STO "##A3"
11 "Xext"
12 ASTO ST X
13 RCL "#####"
14 0
15 4
16 SF 25
17 SUBSTR
18 X=Y?
19 GTO 91
20 CLA
21 ARCL "#####"
22 CLV "#####"
23 RCL "##A2"
24 RCL "##A1"
25 RCL "##A0"
26 RCL "##A3"
27 TYPE?
28 2
29 X<Y?
30 GTO 01
31 RCL "##A2"
32 TYPE?
33 2
34 X<Y?
35 GTO 01
36 RCL "##A1"
37 TYPE?
38 2
39 X<Y?
40 GTO 01
41 RCL "##A0"
42 TYPE?
43 2
44 X<Y?
45 GTO 01
46 SF 25
47 RCL "##A4"
48 FC? 25
49 1
50 STO "##A4"
51 TYPE?
52 1
53 X<Y?
54 GTO 01
55 RCL "##A4"
56 X=0?
57 1
58 STO "##A4"
59 ASTO ST X
60 "G2G"
61 ASTO ST Y
62 X=Y?
63 GTO 02
64 "CP2"
65 ASTO ST Y
66 X=Y?
67 GTO 02
68 "G3G"
69 ASTO ST Y
70 X=Y?
71 GTO 03
72 "CP3"
73 ASTO ST Y
74 X=Y?
75 GTO 03
76 "G4G"
77 ASTO ST Y
78 X=Y?
79 GTO 04
80 "CP4"
81 ASTO ST Y
82 X=Y?
83 GTO 04
84▸LBL 01
85 SF 25
86 INDEX "HPReg"
87 FS? 25
88 GTO 01
89 1
90 ENTER
91 50
92 DIM "HPReg"
93 1
94 ENTER
95 2
96 DIM "POI"
97 INDEX "POI"
98 CLX
99 STOEL
100 J+
101 1
102 STOEL
103 RCL "POI"
104 STO "QOI"
105 XEQ 98
106▸LBL 01
107 INDEX "HPReg"
108 J-
109 RCLIJ
110 50
111 X>Y?
112 X<>Y
113 R↓
114 DIM "HPReg"
115 INDEX "HPReg"
116 1
117 ENTER
118 37
119 STOIJ
120 RCLEL
121 2
122 +
123 1
124 X<>Y
125 GETM
126 STO "POI"
127 FNRM
128 X≠0?
129 GTO 01
130 INDEX "POI"
131 J-
132 1
133 STOEL
134 RCL "POI"
135 STO "QOI"
136 XEQ 98
137▸LBL 01
138 INDEX "HPReg"
139 1
140 ENTER
141 24
142 STOIJ
143 RCLEL
144 STO "#IT"
145 J+
146 RCLEL
147 STO "#YDIFF"
148 J+
149 RCLEL
150 STO "#XDIFF"
151 J+
152 RCLEL
153 STO "#PRTYN"
154 J+
155 RCLEL
156 STO "#nROOTS"
157 J+
158 RCLEL
159 STO "#MULT"
160 J+
161 RCLEL
162 STO "#dP"
163 J+
164 RCLEL
165 STO "#dQ"
166 J+
167 RCLEL
168 STO "#dB0B1"
169 J+
170 RCLEL
171 STO "#METHOD"
172 J+
173 RCLEL
174 STO "#L-B-V"
175 J+
176 RCLEL
177 STO "FKT-SEL"
178 J+
179 J+
180 1
181 RCLEL
182 2
183 +
184 GETM
185 STO "POI"
186 1
187 RCLEL
188 40
189 +
190 STOIJ
191 RCLEL
192 2
193 +
194 1
195 X<>Y
196 GETM
197 STO "QOI"
198 FNRM
199 X≠0?
200 GTO 01
201 INDEX "QOI"
202 J-
203 1
204 STOEL
205▸LBL 01
206 XEQ 14
207 "NEW"
208 ASTO "NEW-ACT"
209 CLA
210 ASTO "#MSG"
211 CLST
212 STO "#ST-X"
213 STO "#ST-Y"
214 STO "#ST-Z"
215 STO "#ST-T"
216 GTO 10
217▸LBL 02
218 "G2G"
219 ASTO ST Y
220 X≠Y?
221 GTO 02
222 RCL "##A2"
223 TYPE?
224 1
225 X<Y?
226 GTO 00
227 RCL "##A2"
228 X=0?
229 GTO 00
230 RCL "##A1"
231 TYPE?
232 1
233 X<Y?
234 GTO 00
235 RCL "##A0"
236 TYPE?
237 1
238 X<Y?
239 GTO 00
240 RCL "##A1"
241 X↑2
242 RCL "##A0"
243 RCL "##A2"
244 ×
245 STO+ ST X
246 STO+ ST X
247 -
248 0
249 RCL ST Y
250 ABS
251 1ᴇ-10
252 X≥Y?
253 R↑
254 R↑
255 SQRT
256 RCL "##A1"
257 +/-
258 STO ST Z
259 X<>Y
260 STO+ ST Z
261 -
262 RCL "##A2"
263 STO+ ST X
264 SF 25
265 STO÷ ST Z
266 SF 25
267 1/X
268 ×
269 "Nullstellen "
270 ├"G2G:      "
271 ├"_   _   X2   "
272 ├"X1"
273 XASTO "#MSG"
274 "CP2"
275 ASTO "#KEY-1#"
276 0
277 ENTER
278 R↓
279 R↓
280 GTO 09
281▸LBL 02
282 "CP2"
283 RCL "##A1"
284 STO "##X2"
285 TYPE?
286 RCL "##A0"
287 STO "##X1"
288 TYPE?
289 +
290 3
291 X=Y?
292 GTO 00
293 RCL "##X1"
294 CPX?
295 STO "##X2"
296 RCL "##X2"
297 0
298 ENTER
299 COMPLEX
300 +
301 COMPLEX
302 +/-
303 COMPLEX
304 ENTER
305 COMPLEX
306 X≠0?
307 R↓
308 R↓
309 STO "##X2"
310 RCL "##X1"
311 +
312 0
313 ENTER
314 COMPLEX
315 +
316 COMPLEX
317 X<>Y
318 +/-
319 RCL "##X1"
320 RCL "##X2"
321 ×
322 0
323 ENTER
324 COMPLEX
325 +
326 COMPLEX
327 R↓
328 0
329 ENTER
330 1
331 R↓
332 R↓
333 "Koeffizienten "
334 ├"G2G:    "
335 ├"_   a2   a1"
336 ├"   a0"
337 XASTO "#MSG"
338 "G2G"
339 ASTO "#KEY-1#"
340 GTO 09
341▸LBL 03
342 "G3G"
343 ASTO ST Y
344 X≠Y?
345 GTO 03
346 RCL "##A3"
347 TYPE?
348 1
349 X<Y?
350 GTO 00
351 RCL "##A3"
352 X=0?
353 GTO 00
354 RCL "##A2"
355 TYPE?
356 1
357 X<Y?
358 GTO 00
359 RCL "##A1"
360 TYPE?
361 1
362 X<Y?
363 GTO 00
364 RCL "##A0"
365 TYPE?
366 1
367 X<Y?
368 GTO 00
369 RCL "##A1"
370 RCL "##A3"
371 ×
372 3
373 ×
374 RCL "##A2"
375 X↑2
376 -
377 RCL "##A3"
378 3
379 ×
380 X↑2
381 SF 25
382 1/X
383 ×
384 0
385 RCL ST Y
386 ABS
387 1ᴇ-10
388 X≥Y?
389 R↑
390 R↑
391 STO "##S"
392 RCL "##A2"
393 RCL "##A1"
394 ×
395 RCL "##A3"
396 RCL "##A0"
397 ×
398 3
399 ×
400 -
401 RCL "##A3"
402 ×
403 9
404 ×
405 RCL "##A2"
406 3
407 Y↑X
408 STO+ ST X
409 -
410 RCL "##A3"
411 3
412 ×
413 3
414 Y↑X
415 STO+ ST X
416 SF 25
417 1/X
418 ×
419 0
420 RCL ST Y
421 ABS
422 1ᴇ-10
423 X≥Y?
424 R↑
425 R↑
426 STO "##T"
427 X↑2
428 RCL "##S"
429 3
430 Y↑X
431 +
432 0
433 RCL ST Y
434 ABS
435 1ᴇ-10
436 X≥Y?
437 R↑
438 R↑
439 STO "##ST"
440 RCL "##T"
441 ENTER
442 X<> ST Z
443 ABS
444 SQRT
445 STO+ ST Z
446 -
447 SIGN
448 LASTX
449 ABS
450 3
451 1/X
452 Y↑X
453 ×
454 X<>Y
455 SIGN
456 LASTX
457 ABS
458 3
459 1/X
460 Y↑X
461 ×
462 +
463 RCL "##A2"
464 RCL "##A3"
465 SF 25
466 1/X
467 ×
468 3
469 ÷
470 -
471 STO "##X1"
472 1
473 STO "#TRIG"
474 180
475 PI
476 ÷
477 FS? 43
478 STO "#TRIG"
479 10
480 ENTER
481 9
482 ÷
483 FS? 42
484 STO "#TRIG"
485 RCL "##S"
486 ABS
487 3
488 Y↑X
489 SQRT
490 SF 25
491 1/X
492 RCL "##T"
493 ×
494 ACOS
495 RCL "#TRIG"
496 ×
497 3
498 ÷
499 RCL "#TRIG"
500 SF 25
501 1/X
502 ×
503 COS
504 RCL "##S"
505 ABS
506 SQRT
507 STO+ ST X
508 ×
509 RCL "##A2"
510 RCL "##A3"
511 SF 25
512 1/X
513 ×
514 3
515 ÷
516 -
517 RCL "##X1"
518 RCL "##ST"
519 X<0?
520 R↓
521 X<>Y
522 STO "##X1"
523 RCL "##A3"
524 ×
525 RCL "##A2"
526 +
527 STO "##B"
528 RCL "##X1"
529 ×
530 RCL "##A1"
531 +
532 STO "##C"
533 RCL "##A3"
534 ×
535 STO+ ST X
536 STO+ ST X
537 +/-
538 RCL "##B"
539 X↑2
540 +
541 0
542 RCL ST Y
543 ABS
544 1ᴇ-10
545 X≥Y?
546 R↑
547 R↑
548 SQRT
549 RCL "##B"
550 SIGN
551 ×
552 RCL "##B"
553 +
554 +/-
555 ENTER
556 SF 25
557 1/X
558 RCL "##C"
559 ×
560 STO+ ST X
561 STO "##X2"
562 X<>Y
563 RCL "##A3"
564 STO+ ST X
565 SF 25
566 1/X
567 ×
568 STO "##X3"
569 RCL "##X1"
570 0
571 R↓
572 "Nullstellen "
573 ├"G3G:      "
574 ├"_   X3   X2"
575 ├"   X1"
576 XASTO "#MSG"
577 "CP3"
578 ASTO "#KEY-1#"
579 GTO 09
580▸LBL 03
581 "CP3"
582 RCL "##A2"
583 TYPE?
584 RCL "##A1"
585 TYPE?
586 +
587 RCL "##A0"
588 TYPE?
589 +
590 3
591 X=Y?
592 GTO 03
593 STO+ ST X
594 X=Y?
595 GTO 00
596 RCL "##A1"
597 RCL "##A0"
598 REAL?
599 X<>Y
600 REAL?
601 GTO 00
602 CPX?
603 X<>Y
604 STO "##A0"
605 X<>Y
606 STO "##A1"
607 TYPE?
608 X<>Y
609 TYPE?
610 +
611 3
612 X=Y?
613 GTO 03
614 RCL "##A0"
615 RCL "##A1"
616 +
617 COMPLEX
618 X≠0?
619 GTO 00
620 RCL "##A0"
621 RCL "##A1"
622 -
623 COMPLEX
624 X<>Y
625 X≠0?
626 GTO 00
627 RCL "##A2"
628 STO "##A0"
629▸LBL 03
630 RCL "##A1"
631 REAL?
632 GTO 03
633 COMPLEX
634 +/-
635 COMPLEX
636 STO "##A2"
637▸LBL 03
638 RCL "##A2"
639 RCL "##A1"
640 ×
641 RCL "##A0"
642 ×
643 0
644 ENTER
645 COMPLEX
646 +
647 COMPLEX
648 X<>Y
649 +/-
650 STO "##X1"
651 RCL "##A0"
652 RCL "##A1"
653 +
654 RCL "##A2"
655 ×
656 RCL "##A0"
657 RCL "##A1"
658 ×
659 +
660 0
661 ENTER
662 COMPLEX
663 +
664 COMPLEX
665 X<>Y
666 STO "##X2"
667 1
668 RCL "##A0"
669 RCL "##A1"
670 +
671 RCL "##A2"
672 +
673 0
674 ENTER
675 COMPLEX
676 +
677 COMPLEX
678 R↓
679 +/-
680 RCL "##X2"
681 RCL "##X1"
682 "Koeffizienten "
683 ├"G3G:    "
684 ├"a3   a2   a1"
685 ├"   a0"
686 XASTO "#MSG"
687 "G3G"
688 ASTO "#KEY-1#"
689 GTO 09
690▸LBL 04
691 "G4G"
692 ASTO ST Y
693 X≠Y?
694 GTO 04
695 RCL "##A3"
696 TYPE?
697 1
698 X<Y?
699 GTO 00
700 RCL "##A2"
701 TYPE?
702 1
703 X<Y?
704 GTO 00
705 RCL "##A1"
706 TYPE?
707 1
708 X<Y?
709 GTO 00
710 RCL "##A0"
711 TYPE?
712 1
713 X<Y?
714 GTO 00
715 RCL "##A2"
716 RCL "##A4"
717 SF 25
718 1/X
719 ×
720 +/-
721 STO "##B2"
722 RCL "##A1"
723 RCL "##A3"
724 ×
725 RCL "##A0"
726 RCL "##A4"
727 ×
728 STO+ ST X
729 STO+ ST X
730 -
731 RCL "##A4"
732 X↑2
733 SF 25
734 1/X
735 ×
736 STO "##B1"
737 RCL "##A2"
738 STO+ ST X
739 STO+ ST X
740 RCL "##A3"
741 X↑2
742 RCL "##A4"
743 SF 25
744 1/X
745 ×
746 -
747 RCL "##A0"
748 ×
749 RCL "##A1"
750 X↑2
751 -
752 RCL "##A4"
753 X↑2
754 SF 25
755 1/X
756 ×
757 STO "##B0"
758 RCL "##B1"
759 3
760 ×
761 RCL "##B2"
762 X↑2
763 -
764 0
765 RCL ST Y
766 ABS
767 1ᴇ-10
768 X≥Y?
769 R↑
770 R↑
771 STO "##T"
772 RCL "##B2"
773 3
774 Y↑X
775 STO+ ST X
776 RCL "##B2"
777 RCL "##B1"
778 ×
779 RCL "##B0"
780 3
781 ×
782 -
783 9
784 ×
785 -
786 0
787 RCL ST Y
788 ABS
789 1ᴇ-10
790 X≥Y?
791 R↑
792 R↑
793 STO "##S"
794 X↑2
795 RCL "##T"
796 3
797 Y↑X
798 STO+ ST X
799 STO+ ST X
800 +
801 STO "##ST"
802 ABS
803 SQRT
804 RCL "##S"
805 ENTER
806 X<> ST Z
807 STO+ ST Z
808 -
809 2
810 STO÷ ST Z
811 ÷
812 SIGN
813 LASTX
814 ABS
815 3
816 1/X
817 Y↑X
818 ×
819 X<>Y
820 SIGN
821 LASTX
822 ABS
823 3
824 1/X
825 Y↑X
826 ×
827 +
828 RCL "##B2"
829 +
830 3
831 ÷
832 +/-
833 STO "##Y0"
834 1
835 STO "#TRIG"
836 180
837 PI
838 ÷
839 FS? 43
840 STO "#TRIG"
841 10
842 ENTER
843 9
844 ÷
845 FS? 42
846 STO "#TRIG"
847 RCL "##S"
848 ENTER
849 X↑2
850 RCL "##ST"
851 ABS
852 +
853 SQRT
854 SF 25
855 1/X
856 ×
857 ACOS
858 RCL "#TRIG"
859 ×
860 3
861 ÷
862 RCL "#TRIG"
863 SF 25
864 1/X
865 ×
866 COS
867 RCL "##S"
868 X↑2
869 RCL "##ST"
870 ABS
871 +
872 4
873 ÷
874 SQRT
875 SIGN
876 LASTX
877 ABS
878 3
879 1/X
880 Y↑X
881 ×
882 ×
883 STO+ ST X
884 RCL "##B2"
885 +
886 +/-
887 3
888 ÷
889 RCL "##Y0"
890 RCL "##ST"
891 X<0?
892 R↓
893 X<>Y
894 STO "##Y0"
895 STO "##Y1"
896 RCL "##B2"
897 +
898 STO "##B"
899 RCL "##Y1"
900 ×
901 RCL "##B1"
902 +
903 STO "##C"
904 STO+ ST X
905 STO+ ST X
906 +/-
907 RCL "##B"
908 X↑2
909 +
910 SQRT
911 0
912 ENTER
913 COMPLEX
914 +
915 ENTER
916 COMPLEX
917 X≠0?
918 R↓
919 R↓
920 RCL "##B"
921 SIGN
922 ×
923 RCL "##B"
924 +
925 +/-
926 ENTER
927 SF 25
928 1/X
929 RCL "##C"
930 ×
931 STO+ ST X
932 STO "##Y2"
933 X<>Y
934 2
935 ÷
936 STO "##Y3"
937 CPX?
938 RCL "##Y0"
939 RCL "##Y1"
940 X<Y?
941 X<>Y
942 STO "##Y0"
943 RCL "##Y2"
944 CPX?
945 RCL "##Y0"
946 RCL "##Y0"
947 X<Y?
948 X<>Y
949 STO "##Y0"
950 2
951 ÷
952 STO "##B"
953 X↑2
954 RCL "##A0"
955 RCL "##A4"
956 SF 25
957 1/X
958 ×
959 -
960 X≤0?
961 CLX
962 SQRT
963 STO "##D"
964 RCL "##A3"
965 RCL "##A4"
966 STO+ ST X
967 SF 25
968 1/X
969 ×
970 STO "##A"
971 X↑2
972 RCL "##A2"
973 RCL "##A4"
974 SF 25
975 1/X
976 ×
977 -
978 RCL "##Y0"
979 +
980 ABS
981 0
982 RCL ST Y
983 1ᴇ-10
984 X≥Y?
985 R↑
986 R↑
987 SQRT
988 STO "##C"
989 RCL "##A"
990 RCL "##B"
991 ×
992 RCL "##A1"
993 RCL "##A4"
994 STO+ ST X
995 SF 25
996 1/X
997 ×
998 -
999 RCL "##D"
1000 SF 25
1001 1/X
1002 ×
1003 FS? 25
1004 STO "##C"
1005 RCL "##A"
1006 RCL "##C"
1007 +
1008 2
1009 ÷
1010 +/-
1011 STO "#P/2"
1012 X↑2
1013 RCL "##B"
1014 RCL "##D"
1015 +
1016 -
1017 0
1018 RCL ST Y
1019 ABS
1020 1ᴇ-10
1021 X≥Y?
1022 R↑
1023 R↑
1024 SQRT
1025 RCL "#P/2"
1026 STO ST Z
1027 X<>Y
1028 STO+ ST Z
1029 -
1030 STO "##X1"
1031 X<>Y
1032 STO "##X2"
1033 RCL "##A"
1034 RCL "##C"
1035 -
1036 2
1037 ÷
1038 +/-
1039 STO "#P/2"
1040 X↑2
1041 RCL "##B"
1042 RCL "##D"
1043 -
1044 -
1045 0
1046 RCL ST Y
1047 ABS
1048 1ᴇ-10
1049 X≥Y?
1050 R↑
1051 R↑
1052 SQRT
1053 RCL "#P/2"
1054 CLV "#P/2"
1055 STO ST Z
1056 X<>Y
1057 STO+ ST Z
1058 -
1059 RCL "##X2"
1060 RCL "##X1"
1061 CPX?
1062 R↓
1063 "Nullstellen "
1064 ├"G4G:      "
1065 ├"X4   X3   X2"
1066 ├"   X1"
1067 XASTO "#MSG"
1068 "CP4"
1069 ASTO "#KEY-1#"
1070 GTO 09
1071▸LBL 04
1072 "CP4"
1073 RCL "##A0"
1074 TYPE?
1075 RCL "##A1"
1076 TYPE?
1077 +
1078 2
1079 X<Y?
1080 GTO 04
1081 RCL "##A2"
1082 CPX?
1083 STO "##A3"
1084 RCL "##A2"
1085 TYPE?
1086 RCL "##A3"
1087 TYPE?
1088 +
1089 3
1090 X=Y?
1091 GTO 00
1092 RCL "##A3"
1093 REAL?
1094 GTO 04
1095 COMPLEX
1096 +/-
1097 COMPLEX
1098 STO "##A3"
1099▸LBL 04
1100 RCL "##A0"
1101 TYPE?
1102 RCL "##A1"
1103 TYPE?
1104 +
1105 2
1106 X=Y?
1107 GTO 04
1108 STO+ ST X
1109 X=Y?
1110 GTO 04
1111 RCL "##A0"
1112 RCL "##A1"
1113 CPX?
1114 X<>Y
1115 STO "##A0"
1116 X<>Y
1117 STO "##A1"
1118 RCL "##A2"
1119 TYPE?
1120 RCL "##A3"
1121 TYPE?
1122 +
1123 4
1124 X=Y?
1125 GTO 00
1126 RCL "##A2"
1127 REAL?
1128 STO "##A3"
1129 CLST
1130 RCL "##A1"
1131 COMPLEX
1132 +/-
1133 COMPLEX
1134 RCL "##A2"
1135 CPX?
1136 ISG ST Z
1137 STO ST X
1138 X≠Y?
1139 ISG ST Z
1140 STO ST X
1141 RCL ST Z
1142 2
1143 X=Y?
1144 GTO 00
1145 RCL "##A3"
1146 X<> "##A1"
1147 STO "##A3"
1148 COMPLEX
1149 +/-
1150 COMPLEX
1151 STO "##A2"
1152▸LBL 04
1153 RCL "##A0"
1154 TYPE?
1155 RCL "##A1"
1156 TYPE?
1157 +
1158 2
1159 X=Y?
1160 GTO 04
1161 RCL "##A0"
1162 RCL "##A1"
1163 COMPLEX
1164 +/-
1165 COMPLEX
1166 X=Y?
1167 GTO 04
1168 STO "##A2"
1169 RCL "##A1"
1170 STO "##A3"
1171 RCL "##A0"
1172 COMPLEX
1173 +/-
1174 COMPLEX
1175 STO "##A1"
1176▸LBL 04
1177 RCL "##A0"
1178 TYPE?
1179 RCL "##A1"
1180 TYPE?
1181 +
1182 2
1183 X=Y?
1184 GTO 04
1185 CLST
1186 RCL "##A2"
1187 REAL?
1188 ISG ST Y
1189 STO ST X
1190 RCL "##A3"
1191 CPX?
1192 ISG ST Z
1193 STO ST X
1194 RCL ST Z
1195 2
1196 X=Y?
1197 GTO 00
1198 RCL "##A2"
1199 REAL?
1200 GTO 04
1201 COMPLEX
1202 +/-
1203 COMPLEX
1204 STO "##A3"
1205 GTO 04
1206▸LBL 04
1207 RCL "##A0"
1208 RCL "##A1"
1209 ×
1210 STO "##X1"
1211 RCL "##A2"
1212 RCL "##A3"
1213 ×
1214 STO× "##X1"
1215 0
1216 ENTER
1217 COMPLEX
1218 RCL "##X1"
1219 +
1220 COMPLEX
1221 X<>Y
1222 STO "##X1"
1223 R↓
1224 R↓
1225 RCL "##A0"
1226 RCL "##A1"
1227 +
1228 ×
1229 X<>Y
1230 RCL "##A2"
1231 RCL "##A3"
1232 +
1233 ×
1234 +
1235 +/-
1236 0
1237 ENTER
1238 COMPLEX
1239 +
1240 COMPLEX
1241 X<>Y
1242 STO "##X2"
1243 RCL "##A1"
1244 RCL "##A3"
1245 +
1246 RCL "##A0"
1247 ×
1248 RCL "##A2"
1249 RCL "##A3"
1250 +
1251 RCL "##A1"
1252 ×
1253 +
1254 RCL "##A0"
1255 RCL "##A3"
1256 +
1257 RCL "##A2"
1258 ×
1259 +
1260 0
1261 ENTER
1262 COMPLEX
1263 +
1264 COMPLEX
1265 X<>Y
1266 STO "##X3"
1267 RCL "##A0"
1268 RCL "##A1"
1269 +
1270 RCL "##A2"
1271 +
1272 RCL "##A3"
1273 +
1274 +/-
1275 0
1276 ENTER
1277 COMPLEX
1278 +
1279 COMPLEX
1280 X<>Y
1281 RCL "##X3"
1282 RCL "##X2"
1283 RCL "##X1"
1284 "Koeffizienten "
1285 ├"G4G:    "
1286 ├""1"  a3  a2  "
1287 ├"a1  a0"
1288 XASTO "#MSG"
1289 "G4G"
1290 ASTO "#KEY-1#"
1291 GTO 09
1292▸LBL 09
1293 CLV "##A0"
1294 CLV "##A1"
1295 CLV "##A2"
1296 CLV "##A3"
1297 CLV "##A4"
1298 CLV "##X1"
1299 CLV "##X2"
1300 CLV "##X3"
1301 CLV "##X4"
1302 CLV "##S"
1303 CLV "##T"
1304 CLV "##ST"
1305 CLV "#TRIG"
1306 CLV "##Y0"
1307 CLV "##Y1"
1308 CLV "##Y2"
1309 CLV "##Y3"
1310 CLV "##B0"
1311 CLV "##B1"
1312 CLV "##B2"
1313 CLV "##A"
1314 CLV "##B"
1315 CLV "##C"
1316 CLV "##D"
1317 CLA
1318 ARCL "#KEY-1#"
1319 KEY 1 GTO 01
1320 CLA
1321 KEY 2 GTO 09
1322 KEY 3 GTO 09
1323 KEY 4 GTO 09
1324 KEY 5 GTO 09
1325 "EXIT"
1326 KEY 6 GTO 02
1327 KEY 7 GTO 09
1328 KEY 8 GTO 09
1329 KEY 9 GTO 02
1330 CLA
1331 ARCL "#MSG"
1332 MENU
1333 PROMPT
1334▸LBL 01
1335 CLA
1336 ARCL "#KEY-1#"
1337 CLV "#KEY-1#"
1338 GTO "HPOLY"
1339▸LBL 02
1340 CLA
1341 CLV "#KEY-1#"
1342 CLV "#MSG"
1343 CLMENU
1344 EXITALL
1345 CLST
1346 GTO 99
1347▸LBL 10
1348 "HAUPTMENU"
1349 SF 24
1350 CLMENU
1351 CLV "#KOEFF"
1352 1ᴇ-100
1353 STO "#eps"
1354 CLX
1355 STO "#PRTYy"
1356 SF 25
1357 INDEX "PWI"
1358 CLA
1359 ARCL "FKT-SEL"
1360 KEY 1 XEQ 11
1361 CLA
1362 ARCL "FKT-SEL"
1363 ATOX
1364 "(x)=Y"
1365 3
1366 X=Y?
1367 "x;y=Z"
1368 ASTO "#KEY-2#"
1369 CLA
1370 ARCL "FKT-SEL"
1371 ATOX
1372 ATOX
1373 "GTO"
1374 102
1375 X=Y?
1376 ASTO "#KEY-2#"
1377 CLA
1378 ARCL "#KEY-2#"
1379 KEY 2 GTO 04
1380 CLA
1381 ARCL "FKT-SEL"
1382 ATOX
1383 ATOX
1384 +
1385 "NEW"
1386 STO+ ST X
1387 161
1388 -
1389 ABS
1390 1
1391 X≠Y?
1392 CLA
1393 ASTO "#KEY-3#"
1394 KEY 3 GTO 34
1395 CLA
1396 ARCL "FKT-SEL"
1397 3
1398 ATOX
1399 "SOLVE"
1400 X=Y?
1401 CLA
1402 102
1403 X=Y?
1404 CLA
1405 FC? 25
1406 CLA
1407 SF 25
1408 INDEX "PWI"
1409 SF 25
1410 RCLEL
1411 X=0?
1412 CLA
1413 FC? 25
1414 CLA
1415 ASTO "#KEY-4#"
1416 KEY 4 GTO 02
1417 CLA
1418 ARCL "FKT-SEL"
1419 ATOX
1420 ATOX
1421 "Print"
1422 +
1423 105
1424 X=Y?
1425 CLA
1426 FC? 25
1427 CLA
1428 ASTO "#KEY-5#"
1429 KEY 5 GTO 01
1430 "EXIT"
1431 KEY 6 GTO 03
1432 CLA
1433 KEY 7 GTO 10
1434 KEY 8 GTO 10
1435 KEY 9 GTO 98
1436 XEQ 14
1437 CLA
1438 ARCL "#MSG"
1439 ALENG
1440 X=0?
1441 ARCL "FKT-SEL"
1442 X=0?
1443 ├"(X) selektiert"
1444 RCL "#ST-T"
1445 RCL "#ST-Z"
1446 RCL "#ST-Y"
1447 RCL "#ST-X"
1448 MENU
1449 PROMPT
1450 GTO 10
1451▸LBL 01
1452 CLA
1453 ASTO "#MSG"
1454 GTO 50
1455▸LBL 02
1456 CLV "PXI=0"
1457 CLV "#N-IT"
1458 CLV "#Xn+1"
1459 CLA
1460 ARCL "#KEY-4#"
1461 ATOX
1462 X=0?
1463 GTO 10
1464 SF 25
1465 RCL "PWI"
1466 SF 25
1467 INDEX "PFI"
1468 FC? 25
1469 STO "PFI"
1470 INDEX "PFI"
1471 J-
1472 J-
1473 1
1474 RCLEL
1475 6
1476 ×
1477 J-
1478 RCLEL
1479 X↑2
1480 SF 25
1481 1/X
1482 ×
1483 J-
1484 RCLEL
1485 ×
1486 -
1487 STO "XP"
1488 GTO 72
1489▸LBL 03
1490 FS? 64
1491 GTO 97
1492 GTO 98
1493▸LBL 11
1494 "SELECT FKT ↓"
1495 CLX
1496 STO "#ST-X"
1497 STO "#ST-Y"
1498 STO "#ST-Z"
1499 STO "#ST-T"
1500 CLA
1501 ASTO "#MSG"
1502 FS? 64
1503 GTO 13
1504 RCL "FKT-SEL"
1505 "P"
1506 ASTO ST Y
1507 "∫P"
1508 X=Y?
1509 ASTO "FKT-SEL"
1510 ASTO ST Y
1511 "P'"
1512 X=Y?
1513 ASTO "FKT-SEL"
1514 ASTO ST Y
1515 "P''"
1516 X=Y?
1517 ASTO "FKT-SEL"
1518 ASTO ST Y
1519 "Q"
1520 X=Y?
1521 ASTO "FKT-SEL"
1522 ASTO ST Y
1523 "∫Q"
1524 X=Y?
1525 ASTO "FKT-SEL"
1526 ASTO ST Y
1527 "Q'"
1528 X=Y?
1529 ASTO "FKT-SEL"
1530 ASTO ST Y
1531 "Q''"
1532 X=Y?
1533 ASTO "FKT-SEL"
1534 ASTO ST Y
1535 "f"
1536 X=Y?
1537 ASTO "FKT-SEL"
1538 "f = P/Q"
1539 ├" selektiert"
1540 X=Y?
1541 XASTO "#MSG"
1542 "f"
1543 ASTO ST Y
1544 "∫f"
1545 X=Y?
1546 ASTO "FKT-SEL"
1547 "∫f = ∫P/Q"
1548 ├" selektiert"
1549 X=Y?
1550 XASTO "#MSG"
1551 "∫f"
1552 ASTO ST Y
1553 "f'"
1554 X=Y?
1555 ASTO "FKT-SEL"
1556 "f' = (QP'-PQ')"
1557 ├"/QQ sel."
1558 X=Y?
1559 XASTO "#MSG"
1560 "f'"
1561 ASTO ST Y
1562 "g"
1563 X=Y?
1564 ASTO "FKT-SEL"
1565 "g = QP'-PQ'"
1566 ├" selektiert"
1567 X=Y?
1568 XASTO "#MSG"
1569 "g"
1570 ASTO ST Y
1571 "f''"
1572 X=Y?
1573 ASTO "FKT-SEL"
1574 "f" = [Q(QP"-PQ""
1575 ├")-2Q'g]     "
1576 ├"/QQQ"
1577 X=Y?
1578 XASTO "#MSG"
1579 "f''"
1580 ASTO ST Y
1581 "h"
1582 X=Y?
1583 ASTO "FKT-SEL"
1584 "h = Q(QP"-PQ")"
1585 ├"-2Q'g"
1586 X=Y?
1587 XASTO "#MSG"
1588 "h"
1589 ASTO ST Y
1590 "P"
1591 X=Y?
1592 ASTO "FKT-SEL"
1593 CLV "PWI"
1594 CLST
1595 STO ST L
1596 SF 25
1597 RCL "POI"
1598 FC? 25
1599 ISG ST L
1600 SF 25
1601 SF 25
1602 RCL "QOI"
1603 FC? 25
1604 ISG ST L
1605 LASTX
1606 LASTX
1607 X=0?
1608 GTO 14
1609 2
1610 X≠Y?
1611 GTO 12
1612 CLA
1613 ARCL "FKT-SEL"
1614 3
1615 ATOX
1616 X=Y?
1617 ATOX
1618 CLA
1619 161
1620 X<>Y
1621 -
1622 XTOA
1623 ASTO "FKT-SEL"
1624 GTO 14
1625▸LBL 12
1626 SF 25
1627 INDEX "POI"
1628 FC? 25
1629 GTO 12
1630 CLA
1631 ARCL "FKT-SEL"
1632 3
1633 ATOX
1634 X=Y?
1635 ATOX
1636 80
1637 X=Y?
1638 GTO 14
1639 CLA
1640 ARCL "FKT-SEL"
1641 ALENG
1642 "Q"
1643 2
1644 X=Y?
1645 "P"
1646 ASTO "FKT-SEL"
1647 GTO 14
1648▸LBL 12
1649 SF 25
1650 INDEX "QOI"
1651 FC? 25
1652 "Q"
1653 FC? 25
1654 ASTO "FKT-SEL"
1655 FC? 25
1656 GTO 14
1657 CLA
1658 ARCL "FKT-SEL"
1659 3
1660 ATOX
1661 X=Y?
1662 ATOX
1663 81
1664 X=Y?
1665 GTO 14
1666 X<>Y
1667 100
1668 X>Y?
1669 "Q"
1670 X<Y?
1671 "P"
1672 ASTO "FKT-SEL"
1673 CLA
1674 ASTO "#MSG"
1675 GTO 14
1676▸LBL 13
1677 "SELECT FKT ↑"
1678 RCL "FKT-SEL"
1679 "P"
1680 ASTO ST Y
1681 "h"
1682 X=Y?
1683 ASTO "FKT-SEL"
1684 "h = Q(QP"-PQ")"
1685 ├"-2Q'g"
1686 X=Y?
1687 XASTO "#MSG"
1688 "h"
1689 ASTO ST Y
1690 "f''"
1691 X=Y?
1692 ASTO "FKT-SEL"
1693 "f" = [Q(QP"-PQ""
1694 ├")-2Q'g]     "
1695 ├"/QQQ"
1696 X=Y?
1697 XASTO "#MSG"
1698 "f''"
1699 ASTO ST Y
1700 "g"
1701 X=Y?
1702 ASTO "FKT-SEL"
1703 "g = QP'-PQ'"
1704 X=Y?
1705 XASTO "#MSG"
1706 "g"
1707 ASTO ST Y
1708 "f'"
1709 X=Y?
1710 ASTO "FKT-SEL"
1711 "f' = (QP'-PQ')"
1712 ├"/QQ"
1713 X=Y?
1714 XASTO "#MSG"
1715 "f'"
1716 ASTO ST Y
1717 "∫f"
1718 X=Y?
1719 ASTO "FKT-SEL"
1720 "f = P/Q"
1721 X=Y?
1722 XASTO "#MSG"
1723 "∫f"
1724 ASTO ST Y
1725 "f"
1726 X=Y?
1727 ASTO "FKT-SEL"
1728 "f = P/Q"
1729 X=Y?
1730 XASTO "#MSG"
1731 "f"
1732 ASTO ST Y
1733 "Q''"
1734 X=Y?
1735 ASTO "FKT-SEL"
1736 ASTO ST Y
1737 "Q'"
1738 X=Y?
1739 ASTO "FKT-SEL"
1740 ASTO ST Y
1741 "∫Q"
1742 X=Y?
1743 ASTO "FKT-SEL"
1744 ASTO ST Y
1745 "Q"
1746 X=Y?
1747 ASTO "FKT-SEL"
1748 ASTO ST Y
1749 "P''"
1750 X=Y?
1751 ASTO "FKT-SEL"
1752 ASTO ST Y
1753 "P'"
1754 X=Y?
1755 ASTO "FKT-SEL"
1756 ASTO ST Y
1757 "∫P"
1758 X=Y?
1759 ASTO "FKT-SEL"
1760 ASTO ST Y
1761 "P"
1762 X=Y?
1763 ASTO "FKT-SEL"
1764 CLST
1765 STO ST L
1766 SF 25
1767 INDEX "POI"
1768 FC? 25
1769 ISG ST L
1770 SF 25
1771 SF 25
1772 INDEX "QOI"
1773 FC? 25
1774 ISG ST L
1775 LASTX
1776 LASTX
1777 X=0?
1778 GTO 14
1779 2
1780 X≠Y?
1781 GTO 13
1782 CLA
1783 ARCL "FKT-SEL"
1784 3
1785 ATOX
1786 X=Y?
1787 ATOX
1788 CLA
1789 161
1790 X<>Y
1791 -
1792 XTOA
1793 ASTO "FKT-SEL"
1794 GTO 14
1795▸LBL 13
1796 SF 25
1797 INDEX "POI"
1798 FC? 25
1799 GTO 13
1800 CLA
1801 ASTO "#MSG"
1802 ARCL "FKT-SEL"
1803 3
1804 ATOX
1805 X=Y?
1806 ATOX
1807 80
1808 X=Y?
1809 GTO 14
1810 CLA
1811 ARCL "FKT-SEL"
1812 ALENG
1813 "Q"
1814 2
1815 X=Y?
1816 "P"
1817 ASTO "FKT-SEL"
1818 GTO 14
1819▸LBL 13
1820 SF 25
1821 RCL "QOI"
1822 FC? 25
1823 "Q"
1824 FC? 25
1825 ASTO "FKT-SEL"
1826 FC? 25
1827 GTO 27
1828 CLA
1829 ASTO "#MSG"
1830 ARCL "FKT-SEL"
1831 3
1832 ATOX
1833 X=Y?
1834 ATOX
1835 81
1836 X=Y?
1837 GTO 14
1838 X<>Y
1839 100
1840 X>Y?
1841 "Q"
1842 X<Y?
1843 "P"
1844 ASTO "FKT-SEL"
1845 GTO 14
1846▸LBL 14
1847 "FKT-SEL ==> PWI"
1848 "        ==> PAI"
1849 CLA
1850 ARCL "FKT-SEL"
1851 3
1852 ATOX
1853 X=Y?
1854 GTO 02
1855 100
1856 X<Y?
1857 GTO 01
1858 CLA
1859 X<>Y
1860 XTOA
1861 ├"OI"
1862 ASTO ST X
1863 SF 25
1864 RCL IND ST X
1865 FC? 25
1866 RTN
1867 STO "PWI"
1868 STO "PAI"
1869 INDEX "PWI"
1870 RCLEL
1871 STO "#GRAD"
1872 CLA
1873 ARCL "FKT-SEL"
1874 ALENG
1875 1
1876 X=Y?
1877 RTN
1878 INDEX "PWI"
1879 J-
1880 RCLIJ
1881 1
1882 -
1883 2
1884 X>Y?
1885 X<>Y
1886 R↓
1887 DIM "PWI"
1888 INDEX "PWI"
1889 RCLEL
1890 STO "#GRAD"
1891 XEQ 15
1892 RCL "PWI"
1893 STO "PAI"
1894 INDEX "PWI"
1895 RCLEL
1896 STO "#GRAD"
1897 CLA
1898 ARCL "FKT-SEL"
1899 ATOX
1900 ATOX
1901 ATOX
1902 X=0?
1903 RTN
1904 INDEX "PWI"
1905 J-
1906 RCLIJ
1907 1
1908 -
1909 2
1910 X>Y?
1911 X<>Y
1912 R↓
1913 DIM "PWI"
1914 RCLEL
1915 STO "#GRAD"
1916 XEQ 15
1917 RCL "PWI"
1918 STO "PAI"
1919 INDEX "PWI"
1920 RCLEL
1921 STO "#GRAD"
1922 RTN
1923▸LBL 15
1924 "POLYNOM DERIV."
1925 J+
1926 RCLEL
1927 RCL "#GRAD"
1928 ×
1929 STOEL
1930 DSE "#GRAD"
1931 GTO 15
1932 1
1933 ENTER
1934 STOIJ
1935 RCLEL
1936 1
1937 -
1938 X<0?
1939 CLX
1940 STOEL
1941 RTN
1942▸LBL 01
1943 3
1944 +
1945 X=Y?
1946 GTO 16
1947 X<Y?
1948 GTO 17
1949 RCL "POI"
1950 STO "PWI"
1951 STO "PAI"
1952 ATOX
1953 X=0?
1954 RTN
1955 ATOX
1956 +
1957 39
1958 X=Y?
1959 GTO 16
1960 GTO 17
1961▸LBL 16
1962 "g=QP'-PQ'"
1963 CF 22
1964 RCL "POI"
1965 STO "#P'"
1966 INDEX "#P'"
1967 RCLEL
1968 STO "#GRAD"
1969 XEQ 15
1970 RCL "#P'"
1971 DIM?
1972 3
1973 -
1974 X<0?
1975 CLX
1976 STO ST X
1977 2
1978 +
1979 DIM "#P'"
1980 RCL "QOI"
1981 STO "#Q'"
1982 INDEX "#Q'"
1983 RCLEL
1984 STO "#GRAD"
1985 XEQ 15
1986 RCL "#Q'"
1987 DIM?
1988 3
1989 -
1990 X<0?
1991 CLX
1992 STO ST X
1993 2
1994 +
1995 DIM "#Q'"
1996 RCL "#Q'"
1997 STO "#MAT-V"
1998 RCL "POI"
1999 STO "#MAT-U"
2000 XEQ 42
2001 RCL "PFI"
2002 STO "#PQ'"
2003 RCL "QOI"
2004 STO "#MAT-U"
2005 RCL "#P'"
2006 STO "#MAT-V"
2007 XEQ 42
2008 RCL "PFI"
2009 STO "#QP'"
2010 DIM?
2011 RCL "#PQ'"
2012 DIM?
2013 X<>Y
2014 R↓
2015 X>Y?
2016 X<>Y
2017 1
2018 X<>Y
2019 DIM "#QP'"
2020 DIM "#PQ'"
2021 RCL "#QP'"
2022 RCL "#PQ'"
2023 -
2024 STO "gOI"
2025 XEQ 18
2026 STO "gOI"
2027 STO "PWI"
2028 STO "PAI"
2029 CLV "#PQ'"
2030 CLV "#QP'"
2031 RTN
2032▸LBL 17
2033 "h=Q(QP"-PQ")"
2034 " -2Q'g"
2035 XEQ 16
2036 RCL "#P'"
2037 STO "#P""
2038 INDEX "#P""
2039 RCLEL
2040 STO "#GRAD"
2041 XEQ 15
2042 RCL "#P""
2043 DIM?
2044 3
2045 -
2046 X<0?
2047 CLX
2048 STO ST X
2049 2
2050 +
2051 DIM "#P""
2052 RCL "#Q'"
2053 STO "#Q""
2054 INDEX "#Q""
2055 RCLEL
2056 STO "#GRAD"
2057 XEQ 15
2058 RCL "#Q""
2059 DIM?
2060 3
2061 -
2062 X<0?
2063 CLX
2064 STO ST X
2065 2
2066 +
2067 DIM "#Q""
2068 RCL "#Q""
2069 STO "#MAT-V"
2070 RCL "POI"
2071 STO "#MAT-U"
2072 XEQ 42
2073 RCL "PFI"
2074 STO "#PQ""
2075 RCL "QOI"
2076 STO "#MAT-U"
2077 RCL "#P""
2078 STO "#MAT-V"
2079 XEQ 42
2080 RCL "PFI"
2081 STO "#QP""
2082 DIM?
2083 RCL "#PQ""
2084 DIM?
2085 X<>Y
2086 R↓
2087 X>Y?
2088 X<>Y
2089 1
2090 X<>Y
2091 DIM "#QP""
2092 DIM "#PQ""
2093 RCL "#QP""
2094 RCL "#PQ""
2095 -
2096 STO "#MAT-U"
2097 RCL "#MAT-U"
2098 DIM?
2099 2
2100 -
2101 X<0?
2102 0
2103 INDEX "#MAT-U"
2104 STOEL
2105 RCL "QOI"
2106 STO "#MAT-V"
2107 XEQ 42
2108 RCL "PFI"
2109 STO "hOI"
2110 RCL "#Q'"
2111 STO+ ST X
2112 STO "#MAT-V"
2113 RCL "gOI"
2114 STO "#MAT-U"
2115 XEQ 42
2116 RCL "PFI"
2117 DIM?
2118 RCL "hOI"
2119 DIM?
2120 X<>Y
2121 R↓
2122 X>Y?
2123 X<>Y
2124 1
2125 X<>Y
2126 DIM "PFI"
2127 DIM "hOI"
2128 RCL "PFI"
2129 STO- "hOI"
2130 RCL "hOI"
2131 XEQ 18
2132 STO "hOI"
2133 STO "PWI"
2134 STO "PAI"
2135 CLV "#P'"
2136 CLV "#Q'"
2137 CLV "#P""
2138 CLV "#Q""
2139 CLV "#QP""
2140 CLV "#PQ""
2141 RTN
2142▸LBL 18
2143 "REDIM MATRIX"
2144 STO "#MAT#"
2145 DIM?
2146 INDEX "#MAT#"
2147 J+
2148 RCLEL
2149 STO ST T
2150 R↓
2151 2
2152 -
2153 X=0?
2154 GTO 19
2155 1
2156 +
2157 GETM
2158 X<>Y
2159 X≠0?
2160 GTO 19
2161 X<>Y
2162 CLV "#MAT#"
2163 STO "#MAT#"
2164 GTO 18
2165▸LBL 19
2166 RCL "#MAT#"
2167 DIM?
2168 2
2169 -
2170 X<0?
2171 CLX
2172 INDEX "#MAT#"
2173 STOEL
2174 RCL "#MAT#"
2175 CLV "#MAT#"
2176 RTN
2177▸LBL 02
2178 "PWI = ∫*OI"
2179 CLA
2180 ARCL "FKT-SEL"
2181 ATOX
2182 100
2183 ATOX
2184 X>Y?
2185 RTN
2186 CLA
2187 XTOA
2188 ├"OI"
2189 ASTO ST X
2190 RCL IND ST X
2191 STO "PWI"
2192 DIM?
2193 1
2194 +
2195 DIM "PWI"
2196 INDEX "PWI"
2197 RCLEL
2198 1
2199 +
2200 STOEL
2201 STO "#GRAD"
2202▸LBL 20
2203 J+
2204 RCLEL
2205 RCL "#GRAD"
2206 SF 25
2207 1/X
2208 ×
2209 STOEL
2210 DSE "#GRAD"
2211 GTO 20
2212 RTN
2213▸LBL 04
2214 "PWI(X) od. ∫PWI"
2215 STO "#ST-X"
2216 X<>Y
2217 STO "#ST-Y"
2218 SF 25
2219 CLA
2220 ARCL "#KEY-2#"
2221 ALENG
2222 X=0?
2223 GTO 10
2224 CLA
2225 ARCL "FKT-SEL"
2226 FC? 25
2227 GTO 10
2228 ATOX
2229 3
2230 X=Y?
2231 GTO 25
2232 RCL "#ST-X"
2233 STO- ST X
2234 FC? 25
2235 "ERROR: X"
2236 FC? 25
2237 XASTO "#MSG"
2238 FC? 25
2239 GTO 10
2240 INDEX "PWI"
2241 FC? 25
2242 GTO 10
2243 RCLEL
2244 STO "#GRAD"
2245 RCL "#ST-X"
2246 STO "XP"
2247 CLST
2248 STO "#ST-T"
2249 STO "#ST-Z"
2250 XEQ 21
2251 STO "#ST-Y"
2252 "0    0    "
2253 ARCL "FKT-SEL"
2254 ├"(X)    X"
2255 XASTO "#MSG"
2256 CLA
2257 ARCL "FKT-SEL"
2258 ATOX
2259 102
2260 X≠Y?
2261 GTO 10
2262 INDEX "QOI"
2263 RCLEL
2264 STO "#GRAD"
2265 CLST
2266 XEQ 21
2267 X≠0?
2268 1/X
2269 CLA
2270 "+/-oo"
2271 X=0?
2272 ASTO "#ST-Y"
2273 X=0?
2274 GTO 10
2275 STO× "#ST-Y"
2276 CLA
2277 ARCL "FKT-SEL"
2278 ATOX
2279 ATOX
2280 X=0?
2281 GTO 10
2282 RCL ST Z
2283 STO× "#ST-Y"
2284 X<>Y
2285 39
2286 X=Y?
2287 GTO 10
2288 RCL ST Z
2289 STO× "#ST-Y"
2290 GTO 10
2291▸LBL 21
2292 "Y(X)="
2293 "INDEX(MAT(XP))"
2294 J+
2295 RCLEL
2296 +
2297 RCL "XP"
2298 ×
2299 DSE "#GRAD"
2300 GTO 21
2301 J+
2302 RCLEL
2303 +
2304 1
2305 ENTER
2306 STOIJ
2307 R↓
2308 R↓
2309 RCLEL
2310 J+
2311 RCLEL
2312 X<>Y
2313 X=0?
2314 ENTER
2315 X<> ST Z
2316 STO "##"
2317 RCL "XP"
2318 0
2319 ENTER
2320 COMPLEX
2321 +
2322 ENTER
2323 COMPLEX
2324 X≠0?
2325 R↓
2326 R↓
2327 STO "XP"
2328 RCL "##"
2329 0
2330 ENTER
2331 COMPLEX
2332 +
2333 ENTER
2334 COMPLEX
2335 X≠0?
2336 R↓
2337 R↓
2338 CLV "##"
2339 RTN
2340▸LBL 22
2341 "CALC P0...P4"
2342 INDEX "PAI"
2343 RCL "XP"
2344 0
2345 STO "P0"
2346 STO "P1"
2347 STO "P2"
2348 STO "P3"
2349 STO "P4"
2350 ENTER
2351 COMPLEX
2352 +
2353 ENTER
2354 COMPLEX
2355 X≠0?
2356 COMPLEX
2357 R↓
2358 STO "XP"
2359 RCLEL
2360 STO "#GRAD"
2361 RCL "XP"
2362 ABS
2363 X≠0?
2364 GTO 23
2365 J-
2366 RCLEL
2367 RCL "#GRAD"
2368 X≠0?
2369 SIGN
2370 X<0?
2371 CLX
2372 ×
2373 STO "P0"
2374 J-
2375 RCLEL
2376 RCL "#GRAD"
2377 1
2378 -
2379 X≠0?
2380 SIGN
2381 X<0?
2382 CLX
2383 ×
2384 STO "P1"
2385 J-
2386 RCLEL
2387 2
2388 ×
2389 RCL "#GRAD"
2390 2
2391 -
2392 X≠0?
2393 SIGN
2394 X<0?
2395 CLX
2396 ×
2397 STO "P2"
2398 J-
2399 RCLEL
2400 6
2401 ×
2402 RCL "#GRAD"
2403 3
2404 -
2405 X≠0?
2406 SIGN
2407 X<0?
2408 CLX
2409 ×
2410 STO "P3"
2411 J-
2412 RCLEL
2413 24
2414 ×
2415 RCL "#GRAD"
2416 4
2417 -
2418 X≠0?
2419 SIGN
2420 X<0?
2421 CLX
2422 ×
2423 STO "P4"
2424 RTN
2425▸LBL 23
2426 RCL "#GRAD"
2427 X<0?
2428 RTN
2429 J+
2430 RCLEL
2431 STO+ "P0"
2432 RCL "#GRAD"
2433 ×
2434 LASTX
2435 1
2436 -
2437 SIGN
2438 X<0?
2439 CLX
2440 ×
2441 STO+ "P1"
2442 RCL "#GRAD"
2443 1
2444 -
2445 ×
2446 RCL "#GRAD"
2447 2
2448 -
2449 SIGN
2450 X<0?
2451 CLX
2452 ×
2453 STO+ "P2"
2454 RCL "#GRAD"
2455 2
2456 -
2457 ×
2458 RCL "#GRAD"
2459 3
2460 -
2461 SIGN
2462 X<0?
2463 CLX
2464 ×
2465 STO+ "P3"
2466 RCL "#GRAD"
2467 3
2468 -
2469 ×
2470 RCL "#GRAD"
2471 4
2472 -
2473 SIGN
2474 X<0?
2475 CLX
2476 ×
2477 STO+ "P4"
2478 RCL "XP"
2479 RCL "#GRAD"
2480 X≠0?
2481 SIGN
2482 X<0?
2483 CLX
2484 ×
2485 SF 25
2486 1/X
2487 FS? 25
2488 LASTX
2489 FS? 25
2490 STO× "P0"
2491 RCL "#GRAD"
2492 1
2493 -
2494 X≠0?
2495 SIGN
2496 X<0?
2497 CLX
2498 ×
2499 SF 25
2500 1/X
2501 FS? 25
2502 LASTX
2503 FS? 25
2504 STO× "P1"
2505 RCL "#GRAD"
2506 2
2507 -
2508 X≠0?
2509 SIGN
2510 X<0?
2511 CLX
2512 ×
2513 SF 25
2514 1/X
2515 FS? 25
2516 LASTX
2517 FS? 25
2518 STO× "P2"
2519 RCL "#GRAD"
2520 3
2521 -
2522 X≠0?
2523 SIGN
2524 X<0?
2525 CLX
2526 ×
2527 SF 25
2528 1/X
2529 FS? 25
2530 LASTX
2531 FS? 25
2532 STO× "P3"
2533 RCL "#GRAD"
2534 4
2535 -
2536 X≠0?
2537 SIGN
2538 X<0?
2539 CLX
2540 ×
2541 SF 25
2542 1/X
2543 FS? 25
2544 LASTX
2545 FS? 25
2546 STO× "P4"
2547 1
2548 STO- "#GRAD"
2549 GTO 23
2550▸LBL 24
2551 "QUAD or LINEAR"
2552 0
2553 STO "#CNT"
2554 INDEX "PWI"
2555 RCLEL
2556 X<>Y
2557 STOEL
2558 X<>Y
2559 1
2560 X=Y?
2561 GTO 02
2562 J+
2563 RCLEL
2564 J+
2565 RCLEL
2566 J+
2567 RCLEL
2568 RCL ST Z
2569 SF 25
2570 STO÷ ST Z
2571 SF 25
2572 1/X
2573 ×
2574 X<>Y
2575 2
2576 ÷
2577 +/-
2578 STO "#X1"
2579 STO "#X2"
2580 X↑2
2581 X<>Y
2582 -
2583 RCL "#XDIFF"
2584 X<>Y
2585 ABS
2586 X≤Y?
2587 CLX
2588 X≠0?
2589 LASTX
2590 SQRT
2591 STO- "#X1"
2592 STO+ "#X2"
2593 RCL "#X1"
2594 STO "XP"
2595 INDEX "PAI"
2596 RCLEL
2597 STO "#GRAD"
2598 CLST
2599 XEQ 21
2600 STO "#Y1"
2601 STO "P0"
2602 RCL "#X2"
2603 STO "XP"
2604 INDEX "PAI"
2605 RCLEL
2606 STO "#GRAD"
2607 CLST
2608 XEQ 21
2609 STO "#Y2"
2610 STO "P0"
2611 INDEX "PXI=0"
2612 J-
2613 RCLIJ
2614 X<>Y
2615 1
2616 -
2617 LASTX
2618 STOIJ
2619 1
2620 STOEL
2621 J+
2622 RCL "#X1"
2623 0
2624 ENTER
2625 COMPLEX
2626 +
2627 COMPLEX
2628 X<>Y
2629 STOEL
2630 J+
2631 X<>Y
2632 STOEL
2633 J+
2634 RCL "#Y1"
2635 0
2636 ENTER
2637 COMPLEX
2638 +
2639 COMPLEX
2640 X<>Y
2641 STOEL
2642 J+
2643 X<>Y
2644 STOEL
2645 J+
2646 RCL "#Y1"
2647 ABS
2648 STOEL
2649 J+
2650 1
2651 STOEL
2652 J+
2653 RCL "#X2"
2654 0
2655 ENTER
2656 COMPLEX
2657 +
2658 COMPLEX
2659 X<>Y
2660 STOEL
2661 J+
2662 X<>Y
2663 STOEL
2664 J+
2665 RCL "#Y2"
2666 0
2667 ENTER
2668 COMPLEX
2669 +
2670 COMPLEX
2671 X<>Y
2672 STOEL
2673 J+
2674 X<>Y
2675 STOEL
2676 J+
2677 RCL "#Y2"
2678 ABS
2679 STOEL
2680 RCL "#PRTYN"
2681 X<0?
2682 GTO 03
2683 ADV
2684 "# y(X) "
2685 ├"quadratisch"
2686 PRA
2687 RCL "#Y1"
2688 0
2689 ENTER
2690 COMPLEX
2691 +
2692 COMPLEX
2693 X≠0?
2694 GTO 01
2695 CLA
2696 ARCL "FKT-SEL"
2697 RCL "PXI=0"
2698 DIM?
2699 X<>Y
2700 STO "#NR"
2701 1
2702 -
2703 AIP
2704 ├" = "
2705 ARCL "#Y1"
2706 PRA
2707 CLA
2708 ARCL "FKT-SEL"
2709 RCL "#NR"
2710 AIP
2711 ├" = "
2712 ARCL "#Y2"
2713 PRA
2714 "X"
2715 RCL "#NR"
2716 1
2717 -
2718 AIP
2719 ├" = "
2720 ARCL "#X1"
2721 PRA
2722 "X"
2723 RCL "#NR"
2724 CLV "#NR"
2725 AIP
2726 ├" = "
2727 ARCL "#X2"
2728 PRA
2729 GTO 03
2730▸LBL 01
2731 CLA
2732 RCL "PXI=0"
2733 DIM?
2734 X<>Y
2735 1
2736 -
2737 AIP
2738 ├","
2739 1
2740 +
2741 AIP
2742 XASTO "#NR"
2743 CLA
2744 ARCL "FKT-SEL"
2745 ARCL "#NR"
2746 ├"_Im = "
2747 RCL "#Y1"
2748 0
2749 ENTER
2750 COMPLEX
2751 +
2752 COMPLEX
2753 ARCL ST X
2754 PRA
2755 CLA
2756 ARCL "FKT-SEL"
2757 ARCL "#NR"
2758 ├"_Re = "
2759 RCL "#Y1"
2760 0
2761 ENTER
2762 COMPLEX
2763 +
2764 COMPLEX
2765 X<>Y
2766 ARCL ST X
2767 PRA
2768 "|"
2769 ARCL "FKT-SEL"
2770 ARCL "#NR"
2771 ├"| = "
2772 RCL "#Y1"
2773 ABS
2774 ARCL ST X
2775 PRA
2776 "X"
2777 ARCL "#NR"
2778 ├"_Im = +/-"
2779 RCL "#X1"
2780 0
2781 ENTER
2782 COMPLEX
2783 +
2784 COMPLEX
2785 ABS
2786 ARCL ST X
2787 PRA
2788 CLA
2789 "X"
2790 ARCL "#NR"
2791 CLV "#NR"
2792 ├"_Re = "
2793 RCL "#X1"
2794 0
2795 ENTER
2796 COMPLEX
2797 +
2798 COMPLEX
2799 X<>Y
2800 ARCL ST X
2801 PRA
2802 GTO 03
2803▸LBL 02
2804 J+
2805 RCLEL
2806 J+
2807 RCLEL
2808 +/-
2809 X<>Y
2810 SF 25
2811 1/X
2812 ×
2813 STO "XP"
2814 INDEX "PAI"
2815 RCLEL
2816 STO "#GRAD"
2817 CLST
2818 XEQ 21
2819 STO "P0"
2820 INDEX "PXI=0"
2821 J-
2822 RCLIJ
2823 X<>Y
2824 1
2825 STOIJ
2826 STOEL
2827 J+
2828 RCL "XP"
2829 STOEL
2830 J+
2831 CLX
2832 STOEL
2833 J+
2834 RCL "P0"
2835 STOEL
2836 J+
2837 0
2838 STOEL
2839 J+
2840 X<>Y
2841 ABS
2842 STOEL
2843 RCL "#PRTYN"
2844 X<0?
2845 GTO 03
2846 ADV
2847 "# y(X) linear"
2848 PRA
2849 CLA
2850 ARCL "FKT-SEL"
2851 INDEX "PAI"
2852 RCLEL
2853 AIP
2854 ├" = "
2855 ARCL "P0"
2856 PRA
2857 "X"
2858 AIP
2859 ├" = "
2860 ARCL "XP"
2861 PRA
2862▸LBL 03
2863 RCL "PAI"
2864 STO "PWI"
2865 STO "PFI"
2866 GTO 82
2867▸LBL 25
2868 "CALC: ∫PWI(X,Y)"
2869 CLA
2870 ARCL "FKT-SEL"
2871 ATOX
2872 ATOX
2873 102
2874 X=Y?
2875 GTO 26
2876 RCL "#ST-X"
2877 SF 25
2878 STO- ST X
2879 FC? 25
2880 "ERROR: X"
2881 FC? 25
2882 XASTO "#MSG"
2883 FC? 25
2884 GTO 10
2885 RCL "#ST-Y"
2886 STO- ST X
2887 FC? 25
2888 "ERROR: Y"
2889 FC? 25
2890 XASTO "#MSG"
2891 FC? 25
2892 GTO 10
2893 INDEX "PWI"
2894 RCLEL
2895 STO "#GRAD"
2896 RCL "#ST-Y"
2897 STO "XP"
2898 CLST
2899 STO "#ST-T"
2900 STO "#ST-Z"
2901 XEQ 21
2902 STO "#ST-Z"
2903 INDEX "PWI"
2904 RCLEL
2905 STO "#GRAD"
2906 RCL "#ST-X"
2907 STO "XP"
2908 CLST
2909 XEQ 21
2910 STO- "#ST-Z"
2911 "|err|  "
2912 ARCL "FKT-SEL"
2913 ├"(x)dx   Y   X"
2914 XASTO "#MSG"
2915 GTO 10
2916▸LBL 26
2917 "INTEG: ∫f(x)dx"
2918 "GAUSS-KRONROD"
2919 "NODES & WEIGHTS"
2920 CLX
2921 STO "#ST-X"
2922 STO "#ST-Y"
2923 STO "#ST-Z"
2924 STO "#ST-T"
2925 SF 25
2926 INDEX "#INTEG"
2927 FS? 25
2928 GTO 27
2929 7
2930 ENTER
2931 100
2932 DIM "#INTEG"
2933 INDEX "#INTEG"
2934 "NODES"
2935 ASTO ST X
2936 STOEL
2937 J+
2938 -0.999804199685638727994974003607983
2939 STOEL
2940 J+
2941 +/-
2942 STOEL
2943 J+
2944 -0.998820150606635379361831272704111
2945 STOEL
2946 J+
2947 +/-
2948 STOEL
2949 J+
2950 -0.9968198142998264694012839590360078
2951 STOEL
2952 J+
2953 +/-
2954 STOEL
2955 J+
2956 -0.9937886619441677907601138592579536
2957 STOEL
2958 J+
2959 +/-
2960 STOEL
2961 J+
2962 -0.989764238414064471063168293135
2963 STOEL
2964 J+
2965 +/-
2966 STOEL
2967 J+
2968 -0.9847578959142130043592989953685747
2969 STOEL
2970 J+
2971 +/-
2972 STOEL
2973 J+
2974 -0.9787573030312066845298589027301962
2975 STOEL
2976 J+
2977 +/-
2978 STOEL
2979 J+
2980 -0.9717622009015553801399724215047741
2981 STOEL
2982 J+
2983 +/-
2984 STOEL
2985 J+
2986 -0.9637900181363554282611096000219869
2987 STOEL
2988 J+
2989 +/-
2990 STOEL
2991 J+
2992 -0.954853658674137233555243679668184
2993 STOEL
2994 J+
2995 +/-
2996 STOEL
2997 J+
2998 -0.944955059221329473155835112992641
2999 STOEL
3000 J+
3001 +/-
3002 STOEL
3003 J+
3004 -0.934100294755810149058982460636545
3005 STOEL
3006 J+
3007 +/-
3008 STOEL
3009 J+
3010 -0.9223054754539361687554290102229532
3011 STOEL
3012 J+
3013 +/-
3014 STOEL
3015 J+
3016 -0.9095856558280732852130196403558001
3017 STOEL
3018 J+
3019 +/-
3020 STOEL
3021 J+
3022 -0.8959496245835934207352332018243469
3023 STOEL
3024 J+
3025 +/-
3026 STOEL
3027 J+
3028 -0.8814084455730089100370315358170049
3029 STOEL
3030 J+
3031 +/-
3032 STOEL
3033 J+
3034 -0.8659800043151457264442523756091547
3035 STOEL
3036 J+
3037 +/-
3038 STOEL
3039 J+
3040 -0.8496821198441657010348818722429793
3041 STOEL
3042 J+
3043 +/-
3044 STOEL
3045 J+
3046 -0.8325285014874601685172633163696317
3047 STOEL
3048 J+
3049 +/-
3050 STOEL
3051 J+
3052 -0.814534427359855431539500787764777
3053 STOEL
3054 J+
3055 +/-
3056 STOEL
3057 J+
3058 -0.7957203207625248381360568099163764
3059 STOEL
3060 J+
3061 +/-
3062 STOEL
3063 J+
3064 -0.776106894345446635018142812248456
3065 STOEL
3066 J+
3067 +/-
3068 STOEL
3069 J+
3070 -0.7557118903695143082456546843790014
3071 STOEL
3072 J+
3073 +/-
3074 STOEL
3075 J+
3076 -0.734554254237402696213674212858525
3077 STOEL
3078 J+
3079 +/-
3080 STOEL
3081 J+
3082 -0.712657066705008830847420587154317
3083 STOEL
3084 J+
3085 +/-
3086 STOEL
3087 J+
3088 -0.6900438244251321135047518072749419
3089 STOEL
3090 J+
3091 +/-
3092 STOEL
3093 J+
3094 -0.666735700841571667866116467842425
3095 STOEL
3096 J+
3097 +/-
3098 STOEL
3099 J+
3100 -0.6427548324192376640568569485839001
3101 STOEL
3102 J+
3103 +/-
3104 STOEL
3105 J+
3106 -0.618126817800879299161146713068752
3107 STOEL
3108 J+
3109 +/-
3110 STOEL
3111 J+
3112 -0.5928776941089007124558643367926285
3113 STOEL
3114 J+
3115 +/-
3116 STOEL
3117 J+
3118 -0.567031549495391732863107815442941
3119 STOEL
3120 J+
3121 +/-
3122 STOEL
3123 J+
3124 -0.540613246991726066558225467229436
3125 STOEL
3126 J+
3127 +/-
3128 STOEL
3129 J+
3130 -0.513650628401734382311100884324782
3131 STOEL
3132 J+
3133 +/-
3134 STOEL
3135 J+
3136 -0.4861719414524920421769760960585751
3137 STOEL
3138 J+
3139 +/-
3140 STOEL
3141 J+
3142 -0.4582036915390298548495608644613814
3143 STOEL
3144 J+
3145 +/-
3146 STOEL
3147 J+
3148 -0.429772993341576524658584141807423
3149 STOEL
3150 J+
3151 +/-
3152 STOEL
3153 J+
3154 -0.4009095739292798809373223889102203
3155 STOEL
3156 J+
3157 +/-
3158 STOEL
3159 J+
3160 -0.371643501262284888863734540946961
3161 STOEL
3162 J+
3163 +/-
3164 STOEL
3165 J+
3166 -0.3420031959918559601078363738324531
3167 STOEL
3168 J+
3169 +/-
3170 STOEL
3171 J+
3172 -0.3120175321197487622078606765064163
3173 STOEL
3174 J+
3175 +/-
3176 STOEL
3177 J+
3178 -0.2817177082410294178774691465638328
3179 STOEL
3180 J+
3181 +/-
3182 STOEL
3183 J+
3184 -0.2511351786125772735071559428246113
3185 STOEL
3186 J+
3187 +/-
3188 STOEL
3189 J+
3190 -0.2202997655098053353242633730358589
3191 STOEL
3192 J+
3193 +/-
3194 STOEL
3195 J+
3196 -0.1892415924618135864853101738599865
3197 STOEL
3198 J+
3199 +/-
3200 STOEL
3201 J+
3202 -0.1579928776643683586660036556130289
3203 STOEL
3204 J+
3205 +/-
3206 STOEL
3207 J+
3208 -0.1265859972696720510679852885755362
3209 STOEL
3210 J+
3211 +/-
3212 STOEL
3213 J+
3214 -0.095051649986123375660035089328368
3215 STOEL
3216 J+
3217 +/-
3218 STOEL
3219 J+
3220 -0.06342068498268678602883482087848497
3221 STOEL
3222 J+
3223 +/-
3224 STOEL
3225 J+
3226 -0.0317258634590731536308193652686307
3227 STOEL
3228 J+
3229 +/-
3230 STOEL
3231 J+
3232 0
3233 STOEL
3234 J+
3235 "KRONROD"
3236 ASTO ST X
3237 STOEL
3238 J+
3239 0.00052747696837833231426392216677
3240 STOEL
3241 J+
3242 STOEL
3243 J+
3244 0.00147796392817436202085567581223501
3245 STOEL
3246 J+
3247 STOEL
3248 J+
3249 0.00252187657314964968451363314444
3250 STOEL
3251 J+
3252 STOEL
3253 J+
3254 0.0035329557014832599891867695315599
3255 STOEL
3256 J+
3257 STOEL
3258 J+
3259 0.0045141331625998620836358420641829
3260 STOEL
3261 J+
3262 STOEL
3263 J+
3264 0.0055014203993380782040404696584139
3265 STOEL
3266 J+
3267 STOEL
3268 J+
3269 0.006499872532166484516849830171239
3270 STOEL
3271 J+
3272 STOEL
3273 J+
3274 0.0074869102764140445198175459913945
3275 STOEL
3276 J+
3277 STOEL
3278 J+
3279 0.008455185639775045670114558371764
3280 STOEL
3281 J+
3282 STOEL
3283 J+
3284 0.0094175722296862066762316928503638
3285 STOEL
3286 J+
3287 STOEL
3288 J+
3289 0.0103787329241166077069683569328913
3290 STOEL
3291 J+
3292 STOEL
3293 J+
3294 0.0113278438578780228794689725519478
3295 STOEL
3296 J+
3297 STOEL
3298 J+
3299 0.0122591748799473589076504729170825
3300 STOEL
3301 J+
3302 STOEL
3303 J+
3304 0.0131792068212079366056557559621176
3305 STOEL
3306 J+
3307 STOEL
3308 J+
3309 0.014091111047270544037748385218045
3310 STOEL
3311 J+
3312 STOEL
3313 J+
3314 0.0149880989346802956592971874255513
3315 STOEL
3316 J+
3317 STOEL
3318 J+
3319 0.015865723698872893130368150761464
3320 STOEL
3321 J+
3322 STOEL
3323 J+
3324 0.0167278985537773186823128361860891
3325 STOEL
3326 J+
3327 STOEL
3328 J+
3329 0.0175768726412448262384462318590166
3330 STOEL
3331 J+
3332 STOEL
3333 J+
3334 0.0184077538519825820281183776609503
3335 STOEL
3336 J+
3337 STOEL
3338 J+
3339 0.0192169329826556442116763155896852
3340 STOEL
3341 J+
3342 STOEL
3343 J+
3344 0.0200070643859274929265393916944815
3345 STOEL
3346 J+
3347 STOEL
3348 J+
3349 0.0207798535198561693336617663172753
3350 STOEL
3351 J+
3352 STOEL
3353 J+
3354 0.0215314818077816867538181700504126
3355 STOEL
3356 J+
3357 STOEL
3358 J+
3359 0.0222589139301299466359937854028854
3360 STOEL
3361 J+
3362 STOEL
3363 J+
3364 0.0229641216311680166298032506167028
3365 STOEL
3366 J+
3367 STOEL
3368 J+
3369 0.023648494373863135027606738151061
3370 STOEL
3371 J+
3372 STOEL
3373 J+
3374 0.0243089029298119497086904956086293
3375 STOEL
3376 J+
3377 STOEL
3378 J+
3379 0.0249427312116380137806008849854078
3380 STOEL
3381 J+
3382 STOEL
3383 J+
3384 0.025551567629898396796236813110352
3385 STOEL
3386 J+
3387 STOEL
3388 J+
3389 0.026136629572717056199681859247504
3390 STOEL
3391 J+
3392 STOEL
3393 J+
3394 0.026695273107158037742721370750002
3395 STOEL
3396 J+
3397 STOEL
3398 J+
3399 0.0272252058087967119960015977339419
3400 STOEL
3401 J+
3402 STOEL
3403 J+
3404 0.0277278075508688728381337851641494
3405 STOEL
3406 J+
3407 STOEL
3408 J+
3409 0.028204220570029200521357749544287
3410 STOEL
3411 J+
3412 STOEL
3413 J+
3414 0.02865216671090199984955207682324
3415 STOEL
3416 J+
3417 STOEL
3418 J+
3419 0.0290696140121504756930876722916518
3420 STOEL
3421 J+
3422 STOEL
3423 J+
3424 0.0294578454056420734075586763875507
3425 STOEL
3426 J+
3427 STOEL
3428 J+
3429 0.0298179973237107521896477020354547
3430 STOEL
3431 J+
3432 STOEL
3433 J+
3434 0.030148081066799933145430671257942
3435 STOEL
3436 J+
3437 STOEL
3438 J+
3439 0.0304462797396858877385633903866
3440 STOEL
3441 J+
3442 STOEL
3443 J+
3444 0.0307138558577390833919631228468087
3445 STOEL
3446 J+
3447 STOEL
3448 J+
3449 0.030951992615566392527522287324914
3450 STOEL
3451 J+
3452 STOEL
3453 J+
3454 0.031158937496597415869647162792595
3455 STOEL
3456 J+
3457 STOEL
3458 J+
3459 0.0313330525912310597588614425068009
3460 STOEL
3461 J+
3462 STOEL
3463 J+
3464 0.0314756358269989035185166465702536
3465 STOEL
3466 J+
3467 STOEL
3468 J+
3469 0.0315879594586859731614238500111578
3470 STOEL
3471 J+
3472 STOEL
3473 J+
3474 0.0316684660566117158446164077085652
3475 STOEL
3476 J+
3477 STOEL
3478 J+
3479 0.031715664503973344041013897230302
3480 STOEL
3481 J+
3482 STOEL
3483 J+
3484 0.0317309313985218944090527052437375
3485 STOEL
3486 J+
3487 "GAUSS"
3488 ASTO ST X
3489 STOEL
3490 J+
3491 0
3492 J+
3493 J+
3494 0.003027278988922905077480698175827
3495 STOEL
3496 J+
3497 STOEL
3498 J+
3499 0
3500 J+
3501 J+
3502 0.007035099590086451473450678311348
3503 STOEL
3504 J+
3505 STOEL
3506 J+
3507 0
3508 J+
3509 J+
3510 0.0110205510315935804975082881668333
3511 STOEL
3512 J+
3513 STOEL
3514 J+
3515 0
3516 J+
3517 J+
3518 0.0149621449356246510295843191202015
3519 STOEL
3520 J+
3521 STOEL
3522 J+
3523 0
3524 J+
3525 J+
3526 0.0188435958530894584444506533911073
3527 STOEL
3528 J+
3529 STOEL
3530 J+
3531 0
3532 J+
3533 J+
3534 0.0226492015874466764987709642160429
3535 STOEL
3536 J+
3537 STOEL
3538 J+
3539 0
3540 J+
3541 J+
3542 0.026363618927066016960945745239742
3543 STOEL
3544 J+
3545 STOEL
3546 J+
3547 0
3548 J+
3549 J+
3550 0.0299718846205838253506905580741472
3551 STOEL
3552 J+
3553 STOEL
3554 J+
3555 0
3556 J+
3557 J+
3558 0.0334594667916221743424871508916892
3559 STOEL
3560 J+
3561 STOEL
3562 J+
3563 0
3564 J+
3565 J+
3566 0.0368123209630006898194672366988823
3567 STOEL
3568 J+
3569 STOEL
3570 J+
3571 0
3572 J+
3573 J+
3574 0.0400169457663730213686050367431033
3575 STOEL
3576 J+
3577 STOEL
3578 J+
3579 0
3580 J+
3581 J+
3582 0.0430604369812595979883454840010385
3583 STOEL
3584 J+
3585 STOEL
3586 J+
3587 0
3588 J+
3589 J+
3590 0.04593053935559585354249961997212767
3591 STOEL
3592 J+
3593 STOEL
3594 J+
3595 0
3596 J+
3597 J+
3598 0.0486156958878282402776511972878685
3599 STOEL
3600 J+
3601 STOEL
3602 J+
3603 0
3604 J+
3605 J+
3606 0.0511050943301445906746228060493186
3607 STOEL
3608 J+
3609 STOEL
3610 J+
3611 0
3612 J+
3613 J+
3614 0.0533887107082589685279429337301762
3615 STOEL
3616 J+
3617 STOEL
3618 J+
3619 0
3620 J+
3621 J+
3622 0.05545734967480358869043158148269807
3623 STOEL
3624 J+
3625 STOEL
3626 J+
3627 0
3628 J+
3629 J+
3630 0.0573026815301874754851645923508165
3631 STOEL
3632 J+
3633 STOEL
3634 J+
3635 0
3636 J+
3637 J+
3638 0.0589172757600272660245276507424925
3639 STOEL
3640 J+
3641 STOEL
3642 J+
3643 0
3644 J+
3645 J+
3646 0.0602946309531520173031061168755416
3647 STOEL
3648 J+
3649 STOEL
3650 J+
3651 0
3652 J+
3653 J+
3654 0.06142920097919293629682664614030107
3655 STOEL
3656 J+
3657 STOEL
3658 J+
3659 0
3660 J+
3661 J+
3662 0.0623164173200572674010768252159497
3663 STOEL
3664 J+
3665 STOEL
3666 J+
3667 0
3668 J+
3669 J+
3670 0.06295270746519569947439955578289101
3671 STOEL
3672 J+
3673 STOEL
3674 J+
3675 0
3676 J+
3677 J+
3678 0.0633355092964917485908369274000905
3679 STOEL
3680 J+
3681 STOEL
3682 J+
3683 0
3684 J+
3685 J+
3686 0.0634632814047905977182534678795296
3687 STOEL
3688 J+
3689 "KQ"
3690 ASTO ST X
3691 STOEL
3692 I+
3693 "GQ"
3694 ASTO ST X
3695 STOEL
3696 I+
3697 "KQ2"
3698 ASTO ST X
3699 STOEL
3700 I+
3701 "GQ2"
3702 ASTO ST X
3703 STOEL
3704 "Z = ∫f(x)dx="
3705 ├"F(Y)-F(X) "
3706 ├"INPUT •X •Y "
3707 ├"↓=-oo ↑=oo"
3708 XASTO "#MSG"
3709▸LBL 27
3710 "MENU ∫f(x)dx"
3711 CLV "#J"
3712 "∫f"
3713 KEY 1 GTO 27
3714 "•∫•"
3715 KEY 2 GTO 01
3716 "•∫↑"
3717 KEY 3 GTO 02
3718 "↓∫•"
3719 KEY 4 GTO 03
3720 "↓∫↑"
3721 KEY 5 GTO 04
3722 "BACK"
3723 KEY 6 GTO 33
3724 CLA
3725 KEY 7 GTO 27
3726 KEY 8 GTO 27
3727 KEY 9 GTO 98
3728 RCL "#ST-T"
3729 RCL "#ST-Z"
3730 RCL "#ST-Y"
3731 RCL "#ST-X"
3732 MENU
3733 CLA
3734 ARCL "#MSG"
3735 PROMPT
3736 GTO 27
3737▸LBL 01
3738 "CALC: •∫•"
3739 STO "#ST-X"
3740 X<>Y
3741 STO "#ST-Y"
3742 SF 25
3743 +
3744 FC? 25
3745 "ERROR: •Y •X"
3746 FC? 25
3747 XASTO "#MSG"
3748 FC? 25
3749 GTO 27
3750 2.10001
3751 STO "#J"
3752▸LBL 28
3753 INDEX "#INTEG"
3754 1
3755 RCL "#J"
3756 IP
3757 STOIJ
3758 RCLEL
3759 RCL "#ST-Y"
3760 RCL "#ST-X"
3761 -
3762 ×
3763 RCL "#ST-Y"
3764 +
3765 RCL "#ST-X"
3766 +
3767 2
3768 ÷
3769 STO "XP"
3770 INDEX "POI"
3771 RCLEL
3772 STO "#GRAD"
3773 CLST
3774 XEQ 21
3775 STO "#ST-Z"
3776 INDEX "QOI"
3777 RCLEL
3778 STO "#GRAD"
3779 CLST
3780 XEQ 21
3781 SF 25
3782 1/X
3783 STO× "#ST-Z"
3784 "ERR DIV BY 0"
3785 X=0?
3786 XASTO "#MSG"
3787 X=0?
3788 GTO 27
3789 INDEX "#INTEG"
3790 2
3791 RCL "#J"
3792 IP
3793 STOIJ
3794 RCLEL
3795 RCL "#ST-Z"
3796 ×
3797 I+
3798 I+
3799 STOEL
3800 I-
3801 RCLEL
3802 LASTX
3803 ×
3804 I+
3805 I+
3806 STOEL
3807 ISG "#J"
3808 GTO 28
3809 5
3810 ENTER
3811 2
3812 STOIJ
3813 2.10001
3814 STO "#J"
3815 STO- ST X
3816 XEQ 32
3817 4
3818 ENTER
3819 2
3820 STOIJ
3821 2.10001
3822 STO "#J"
3823 STO- ST X
3824 R↑
3825 X<>Y
3826 XEQ 32
3827 RCL "#ST-Y"
3828 RCL "#ST-X"
3829 -
3830 2
3831 ÷
3832 STO× ST Z
3833 ×
3834 STO "#ST-Z"
3835 -
3836 ABS
3837 STO "#ST-T"
3838 GTO 05
3839▸LBL 02
3840 "CALC: •∫↑"
3841 STO "#ST-X"
3842 SF 25
3843 STO- ST X
3844 R↓
3845 RCL "#ST-X"
3846 FC? 25
3847 "ERROR: •X"
3848 FC? 25
3849 XASTO "#MSG"
3850 FC? 25
3851 GTO 27
3852 "+oo"
3853 ASTO "#ST-Y"
3854 2.10001
3855 STO "#J"
3856▸LBL 29
3857 INDEX "#INTEG"
3858 1
3859 RCL "#J"
3860 IP
3861 STOIJ
3862 RCLEL
3863 1
3864 +
3865 1/X
3866 STO+ ST X
3867 1
3868 -
3869 RCL "#ST-X"
3870 +
3871 STO "XP"
3872 INDEX "POI"
3873 RCLEL
3874 STO "#GRAD"
3875 CLST
3876 XEQ 21
3877 STO "#ST-Z"
3878 INDEX "QOI"
3879 RCLEL
3880 STO "#GRAD"
3881 CLST
3882 XEQ 21
3883 SF 25
3884 1/X
3885 STO× "#ST-Z"
3886 "ERR DIV BY 0"
3887 X=0?
3888 XASTO "#MSG"
3889 X=0?
3890 GTO 27
3891 RCL "#ST-Z"
3892 INDEX "#INTEG"
3893 1
3894 RCL "#J"
3895 IP
3896 STOIJ
3897 RCLEL
3898 R↑
3899 X<>Y
3900 1
3901 +
3902 X↑2
3903 SF 25
3904 1/X
3905 ×
3906 I+
3907 RCLEL
3908 X<>Y
3909 ×
3910 LASTX
3911 I+
3912 RCLEL
3913 ×
3914 X<>Y
3915 I+
3916 STOEL
3917 X<>Y
3918 I+
3919 STOEL
3920 ISG "#J"
3921 GTO 29
3922 5
3923 ENTER
3924 2
3925 STOIJ
3926 2.10001
3927 STO "#J"
3928 STO- ST X
3929 XEQ 32
3930 STO+ ST X
3931 4
3932 ENTER
3933 2
3934 STOIJ
3935 2.10001
3936 STO "#J"
3937 STO- ST X
3938 R↑
3939 X<>Y
3940 XEQ 32
3941 STO+ ST X
3942 STO "#ST-Z"
3943 -
3944 ABS
3945 STO "#ST-T"
3946 GTO 05
3947▸LBL 03
3948 "CALC: ↓∫•"
3949 STO "#ST-X"
3950 X<>Y
3951 STO "#ST-Y"
3952 "-oo"
3953 ASTO ST X
3954 RCL "#ST-X"
3955 X=Y?
3956 RCL "#ST-Y"
3957 STO "#ST-X"
3958 SF 25
3959 STO- ST X
3960 FC? 25
3961 "ERROR: •Y •X"
3962 FC? 25
3963 XASTO "#MSG"
3964 FC? 25
3965 GTO 27
3966 2.10001
3967 STO "#J"
3968▸LBL 30
3969 INDEX "#INTEG"
3970 1
3971 RCL "#J"
3972 IP
3973 STOIJ
3974 RCL "#ST-X"
3975 RCLEL
3976 1
3977 +
3978 1/X
3979 STO+ ST X
3980 -
3981 1
3982 +
3983 STO "XP"
3984 INDEX "POI"
3985 RCLEL
3986 STO "#GRAD"
3987 CLST
3988 XEQ 21
3989 STO "#ST-Z"
3990 INDEX "QOI"
3991 RCLEL
3992 STO "#GRAD"
3993 CLST
3994 XEQ 21
3995 SF 25
3996 1/X
3997 STO× "#ST-Z"
3998 "ERR DIV BY 0"
3999 X=0?
4000 XASTO "#MSG"
4001 X=0?
4002 GTO 27
4003 RCL "#ST-Z"
4004 INDEX "#INTEG"
4005 1
4006 RCL "#J"
4007 IP
4008 STOIJ
4009 RCLEL
4010 R↑
4011 X<>Y
4012 1
4013 +
4014 X↑2
4015 SF 25
4016 1/X
4017 ×
4018 I+
4019 RCLEL
4020 X<>Y
4021 ×
4022 LASTX
4023 I+
4024 RCLEL
4025 ×
4026 X<>Y
4027 I+
4028 STOEL
4029 X<>Y
4030 I+
4031 STOEL
4032 ISG "#J"
4033 GTO 30
4034 5
4035 ENTER
4036 2
4037 STOIJ
4038 2.10001
4039 STO "#J"
4040 STO- ST X
4041 XEQ 32
4042 STO+ ST X
4043 4
4044 ENTER
4045 2
4046 STOIJ
4047 2.10001
4048 STO "#J"
4049 STO- ST X
4050 R↑
4051 X<>Y
4052 XEQ 32
4053 STO+ ST X
4054 STO "#ST-Z"
4055 -
4056 ABS
4057 STO "#ST-T"
4058 RCL "#ST-X"
4059 STO "#ST-Y"
4060 "-oo"
4061 ASTO "#ST-X"
4062 GTO 05
4063▸LBL 04
4064 "CALC: ↓∫↑"
4065 "-oo"
4066 ASTO "#ST-X"
4067 "+oo"
4068 ASTO "#ST-Y"
4069 2.10001
4070 STO "#J"
4071▸LBL 31
4072 INDEX "#INTEG"
4073 1
4074 RCL "#J"
4075 IP
4076 STOIJ
4077 RCLEL
4078 1
4079 +
4080 1/X
4081 STO+ ST X
4082 1
4083 -
4084 STO "XP"
4085 INDEX "POI"
4086 RCLEL
4087 STO "#GRAD"
4088 CLST
4089 XEQ 21
4090 STO "#ST-Z"
4091 INDEX "QOI"
4092 RCLEL
4093 STO "#GRAD"
4094 CLST
4095 XEQ 21
4096 SF 25
4097 1/X
4098 STO× "#ST-Z"
4099 "ERR DIV BY 0"
4100 X=0?
4101 XASTO "#MSG"
4102 X=0?
4103 GTO 27
4104 RCL "#ST-Z"
4105 INDEX "#INTEG"
4106 1
4107 RCL "#J"
4108 IP
4109 STOIJ
4110 RCLEL
4111 R↑
4112 X<>Y
4113 1
4114 +
4115 X↑2
4116 SF 25
4117 1/X
4118 ×
4119 I+
4120 RCLEL
4121 X<>Y
4122 ×
4123 LASTX
4124 I+
4125 RCLEL
4126 ×
4127 X<>Y
4128 I+
4129 STOEL
4130 X<>Y
4131 I+
4132 STOEL
4133 1
4134 RCL "#J"
4135 IP
4136 STOIJ
4137 1
4138 RCLEL
4139 1
4140 +
4141 1/X
4142 STO+ ST X
4143 -
4144 STO "XP"
4145 INDEX "POI"
4146 RCLEL
4147 STO "#GRAD"
4148 CLST
4149 XEQ 21
4150 STO "#ST-Z"
4151 INDEX "QOI"
4152 RCLEL
4153 STO "#GRAD"
4154 CLST
4155 XEQ 21
4156 SF 25
4157 1/X
4158 STO× "#ST-Z"
4159 "ERR DIV BY 0"
4160 X=0?
4161 XASTO "#MSG"
4162 X=0?
4163 GTO 27
4164 RCL "#ST-Z"
4165 INDEX "#INTEG"
4166 1
4167 RCL "#J"
4168 IP
4169 STOIJ
4170 RCLEL
4171 R↑
4172 X<>Y
4173 1
4174 +
4175 X↑2
4176 SF 25
4177 1/X
4178 ×
4179 I+
4180 RCLEL
4181 X<>Y
4182 ×
4183 LASTX
4184 I+
4185 RCLEL
4186 ×
4187 X<>Y
4188 I+
4189 I+
4190 I+
4191 STOEL
4192 X<>Y
4193 I+
4194 STOEL
4195 ISG "#J"
4196 GTO 31
4197 5
4198 ENTER
4199 2
4200 STOIJ
4201 2.10001
4202 STO "#J"
4203 STO- ST X
4204 XEQ 32
4205 STO+ ST X
4206 7
4207 ENTER
4208 2
4209 STOIJ
4210 2.10001
4211 STO "#J"
4212 STO- ST X
4213 R↑
4214 X<>Y
4215 XEQ 32
4216 STO+ ST X
4217 +
4218 4
4219 ENTER
4220 2
4221 STOIJ
4222 2.10001
4223 STO "#J"
4224 STO- ST X
4225 R↑
4226 X<>Y
4227 XEQ 32
4228 STO+ ST X
4229 6
4230 ENTER
4231 2
4232 STOIJ
4233 R↓
4234 R↓
4235 2.10001
4236 STO "#J"
4237 STO- ST X
4238 XEQ 32
4239 STO+ ST X
4240 +
4241 STO "#ST-Z"
4242 -
4243 ABS
4244 STO "#ST-T"
4245 GTO 27
4246▸LBL 05
4247 "|err|  ∫f(x)"
4248 ├"dx   Y   X"
4249 XASTO "#MSG"
4250 GTO 27
4251▸LBL 32
4252 RCLEL
4253 +
4254 J+
4255 ISG "#J"
4256 GTO 32
4257 RTN
4258▸LBL 33
4259 CLV "#INTEG"
4260 CLA
4261 ASTO "#MSG"
4262 GTO 10
4263▸LBL 34
4264 "INIT MENU: NEW"
4265 CLA
4266 "NEW"
4267 ASTO ST X
4268 RCL "#KEY-3#"
4269 X≠Y?
4270 GTO 10
4271 CLA
4272 ARCL "FKT-SEL"
4273 ASTO "NEW-ACT"
4274▸LBL 35
4275 "MENU: NEW"
4276 "EINGABE POLYNOM"
4277 CLST
4278 CLMENU
4279 CLA
4280 ARCL "NEW-ACT"
4281 KEY 1 GTO 01
4282 ALENG
4283 CLA
4284 1
4285 X=Y?
4286 "Ai"
4287 KEY 2 GTO 02
4288 ALENG
4289 CLA
4290 2
4291 X=Y?
4292 "Xi"
4293 KEY 3 GTO 07
4294 CLA
4295 ARCL "NEW-ACT"
4296 ATOX
4297 CLA
4298 XTOA
4299 ├"OI"
4300 ASTO "#PRT"
4301 ASTO ST X
4302 SF 25
4303 INDEX IND ST X
4304 CLA
4305 ARCL "NEW-ACT"
4306 ALENG
4307 1
4308 -
4309 "XEQ"
4310 X=0?
4311 CLA
4312 FC? 25
4313 CLA
4314 ASTO "#KEY-4#"
4315 KEY 4 GTO 04
4316 CLA
4317 X=0?
4318 "Prt"
4319 X=0?
4320 ARCL "NEW-ACT"
4321 FC? 25
4322 CLA
4323 ASTO "#KEY-5#"
4324 KEY 5 GTO 05
4325 "BACK"
4326 KEY 6 GTO 06
4327 KEY 7 GTO 35
4328 KEY 8 GTO 35
4329 KEY 9 GTO 98
4330 CLA
4331 CLST
4332 MENU
4333 STOP
4334 GTO 35
4335▸LBL 01
4336 "SELECT ACTION"
4337 RCL "NEW-ACT"
4338 "P"
4339 ASTO ST Y
4340 "Q"
4341 X=Y?
4342 ASTO "NEW-ACT"
4343 ASTO ST Y
4344 "P<>Q"
4345 X=Y?
4346 ASTO "NEW-ACT"
4347 ASTO ST Y
4348 "P:PxQ"
4349 X=Y?
4350 ASTO "NEW-ACT"
4351 ASTO ST Y
4352 "P:P+Q"
4353 X=Y?
4354 ASTO "NEW-ACT"
4355 ASTO ST Y
4356 "P:P-Q"
4357 X=Y?
4358 ASTO "NEW-ACT"
4359 ASTO ST Y
4360 "P"
4361 X=Y?
4362 ASTO "NEW-ACT"
4363 GTO 35
4364▸LBL 04
4365 "XEQ P=P?Q"
4366 CLA
4367 ARCL "#KEY-4#"
4368 ALENG
4369 X=0?
4370 GTO 35
4371 GTO 45
4372▸LBL 05
4373 "Prt POI o. PQI"
4374 CLA
4375 ARCL "NEW-ACT"
4376 ALENG
4377 1
4378 X≠Y?
4379 GTO 35
4380 ├"OI"
4381 ASTO ST X
4382 SF 25
4383 RCL IND ST X
4384 FC? 25
4385 GTO 35
4386 ADV
4387 PRV IND ST Y
4388 GTO 35
4389▸LBL 02
4390 "EINGABE Ai"
4391 CLST
4392 CLMENU
4393 EXITALL
4394 "GRAD "
4395 ARCL "FKT-SEL"
4396 ├"(x) = ?"
4397 PROMPT
4398 X<0?
4399 GTO 10
4400 STO "#GRAD"
4401 CLA
4402 ARCL "FKT-SEL"
4403 ATOX
4404 15
4405 -
4406 CLA
4407 XTOA
4408 ASTO "#KOEFF"
4409 CLA
4410 ARCL "#KOEFF"
4411 RCL "#GRAD"
4412 AIP
4413 ├" = ?"
4414 CLST
4415 1
4416 PROMPT
4417 X=0?
4418 GTO 10
4419 STO "#ABn"
4420 1
4421 RCL "#GRAD"
4422 2
4423 +
4424 CLA
4425 ARCL "FKT-SEL"
4426 ├"OI"
4427 ASTO ST Z
4428 DIM IND ST Z
4429 CLX
4430 STO× IND ST Z
4431 INDEX IND ST Z
4432 RCL "#GRAD"
4433 STOEL
4434 J+
4435 RCL "#ABn"
4436 CLV "#ABn"
4437 STOEL
4438 J+
4439 DSE "#GRAD"
4440▸LBL 36
4441 RCL "#GRAD"
4442 X<0?
4443 GTO 06
4444 CLA
4445 ARCL "#KOEFF"
4446 RCL "#GRAD"
4447 AIP
4448 KEY 1 GTO 01
4449 "i,"
4450 "i↑ "
4451 ARCL "#KOEFF"
4452 ├"i"
4453 KEY 2 GTO 02
4454 CLA
4455 ARCL "#KOEFF"
4456 ├"i↑ i"
4457 KEY 3 GTO 03
4458 "<n:o>"
4459 KEY 4 GTO 04
4460 "<o:n>"
4461 KEY 5 GTO 05
4462 "END"
4463 KEY 6 GTO 06
4464 KEY 7 GTO 36
4465 KEY 8 GTO 36
4466 KEY 9 GTO 98
4467 CLST
4468 "INPUT: "
4469 ARCL "#KOEFF"
4470 ├"i"
4471 MENU
4472 PROMPT
4473 GTO 36
4474▸LBL 01
4475 CLA
4476 ARCL "FKT-SEL"
4477 ├"OI"
4478 ASTO ST Y
4479 INDEX IND ST Y
4480 RCLEL
4481 RCL "#GRAD"
4482 -
4483 2
4484 +
4485 1
4486 X<>Y
4487 STOIJ
4488 RCL ST Z
4489 STOEL
4490 DSE "#GRAD"
4491 STO ST X
4492 GTO 36
4493▸LBL 02
4494 X<>Y
4495 GTO 03
4496▸LBL 03
4497 STO "#GRAD"
4498 CLA
4499 ARCL "FKT-SEL"
4500 ├"OI"
4501 ASTO ST Z
4502 INDEX IND ST Z
4503 RCLEL
4504 X<>Y
4505 -
4506 2
4507 +
4508 1
4509 X<>Y
4510 STOIJ
4511 RCL ST Z
4512 STOEL
4513 DSE "#GRAD"
4514 STO ST X
4515 GTO 36
4516▸LBL 04
4517 "<n:o>"
4518 TYPE?
4519 3
4520 X≠Y?
4521 GTO 36
4522 LASTX
4523 DIM?
4524 X>Y?
4525 X<>Y
4526 1
4527 X≠Y?
4528 GTO 36
4529 LASTX
4530 ENTER
4531 DIM?
4532 LASTX
4533 TRANS
4534 R↓
4535 X>Y?
4536 R↑
4537 R↑
4538 STO "###"
4539 CLA
4540 ARCL "FKT-SEL"
4541 ├"OI"
4542 ASTO ST X
4543 STO "###M"
4544 INDEX IND "###M"
4545 J-
4546 RCLIJ
4547 INDEX "###"
4548 J-
4549 RCLIJ
4550 X<>Y
4551 R↓
4552 -
4553 1
4554 X≠Y?
4555 CLV "###"
4556 X≠Y?
4557 CLV "###M"
4558 X≠Y?
4559 GTO 36
4560 RCL "###"
4561 INDEX IND "###M"
4562 J+
4563 PUTM
4564 CLV "###"
4565 RCL IND "###M"
4566 STO "PWI"
4567 CLV "###M"
4568 "Eingabe "
4569 ARCL "FKT-SEL"
4570 ├"(X) erfolgt"
4571 XASTO "#MSG"
4572 GTO 10
4573▸LBL 05
4574 "<o:n>"
4575 TYPE?
4576 3
4577 X≠Y?
4578 GTO 36
4579 LASTX
4580 DIM?
4581 X>Y?
4582 X<>Y
4583 1
4584 X≠Y?
4585 GTO 36
4586 LASTX
4587 ENTER
4588 DIM?
4589 LASTX
4590 TRANS
4591 R↓
4592 X<Y?
4593 R↑
4594 R↑
4595 STO "###"
4596 CLA
4597 ARCL "FKT-SEL"
4598 ├"OI"
4599 ASTO ST X
4600 STO "###M"
4601 INDEX IND "###M"
4602 J-
4603 RCLIJ
4604 INDEX "###"
4605 J-
4606 RCLIJ
4607 R↓
4608 -
4609 1
4610 X≠Y?
4611 CLV "###"
4612 X≠Y?
4613 CLV "###M"
4614 X≠Y?
4615 GTO 36
4616 INDEX "###"
4617 J-
4618 RCLIJ
4619 STO "#I"
4620 X<>Y
4621 STO "#J"
4622▸LBL 37
4623 R<>R
4624 1
4625 STO+ "#I"
4626 STO- "#J"
4627 RCL "#I"
4628 RCL "#J"
4629 X>Y?
4630 GTO 37
4631 CLV "#I"
4632 CLV "#J"
4633 RCL "###"
4634 TRANS
4635 INDEX IND "###M"
4636 J+
4637 PUTM
4638 CLV "###"
4639 RCL IND "###M"
4640 STO "PWI"
4641 CLV "###M"
4642 "Eingabe "
4643 ARCL "FKT-SEL"
4644 ├"(X) erfolgt"
4645 XASTO "#MSG"
4646 GTO 10
4647▸LBL 06
4648 "BACK MENU 35 36"
4649 CLA
4650 ARCL "FKT-SEL"
4651 ├"OI"
4652 ASTO ST X
4653 RCL IND ST X
4654 STO "PWI"
4655 "Eingabe "
4656 ARCL "FKT-SEL"
4657 ├"(X) erfolgt"
4658 XASTO "#MSG"
4659 GTO 10
4660▸LBL 07
4661 "INPUT An/Bn"
4662 EXITALL
4663 CLA
4664 ARCL "FKT-SEL"
4665 ATOX
4666 15
4667 -
4668 "INPUT: "
4669 XTOA
4670 ├"n = ?"
4671 CLST
4672 1
4673 PROMPT
4674 X=0?
4675 GTO 10
4676 STO "#KOEFF"
4677 CLV "PFI"
4678 1
4679 ENTER
4680 DIM "MAT-Xi"
4681 STO+ ST X
4682 DIM "PFI"
4683 INDEX "MAT-Xi"
4684 "Xi"
4685 ASTO ST X
4686 STOEL
4687 INDEX "PFI"
4688 CLX
4689 STOEL
4690 J+
4691 RCL "#KOEFF"
4692 STOEL
4693▸LBL 38
4694 "EINGABE Xi"
4695 CLA
4696 ARCL "FKT-SEL"
4697 KEY 1 GTO 38
4698 CLA
4699 "="
4700 ARCL "FKT-SEL"
4701 ├"xXi"
4702 KEY 2 XEQ 40
4703 CLA
4704 "X1:Xn"
4705 KEY 3 GTO 03
4706 "PrtXi"
4707 KEY 4 GTO 04
4708 "Prt"
4709 ARCL "FKT-SEL"
4710 KEY 5 GTO 05
4711 "END"
4712 KEY 6 GTO 06
4713 KEY 7 GTO 38
4714 KEY 8 GTO 38
4715 KEY 9 GTO 98
4716 MENU
4717 INDEX "PFI"
4718 RCLEL
4719 1
4720 +
4721 "INPUT: X"
4722 AIP
4723 CF 22
4724 PROMPT
4725 FS? 22
4726 XEQ 40
4727 GTO 38
4728▸LBL 03
4729 ENTER
4730 TYPE?
4731 STO+ ST X
4732 7
4733 -
4734 ABS
4735 1
4736 -
4737 X≠0?
4738 GTO 38
4739 X<>Y
4740 DIM?
4741 X>Y?
4742 X<>Y
4743 1
4744 X≠Y?
4745 GTO 38
4746 LASTX
4747 ENTER
4748 DIM?
4749 ×
4750 STO "#I"
4751 X<>Y
4752 STO "###M"
4753 INDEX "###M"
4754 1
4755 RCL "#I"
4756 SF 25
4757 STOIJ
4758 RCL "###M"
4759 FC? 25
4760 TRANS
4761 STO "###M"
4762▸LBL 39
4763 INDEX "###M"
4764 1
4765 RCL "#I"
4766 X=0?
4767 GTO 06
4768 STOIJ
4769 RCLEL
4770 0
4771 ENTER
4772 COMPLEX
4773 +
4774 ENTER
4775 COMPLEX
4776 X≠0?
4777 R↓
4778 R↓
4779 CPX?
4780 DSE "#I"
4781 STO ST X
4782 XEQ 40
4783 1
4784 STO- "#I"
4785 GTO 39
4786▸LBL 04
4787 "Prt Xi"
4788 ADV
4789 SF 25
4790 PRV "MAT-Xi"
4791 GTO 38
4792▸LBL 05
4793 "Prt: Ai o. Bi"
4794 ADV
4795 PRV "PFI"
4796 GTO 38
4797▸LBL 06
4798 "BACK MENU 38"
4799 CLV "MAT-Xi"
4800 CLV "###M"
4801 CLV "#I"
4802 SF 25
4803 RCL "#KOEFF"
4804 FC? 25
4805 CLV "PFI"
4806 FC? 25
4807 GTO 10
4808 SF 25
4809 RCL "PFI"
4810 CLV "PFI"
4811 CLA
4812 ARCL "FKT-SEL"
4813 ├"OI"
4814 ASTO ST Y
4815 STO IND ST Y
4816 STO "PWI"
4817 "Eingabe "
4818 ARCL "FKT-SEL"
4819 ├"(X) erfolgt"
4820 XASTO "#MSG"
4821 GTO 10
4822▸LBL 40
4823 CF 22
4824 STO "#Xi"
4825 RCL "PFI"
4826 STO "#MAT-V"
4827 X<>Y
4828 CPX?
4829 GTO 41
4830 CLV "#MAT-U"
4831 1
4832 ENTER
4833 3
4834 DIM "#MAT-U"
4835 INDEX "#MAT-U"
4836 X<>Y
4837 STOEL
4838 J+
4839 STOEL
4840 J+
4841 X<> ST Z
4842 +/-
4843 STOEL
4844 RCL "MAT-Xi"
4845 DIM?
4846 1
4847 +
4848 DIM "MAT-Xi"
4849 INDEX "MAT-Xi"
4850 J-
4851 RCL "#Xi"
4852 STOEL
4853 GTO 42
4854▸LBL 41
4855 CLV "#MAT-U"
4856 1
4857 ENTER
4858 4
4859 DIM "#MAT-U"
4860 INDEX "#MAT-U"
4861 2
4862 STOEL
4863 J+
4864 X<> ST Z
4865 STOEL
4866 J+
4867 R↑
4868 COMPLEX
4869 X↑2
4870 X<>Y
4871 X↑2
4872 LASTX
4873 STO+ ST X
4874 +/-
4875 STOEL
4876 J+
4877 X<> ST Z
4878 +
4879 STOEL
4880 RCL "MAT-Xi"
4881 DIM?
4882 2
4883 +
4884 DIM "MAT-Xi"
4885 INDEX "MAT-Xi"
4886 J-
4887 J-
4888 CLA
4889 ARCL "#Xi"
4890 XASTO ST X
4891 STOEL
4892 J+
4893 RCL "#Xi"
4894 COMPLEX
4895 +/-
4896 COMPLEX
4897 CLA
4898 ARCL ST X
4899 XASTO ST X
4900 STOEL
4901▸LBL 42
4902 "PFI = #MAT(UxV)"
4903 INDEX "#MAT-U"
4904 RCLEL
4905 2
4906 +
4907 1
4908 X<>Y
4909 DIM "#MAT-U"
4910 INDEX "#MAT-U"
4911 J+
4912 RCL "#MAT-U"
4913 DIM?
4914 1
4915 STO "#UVON"
4916 -
4917 STO "#UBIS"
4918 GETM
4919 CLV "#UX"
4920 STO "#UX"
4921 INDEX "#MAT-V"
4922 RCLEL
4923 2
4924 +
4925 1
4926 X<>Y
4927 DIM "#MAT-V"
4928 INDEX "#MAT-V"
4929 J+
4930 RCL "#MAT-V"
4931 DIM?
4932 1
4933 -
4934 GETM
4935 CLV "#VX"
4936 STO "#VX"
4937 CLV "PFI"
4938 CLV "PFJ"
4939 1
4940 INDEX "#MAT-U"
4941 RCLEL
4942 INDEX "#MAT-V"
4943 RCLEL
4944 +
4945 2
4946 +
4947 DIM "PFI"
4948 DIM "PFJ"
4949▸LBL 43
4950 CLX
4951 STO× "PFJ"
4952 INDEX "#UX"
4953 1
4954 RCL "#UVON"
4955 STOIJ
4956 RCLEL
4957 RCL "#VX"
4958 ×
4959 INDEX "PFJ"
4960 1
4961 RCL "#UVON"
4962 1
4963 +
4964 STOIJ
4965 R↑
4966 R↑
4967 PUTM
4968 RCL "PFJ"
4969 STO+ "PFI"
4970 1
4971 STO+ "#UVON"
4972 RCL "#UBIS"
4973 RCL "#UVON"
4974 X≤Y?
4975 GTO 43
4976 RCL "PFI"
4977 DIM?
4978 2
4979 -
4980 INDEX "PFI"
4981 STOEL
4982 CLV "PFJ"
4983 CLV "#MAT-U"
4984 CLV "#MAT-V"
4985 CLV "#UVON"
4986 CLV "#UBIS"
4987 CLV "#UX"
4988 CLV "#VX"
4989 FC? 22
4990 RTN
4991 RCL "PFI"
4992 STO "POI"
4993 RTN
4994▸LBL 44
4995 "P = P+/-Q"
4996 INDEX "#MAT-U"
4997 J-
4998 RCLIJ
4999 INDEX "#MAT-V"
5000 J-
5001 RCLIJ
5002 X<>Y
5003 R↓
5004 X>Y?
5005 X<>Y
5006 R↓
5007 STO "#DIM"
5008 DIM "#MAT-U"
5009 DIM "#MAT-V"
5010 INDEX "#MAT-U"
5011 RCLEL
5012 STO "#GRAD"
5013 J+
5014 1
5015 +
5016 LASTX
5017 X<>Y
5018 GETM
5019 0
5020 STO× "#MAT-U"
5021 X<>Y
5022 1
5023 RCL "#DIM"
5024 RCL "#GRAD"
5025 -
5026 STOIJ
5027 R↑
5028 PUTM
5029 INDEX "#MAT-V"
5030 RCLEL
5031 STO "#GRAD"
5032 J+
5033 1
5034 +
5035 LASTX
5036 X<>Y
5037 GETM
5038 0
5039 STO× "#MAT-V"
5040 X<>Y
5041 1
5042 RCL "#DIM"
5043 CLV "#DIM"
5044 RCL "#GRAD"
5045 -
5046 STOIJ
5047 R↑
5048 PUTM
5049 RCL "#MAT-U"
5050 RCL "#MAT-V"
5051 +
5052 XEQ 18
5053 STO "POI"
5054 GTO 10
5055▸LBL 45
5056 "CALC: P=P?Q"
5057 RCL "POI"
5058 STO "#MAT-U"
5059 RCL "QOI"
5060 STO ST Y
5061 +/-
5062 RCL "NEW-ACT"
5063 ENTER
5064 "P:P-Q"
5065 ASTO ST X
5066 X=Y?
5067 R↑
5068 R↑
5069 STO "#MAT-V"
5070 INDEX "#MAT-V"
5071 RCLEL
5072 ABS
5073 STOEL
5074 CLA
5075 ARCL "NEW-ACT"
5076 3
5077 AROT
5078 ATOX
5079 STO "#CMD"
5080 44
5081 -
5082 ABS
5083 1
5084 X=Y?
5085 GTO 44
5086 RCL "#CMD"
5087 100
5088 X<Y?
5089 SF 22
5090 X<Y?
5091 XEQ 42
5092 RCL "#CMD"
5093 100
5094 X<Y?
5095 GTO 10
5096 RCL "POI"
5097 RCL "QOI"
5098 STO "POI"
5099 X<>Y
5100 STO "QOI"
5101 GTO 10
5102▸LBL 46
5103 "NULLSTELLE XP"
5104 "PWI=PWI/(X-XP)"
5105 RCL "#PRTYy"
5106 ABS
5107 1
5108 +
5109 STO "#PRTYy"
5110 RCL "XP"
5111 0
5112 ENTER
5113 COMPLEX
5114 +
5115 COMPLEX
5116 X=0?
5117 GTO 02
5118 X↑2
5119 X<>Y
5120 X↑2
5121 STO+ ST Y
5122 X<> ST L
5123 STO+ ST X
5124 +/-
5125 STO "#P"
5126 X<>Y
5127 STO "#Q"
5128 RCL "XP"
5129 STO "#X1"
5130 COMPLEX
5131 +/-
5132 COMPLEX
5133 STO "#X2"
5134▸LBL 47
5135 RCL "#X1"
5136 STO "XP"
5137 INDEX "PAI"
5138 RCLEL
5139 STO "#GRAD"
5140 CLST
5141 XEQ 21
5142 STO "#Y1"
5143 STO "P0"
5144 RCL "#X2"
5145 STO "XP"
5146 INDEX "PAI"
5147 RCLEL
5148 STO "#GRAD"
5149 CLST
5150 XEQ 21
5151 STO "#Y2"
5152 STO "P0"
5153 RCL "#PRTYN"
5154 X≥0?
5155 XEQ 01
5156 INDEX "PAI"
5157 RCLEL
5158 INDEX "PWI"
5159 RCLEL
5160 -
5161 1
5162 +
5163 LASTX
5164 INDEX "PXI=0"
5165 STOIJ
5166 RCL "#CNT"
5167 STOEL
5168 J+
5169 RCL "#X1"
5170 0
5171 ENTER
5172 COMPLEX
5173 +
5174 COMPLEX
5175 X<>Y
5176 STOEL
5177 J+
5178 X<>Y
5179 STOEL
5180 J+
5181 RCL "#Y1"
5182 0
5183 ENTER
5184 COMPLEX
5185 +
5186 COMPLEX
5187 X<>Y
5188 STOEL
5189 J+
5190 X<>Y
5191 STOEL
5192 J+
5193 RCL "#Y1"
5194 ABS
5195 STOEL
5196 J+
5197 RCL "#CNT"
5198 STOEL
5199 J+
5200 RCL "#X2"
5201 0
5202 ENTER
5203 COMPLEX
5204 +
5205 COMPLEX
5206 X<>Y
5207 STOEL
5208 J+
5209 X<>Y
5210 STOEL
5211 J+
5212 RCL "#Y2"
5213 0
5214 ENTER
5215 COMPLEX
5216 +
5217 COMPLEX
5218 X<>Y
5219 STOEL
5220 J+
5221 X<>Y
5222 STOEL
5223 J+
5224 RCL "#Y2"
5225 ABS
5226 STOEL
5227 INDEX "PWI"
5228 RCLEL
5229 STO "#GRAD"
5230 2
5231 -
5232 STOEL
5233 J+
5234 RCLEL
5235 STO ST Y
5236 J+
5237 RCLEL
5238 X<>Y
5239 RCL "#P"
5240 ×
5241 -
5242 STOEL
5243 DSE "#GRAD"
5244▸LBL 48
5245 "PWI=PWI"
5246 "   /(x^2+Px+Q)"
5247 RCLEL
5248 RCL "#P"
5249 ×
5250 RCL ST Z
5251 RCL "#Q"
5252 ×
5253 +
5254 J+
5255 RCLEL
5256 X<>Y
5257 -
5258 STOEL
5259 DSE "#GRAD"
5260 GTO 48
5261 RTN
5262▸LBL 01
5263 RCL "XP"
5264 0
5265 ENTER
5266 COMPLEX
5267 +
5268 COMPLEX
5269 X=0?
5270 GTO 01
5271 ADV
5272 "#CNT: i="
5273 RCL "#CNT"
5274 AIP
5275 ├"  "
5276 ARCL "#METHOD"
5277 ├" m="
5278 RCL "#M"
5279 AIP
5280 PRA
5281 "Y"
5282 INDEX "PAI"
5283 RCLEL
5284 INDEX "PWI"
5285 RCLEL
5286 -
5287 X>0?
5288 "y"
5289 1
5290 +
5291 AIP
5292 ├","
5293 1
5294 +
5295 AIP
5296 XASTO "#NR"
5297 ├"_Im = "
5298 RCL "P0"
5299 0
5300 ENTER
5301 COMPLEX
5302 +
5303 COMPLEX
5304 ARCL ST X
5305 PRA
5306 CLA
5307 ARCL "#NR"
5308 ├"_Re = "
5309 RCL "P0"
5310 0
5311 ENTER
5312 COMPLEX
5313 +
5314 COMPLEX
5315 X<>Y
5316 ARCL ST X
5317 PRA
5318 "|"
5319 ARCL "#NR"
5320 ├"| = "
5321 RCL "P0"
5322 ABS
5323 ARCL ST X
5324 PRA
5325 "X"
5326 INDEX "PAI"
5327 RCLEL
5328 INDEX "PWI"
5329 RCLEL
5330 -
5331 1
5332 +
5333 AIP
5334 ├","
5335 1
5336 +
5337 AIP
5338 XASTO "#NR"
5339 ├"_Im = +/-"
5340 RCL "XP"
5341 0
5342 ENTER
5343 COMPLEX
5344 +
5345 COMPLEX
5346 ABS
5347 ARCL ST X
5348 PRA
5349 CLA
5350 ARCL "#NR"
5351 CLV "#NR"
5352 ├"_Re = "
5353 RCL "XP"
5354 0
5355 ENTER
5356 COMPLEX
5357 +
5358 COMPLEX
5359 X<>Y
5360 ARCL ST X
5361 PRA
5362 "W(X) = (X-X"
5363 INDEX "PAI"
5364 RCLEL
5365 INDEX "PWI"
5366 RCLEL
5367 -
5368 1
5369 +
5370 AIP
5371 ├")(X-X"
5372 1
5373 +
5374 AIP
5375 ├")"
5376 PRA
5377 1
5378 RCL "#PRTYy"
5379 X≤Y?
5380 "y(X) = Y(X) / "
5381 X>Y?
5382 "y(X) = y(X) / "
5383 ├"W(X)"
5384 PRA
5385 RTN
5386▸LBL 01
5387 ADV
5388 "#CNT: i="
5389 RCL "#CNT"
5390 AIP
5391 ├"  "
5392 ARCL "#METHOD"
5393 ├" m="
5394 RCL "#M"
5395 AIP
5396 PRA
5397 "Y(X"
5398 INDEX "PAI"
5399 RCLEL
5400 INDEX "PWI"
5401 RCLEL
5402 -
5403 X>0?
5404 "y(X"
5405 ASTO "###"
5406 1
5407 +
5408 STO "#NR"
5409 AIP
5410 ├") = "
5411 ARCL "#Y1"
5412 PRA
5413 CLA
5414 ARCL "###"
5415 CLV "###"
5416 RCL "#NR"
5417 1
5418 +
5419 AIP
5420 ├") = "
5421 ARCL "#Y2"
5422 PRA
5423 "X"
5424 RCL "#NR"
5425 AIP
5426 ├" = "
5427 ARCL "#X1"
5428 PRA
5429 "X"
5430 RCL "#NR"
5431 1
5432 +
5433 AIP
5434 ├" = "
5435 ARCL "#X2"
5436 PRA
5437 "W(X) = (X-X"
5438 RCL "#NR"
5439 AIP
5440 ├")(X-X"
5441 RCL "#NR"
5442 1
5443 +
5444 CLV "#NR"
5445 AIP
5446 ├")"
5447 PRA
5448 1
5449 RCL "#PRTYy"
5450 X≤Y?
5451 "y(X) = Y(X) / "
5452 X>Y?
5453 "y(X) = y(X) / "
5454 ├"W(X)"
5455 PRA
5456 RTN
5457▸LBL 02
5458 "PWI=PWI"
5459 "   /(X-X_Real)"
5460 INDEX "PAI"
5461 RCLEL
5462 STO "#GRAD"
5463 CLST
5464 XEQ 21
5465 STO "P0"
5466 INDEX "PAI"
5467 RCLEL
5468 INDEX "PWI"
5469 RCLEL
5470 -
5471 1
5472 +
5473 LASTX
5474 INDEX "PXI=0"
5475 STOIJ
5476 RCL "#CNT"
5477 STOEL
5478 J+
5479 RCL "XP"
5480 STOEL
5481 J+
5482 CLX
5483 STOEL
5484 J+
5485 RCL "P0"
5486 STOEL
5487 J+
5488 CLX
5489 STOEL
5490 J+
5491 RCL "P0"
5492 ABS
5493 STOEL
5494 RCL "#PRTYN"
5495 X≥0?
5496 XEQ 03
5497 INDEX "PWI"
5498 RCLEL
5499 1
5500 -
5501 STOEL
5502 STO "#GRAD"
5503 J+
5504▸LBL 49
5505 RCLEL
5506 RCL "XP"
5507 ×
5508 J+
5509 RCLEL
5510 +
5511 STOEL
5512 DSE "#GRAD"
5513 GTO 49
5514 RCLEL
5515 RCL "XP"
5516 ×
5517 J+
5518 RCLEL
5519 +
5520 STOEL
5521 RTN
5522▸LBL 03
5523 ADV
5524 "#CNT: i="
5525 RCL "#CNT"
5526 AIP
5527 ├"  "
5528 ARCL "#METHOD"
5529 ├" m="
5530 RCL "#M"
5531 AIP
5532 PRA
5533 CLA
5534 ARCL "FKT-SEL"
5535 INDEX "PAI"
5536 RCLEL
5537 INDEX "PFI"
5538 RCLEL
5539 -
5540 1
5541 +
5542 AIP
5543 ├" = "
5544 ARCL "P0"
5545 PRA
5546 "X"
5547 AIP
5548 ├" = "
5549 ARCL "XP"
5550 PRA
5551 1
5552 RCL "#PRTYy"
5553 X≤Y?
5554 "y(X) = Y(X) / "
5555 X>Y?
5556 "y(X) = y(X) / "
5557 ├"(X-X"
5558 X<> ST Z
5559 AIP
5560 ├")"
5561 PRA
5562 RTN
5563▸LBL 50
5564 "Print MENU"
5565 CLA
5566 ASTO "#CMD"
5567 CF 20
5568 ARCL "#KEY-5#"
5569 ATOX
5570 X=0?
5571 GTO 10
5572 "∫f"
5573 ASTO ST X
5574 RCL "FKT-SEL"
5575 FC? 64
5576 "f'"
5577 FS? 64
5578 "f"
5579 X=Y?
5580 ASTO "FKT-SEL"
5581 CLA
5582 ARCL "FKT-SEL"
5583 ATOX
5584 3
5585 CLA
5586 ARCL "FKT-SEL"
5587 KEY 1 XEQ 11
5588 "←Prt"
5589 KEY 2 XEQ 51
5590 "TABLE"
5591 X=Y?
5592 CLA
5593 ASTO "#KEY-2#"
5594 KEY 3 GTO 52
5595 "CopyX"
5596 X=Y?
5597 CLA
5598 ASTO "#KEY-3#"
5599 KEY 4 GTO 66
5600 "PLOT"
5601 X=Y?
5602 CLA
5603 ASTO "#KEY-4#"
5604 KEY 5 GTO 05
5605 "BACK"
5606 KEY 6 GTO 01
5607 KEY 7 GTO 50
5608 KEY 8 GTO 50
5609 KEY 9 GTO 98
5610 XEQ 14
5611 CLST
5612 CLA
5613 ARCL "#MSG"
5614 MENU
5615 PROMPT
5616 GTO 50
5617▸LBL 01
5618 CLA
5619 ASTO "#MSG"
5620 CLST
5621 GTO 10
5622▸LBL 51
5623 "←Prt MENU 50"
5624 CLA
5625 ASTO "#MSG"
5626 ARCL "FKT-SEL"
5627 102
5628 ATOX
5629 ATOX
5630 +
5631 ATOX
5632 +
5633 X=Y?
5634 "f(X) = P(X)/"
5635 X=Y?
5636 ├"Q(X)"
5637 103
5638 X=Y?
5639 "g(X) = Q(X)*"
5640 X=Y?
5641 ├"P'(X)       "
5642 X=Y?
5643 ├"     - P(X)*"
5644 X=Y?
5645 ├"Q'(X)"
5646 X<>Y
5647 104
5648 X=Y?
5649 "h(X) = Q(QP"-"
5650 X=Y?
5651 ├"PQ")       "
5652 X=Y?
5653 ├"     - 2Q'("
5654 X=Y?
5655 ├"QP'-PQ')"
5656 X<>Y
5657 141
5658 X=Y?
5659 "f'(X) = g(X)/"
5660 X=Y?
5661 ├"(Q(X)*Q(X))"
5662 39
5663 +
5664 X=Y?
5665 "f"(X) = h(X)/"
5666 X=Y?
5667 ├"(Q(X))^3"
5668 ADV
5669 ADV
5670 ALENG
5671 X>0?
5672 PRA
5673 ADV
5674 "Grad, An ... Ao"
5675 PRA
5676 ADV
5677 RCL "FKT-SEL"
5678 "∫P"
5679 ASTO ST Y
5680 X=Y?
5681 GTO 01
5682 "∫Q"
5683 ASTO ST Y
5684 X=Y?
5685 GTO 02
5686 "f"
5687 ASTO ST Y
5688 0
5689 1
5690 SUBSTR
5691 X=Y?
5692 GTO 03
5693 CLA
5694 ARCL "FKT-SEL"
5695 ├"(X)"
5696 ASTO ST X
5697 RCL "PWI"
5698 STO IND ST Y
5699 PRV IND ST Y
5700 CLV IND ST Y
5701 GTO 04
5702▸LBL 01
5703 "∫P(X)dX"
5704 XASTO ST X
5705 RCL "PWI"
5706 STO IND ST Y
5707 PRV IND ST Y
5708 CLV IND ST Y
5709 GTO 04
5710▸LBL 02
5711 "∫Q(X)dX"
5712 XASTO ST X
5713 RCL "PWI"
5714 STO IND ST Y
5715 PRV IND ST Y
5716 CLV IND ST Y
5717 GTO 04
5718▸LBL 03
5719 RCL "FKT-SEL"
5720 "f'"
5721 ASTO ST Y
5722 X=Y?
5723 GTO 01
5724 "f''"
5725 ASTO ST Y
5726 X=Y?
5727 GTO 02
5728 RCL "POI"
5729 STO "P(X)"
5730 PRV "P(X)"
5731 CLV "P(X)"
5732 RCL "QOI"
5733 STO "Q(X)"
5734 PRV "Q(X)"
5735 CLV "Q(X)"
5736 GTO 04
5737▸LBL 01
5738 RCL "gOI"
5739 STO "g(X)"
5740 PRV "g(X)"
5741 CLV "g(X)"
5742 RCL "QOI"
5743 STO "Q(X)"
5744 PRV "Q(X)"
5745 CLV "Q(X)"
5746 GTO 04
5747▸LBL 02
5748 RCL "hOI"
5749 STO "h(X)"
5750 PRV "h(X)"
5751 CLV "h(X)"
5752 RCL "QOI"
5753 STO "Q(X)"
5754 PRV "Q(X)"
5755 CLV "Q(X)"
5756 GTO 04
5757▸LBL 04
5758 RTN
5759▸LBL 52
5760 "INIT MENU TABLE"
5761 CLA
5762 ASTO "#MSG"
5763 ARCL "#KEY-3#"
5764 ATOX
5765 X=0?
5766 GTO 50
5767 CLV "#TABLE"
5768 CLV "#TAB-#I"
5769 RCL "PWI"
5770 ABS
5771 ENTER
5772 TRANS
5773 0
5774 ×
5775 E↑X
5776 ×
5777 DET
5778 1000
5779 X>Y?
5780 X<>Y
5781 STO "#XMAX"
5782 +/-
5783 STO "#XMIN"
5784 RCL "PWI"
5785 STO "PFI"
5786 STO "PFI1"
5787 INDEX "PFI1"
5788 RCLEL
5789 STO "#GRAD"
5790 J-
5791 RCLIJ
5792 1
5793 -
5794 2
5795 X>Y?
5796 X<>Y
5797 R↓
5798 DIM "PFI1"
5799 XEQ 15
5800 RCL "PFI1"
5801 STO "PFI2"
5802 INDEX "PFI2"
5803 RCLEL
5804 STO "#GRAD"
5805 J-
5806 RCLIJ
5807 1
5808 -
5809 2
5810 X>Y?
5811 X<>Y
5812 R↓
5813 DIM "PFI2"
5814 XEQ 15
5815 RCL "PFI2"
5816 STO "PFI3"
5817 INDEX "PFI3"
5818 RCLEL
5819 STO "#GRAD"
5820 J-
5821 RCLIJ
5822 1
5823 -
5824 2
5825 X>Y?
5826 X<>Y
5827 R↓
5828 DIM "PFI3"
5829 XEQ 15
5830▸LBL 53
5831 "CALC: XMIN"
5832 RCL "#XMIN"
5833 STO "XP"
5834 INDEX "PFI"
5835 RCLEL
5836 STO "#GRAD"
5837 CLST
5838 STO "P0"
5839 STO "P1"
5840 STO "P2"
5841 STO "P3"
5842 XEQ 21
5843 STO "P0"
5844 INDEX "PFI1"
5845 RCLEL
5846 STO "#GRAD"
5847 CLST
5848 XEQ 21
5849 STO "P1"
5850 INDEX "PFI2"
5851 RCLEL
5852 STO "#GRAD"
5853 CLST
5854 XEQ 21
5855 STO "P2"
5856 INDEX "PFI3"
5857 RCLEL
5858 STO "#GRAD"
5859 CLST
5860 XEQ 21
5861 STO "P3"
5862 RCL "P0"
5863 X=0?
5864 GTO 54
5865 +/-
5866 RCL "P1"
5867 X=0?
5868 X<>Y
5869 STO "P1"
5870 2
5871 ÷
5872 +/-
5873 RCL "P2"
5874 X=0?
5875 X<>Y
5876 STO "P2"
5877 3
5878 ÷
5879 +/-
5880 RCL "P3"
5881 X=0?
5882 X<>Y
5883 STO "P3"
5884 RCL "P0"
5885 RCL "P1"
5886 SF 25
5887 1/X
5888 ×
5889 RCL "P1"
5890 RCL "P2"
5891 SF 25
5892 1/X
5893 ×
5894 X<Y?
5895 X<>Y
5896 RCL "P2"
5897 RCL "P3"
5898 SF 25
5899 1/X
5900 ×
5901 X<Y?
5902 X<>Y
5903 0.1
5904 +/-
5905 X<Y?
5906 GTO 54
5907 X<>Y
5908 RCL "#XMIN"
5909 X<>Y
5910 -
5911 X>0?
5912 GTO 54
5913 STO "#XMIN"
5914 GTO 53
5915▸LBL 54
5916 "CALC: XMAX"
5917 RCL "#XMAX"
5918 STO "XP"
5919 INDEX "PFI"
5920 RCLEL
5921 STO "#GRAD"
5922 CLST
5923 STO "P0"
5924 STO "P1"
5925 STO "P2"
5926 STO "P3"
5927 XEQ 21
5928 STO "P0"
5929 INDEX "PFI1"
5930 RCLEL
5931 STO "#GRAD"
5932 CLST
5933 XEQ 21
5934 STO "P1"
5935 INDEX "PFI2"
5936 RCLEL
5937 STO "#GRAD"
5938 CLST
5939 XEQ 21
5940 STO "P2"
5941 INDEX "PFI3"
5942 RCLEL
5943 STO "#GRAD"
5944 CLST
5945 XEQ 21
5946 STO "P3"
5947 RCL "P0"
5948 X=0?
5949 GTO 01
5950 RCL "P1"
5951 X=0?
5952 X<>Y
5953 STO "P1"
5954 2
5955 ÷
5956 RCL "P2"
5957 X=0?
5958 X<>Y
5959 STO "P2"
5960 3
5961 ÷
5962 RCL "P3"
5963 X=0?
5964 X<>Y
5965 STO "P3"
5966 RCL "P0"
5967 RCL "P1"
5968 SF 25
5969 1/X
5970 ×
5971 RCL "P1"
5972 RCL "P2"
5973 SF 25
5974 1/X
5975 ×
5976 X>Y?
5977 X<>Y
5978 RCL "P2"
5979 RCL "P3"
5980 SF 25
5981 1/X
5982 ×
5983 X>Y?
5984 X<>Y
5985 0.1
5986 X>Y?
5987 GTO 01
5988 X<>Y
5989 RCL "#XMAX"
5990 X<>Y
5991 -
5992 X<0?
5993 GTO 01
5994 STO "#XMAX"
5995 GTO 54
5996▸LBL 01
5997 CLV "P1"
5998 CLV "P2"
5999 CLV "P3"
6000 RCL "#XMAX"
6001 0.51
6002 +
6003 10
6004 ×
6005 IP
6006 10
6007 ÷
6008 STO "#XMAX"
6009 RCL "#XMIN"
6010 0.51
6011 -
6012 10
6013 ×
6014 IP
6015 10
6016 ÷
6017 STO "#XMIN"
6018 -
6019 10
6020 ÷
6021 STO "#XINC"
6022 "PLOT"
6023 ASTO ST X
6024 RCL "#CMD"
6025 X=Y?
6026 GTO 04
6027 "ROC"
6028 ASTO ST Y
6029 X=Y?
6030 GTO 08
6031▸LBL 55
6032 "TABLE MENU"
6033 "PLOT"
6034 ASTO ST X
6035 SF 25
6036 RCL "#CMD"
6037 X=Y?
6038 GTO 57
6039 CF 20
6040 CLA
6041 ARCL "FKT-SEL"
6042 ATOX
6043 3
6044 X=Y?
6045 XEQ 11
6046 CLST
6047 SF 25
6048 RCL "#TABLE"
6049 ENTER
6050 FS? 25
6051 COMPLEX
6052 FS? 25
6053 FNRM
6054 X≠0?
6055 R↓
6056 R↓
6057 CLA
6058 ARCL "FKT-SEL"
6059 KEY 1 XEQ 11
6060 "Xmin"
6061 KEY 2 GTO 01
6062 "Xmax"
6063 KEY 3 GTO 02
6064 "Xinc"
6065 KEY 4 GTO 03
6066 "XEQ"
6067 KEY 5 GTO 04
6068 "BACK"
6069 KEY 6 GTO 50
6070 KEY 7 GTO 55
6071 KEY 8 GTO 55
6072 KEY 9 GTO 98
6073 RCL "#XINC"
6074 RCL "#XMAX"
6075 RCL "#XMIN"
6076 MENU
6077 "___  Xinc  "
6078 SF 25
6079 INDEX "#TABLE"
6080 FS? 25
6081 "TAB  Xinc  "
6082 ├"Xmax  Xmin"
6083 PROMPT
6084 GTO 55
6085▸LBL 01
6086 CPX?
6087 GTO 55
6088 STO "#XMIN"
6089 GTO 55
6090▸LBL 02
6091 CPX?
6092 GTO 55
6093 STO "#XMAX"
6094 GTO 55
6095▸LBL 03
6096 CPX?
6097 GTO 55
6098 X≤0?
6099 GTO 55
6100 FC? 64
6101 GTO 03
6102 FP
6103 X≠0?
6104 GTO 55
6105 LASTX
6106 RCL "#XMAX"
6107 RCL "#XMIN"
6108 -
6109 X<>Y
6110 ÷
6111 1ᴇ-10
6112 -
6113 STO "#XINC"
6114 GTO 55
6115▸LBL 03
6116 STO "#XINC"
6117 GTO 55
6118▸LBL 04
6119 "CALC TABLE"
6120 SF 25
6121 RCL "#XINC"
6122 FC? 25
6123 GTO 55
6124 X=0?
6125 GTO 55
6126 ABS
6127 STO "#XINC"
6128 RCL "#XMAX"
6129 RCL "#XMIN"
6130 X=Y?
6131 GTO 55
6132 X>Y?
6133 X<>Y
6134 STO "#XMIN"
6135 X<>Y
6136 STO "#XMAX"
6137 XEQ 51
6138 FC? 20
6139 ADV
6140 "------------"
6141 ├"------------"
6142 FC? 20
6143 PRA
6144 "TABELLE: "
6145 ARCL "FKT-SEL"
6146 ├"(x)"
6147 FC? 20
6148 PRA
6149 FC? 20
6150 ADV
6151 CLA
6152 ARCL "FKT-SEL"
6153 ALENG
6154 1
6155 -
6156 "x           "
6157 X=0?
6158 ├" "
6159 ARCL "FKT-SEL"
6160 ├"(x)  "
6161 ALENG
6162 20
6163 X>Y?
6164 ├" "
6165 ├" ***"
6166 FC? 20
6167 PRA
6168 FC? 20
6169 ADV
6170 RCL "#XMAX"
6171 RCL "#XMIN"
6172 -
6173 RCL "#XINC"
6174 ÷
6175 1.1
6176 +
6177 IP
6178 2
6179 NEWMAT
6180 ENTER
6181 COMPLEX
6182 STO "#TABLE"
6183 1
6184 STO "#TAB-#I"
6185 RCL "#XMIN"
6186 STO "XP"
6187▸LBL 56
6188 CF 19
6189 INDEX "PWI"
6190 RCLEL
6191 STO "#GRAD"
6192 RCL "#XMAX"
6193 RCL "XP"
6194 X>Y?
6195 GTO 55
6196 CLA
6197 ARCL "XP"
6198 FC? 20
6199 PRA
6200 CLST
6201 XEQ 21
6202 STO "P0"
6203 1
6204 STO "Q0"
6205 SF 25
6206 INDEX "QOI"
6207 FS? 25
6208 RCLEL
6209 FS? 25
6210 STO "#GRAD"
6211 CLA
6212 ARCL "FKT-SEL"
6213 ATOX
6214 102
6215 CF 19
6216 X=Y?
6217 SF 19
6218 CLST
6219 FS? 19
6220 XEQ 21
6221 FS? 19
6222 STO "Q0"
6223 CLA
6224 ARCL "FKT-SEL"
6225 ATOX
6226 ATOX
6227 STO ST Y
6228 X↑2
6229 22
6230 ENTER
6231 3315
6232 ÷
6233 +/-
6234 ×
6235 LASTX
6236 578
6237 ×
6238 1
6239 X<>Y
6240 -
6241 17
6242 ÷
6243 R↑
6244 ×
6245 +
6246 1.1
6247 +
6248 IP
6249 RCL "Q0"
6250 X<>Y
6251 Y↑X
6252 X≠0?
6253 1/X
6254 CLA
6255 "+/-oo"
6256 X=0?
6257 ASTO "P0"
6258 X≠0?
6259 STO× "P0"
6260 RCL "P0"
6261 FC? 20
6262 PRX
6263 INDEX "#TABLE"
6264 RCL "#TAB-#I"
6265 1
6266 STOIJ
6267 RCL "XP"
6268 0
6269 ENTER
6270 COMPLEX
6271 +
6272 STOEL
6273 J+
6274 0
6275 ENTER
6276 COMPLEX
6277 RCL "P0"
6278 SF 25
6279 +
6280 STOEL
6281 1
6282 STO+ "#TAB-#I"
6283 RCL "#XINC"
6284 STO+ "XP"
6285 FC? 20
6286 GTO 56
6287 5
6288 RCL "P0"
6289 TYPE?
6290 X=Y?
6291 GTO 56
6292 RCL "P0"
6293 CPX?
6294 GTO 01
6295 X>0?
6296 GTO 01
6297 1
6298 -
6299 IP
6300 RCL "P0"
6301 11
6302 ×
6303 IP
6304 10
6305 ÷
6306 X<Y?
6307 X<>Y
6308 RCL "#YMIN"
6309 SF 25
6310 X>Y?
6311 X<>Y
6312 STO "#YMIN"
6313▸LBL 01
6314 RCL "P0"
6315 CPX?
6316 GTO 01
6317 X<0?
6318 GTO 01
6319 1
6320 +
6321 IP
6322 RCL "P0"
6323 11
6324 ×
6325 IP
6326 10
6327 ÷
6328 X>Y?
6329 X<>Y
6330 RCL "#YMAX"
6331 SF 25
6332 X<Y?
6333 X<>Y
6334 STO "#YMAX"
6335▸LBL 01
6336 RCL "#YMAX"
6337 10
6338 ÷
6339 +/-
6340 RCL "#YMIN"
6341 X>Y?
6342 X<>Y
6343 STO "#YMIN"
6344 RCL "#YMIN"
6345 10
6346 ÷
6347 +/-
6348 RCL "#YMAX"
6349 X<Y?
6350 X<>Y
6351 STO "#YMAX"
6352 GTO 56
6353▸LBL 05
6354 "INIT PLOT MENU"
6355 CLA
6356 ARCL "#KEY-4#"
6357 ATOX
6358 X=0?
6359 GTO 50
6360 "PLOT"
6361 ASTO "#CMD"
6362 SF 20
6363 1ᴇ-2
6364 STO "#YMAX"
6365 +/-
6366 STO "#YMIN"
6367 GTO 52
6368▸LBL 57
6369 "PLOT MENU"
6370 CF 22
6371 SF 25
6372 RCL "FKT"
6373 CLMENU
6374 "Xmin"
6375 KEY 1 GTO 01
6376 "Xmax"
6377 KEY 2 GTO 02
6378 "Ymin"
6379 KEY 3 GTO 03
6380 "Ymax"
6381 KEY 4 GTO 04
6382 "XEQ"
6383 KEY 5 GTO 58
6384 "BACK"
6385 KEY 6 GTO 50
6386 KEY 7 GTO 57
6387 KEY 8 GTO 57
6388 KEY 9 GTO 98
6389 "Ymax Ymin Xmax "
6390 ├"Xmin"
6391 RCL "#YMAX"
6392 RCL "#YMIN"
6393 RCL "#XMAX"
6394 RCL "#XMIN"
6395 MENU
6396 PROMPT
6397 GTO 57
6398▸LBL 01
6399 X≤0?
6400 STO "#XMIN"
6401 GTO 57
6402▸LBL 02
6403 X≥0?
6404 STO "#XMAX"
6405 GTO 57
6406▸LBL 03
6407 X≤0?
6408 STO "#YMIN"
6409 GTO 57
6410▸LBL 04
6411 X≥0?
6412 STO "#YMAX"
6413 GTO 57
6414▸LBL 58
6415 "PLOT DISP"
6416 CF 12
6417 CF 15
6418 CF 16
6419 1
6420 STO "#JPLOT"
6421 2
6422 ENTER
6423 133
6424 NEWMAT
6425 STO "#PLOT"
6426 RCL "#XMAX"
6427 RCL "#XMIN"
6428 STO "XP"
6429 -
6430 131
6431 ÷
6432 STO "#XINC"
6433 120
6434 RCL "#YMAX"
6435 ×
6436 LASTX
6437 RCL "#YMIN"
6438 -
6439 SF 25
6440 1/X
6441 ×
6442 1
6443 +
6444 IP
6445 X≤0?
6446 1
6447 120
6448 X>Y?
6449 X<>Y
6450 STO "#XAXIS"
6451 129
6452 RCL "#XMIN"
6453 ×
6454 LASTX
6455 RCL "#XMAX"
6456 -
6457 SF 25
6458 1/X
6459 ×
6460 1.5
6461 +
6462 IP
6463 X≤0?
6464 1
6465 131
6466 X>Y?
6467 X<>Y
6468 STO "#YAXIS"
6469▸LBL 59
6470 INDEX "PWI"
6471 RCLEL
6472 STO "#GRAD"
6473 CLST
6474 XEQ 21
6475 STO "P0"
6476 1
6477 STO "Q0"
6478 SF 25
6479 INDEX "QOI"
6480 FS? 25
6481 RCLEL
6482 FS? 25
6483 STO "#GRAD"
6484 CLA
6485 ARCL "FKT-SEL"
6486 ATOX
6487 102
6488 CF 19
6489 X=Y?
6490 SF 19
6491 CLST
6492 FS? 19
6493 XEQ 21
6494 FS? 19
6495 STO "Q0"
6496 CLA
6497 ARCL "FKT-SEL"
6498 ATOX
6499 ATOX
6500 STO ST Y
6501 X↑2
6502 22
6503 ENTER
6504 3315
6505 ÷
6506 +/-
6507 ×
6508 LASTX
6509 578
6510 ×
6511 1
6512 X<>Y
6513 -
6514 17
6515 ÷
6516 R↑
6517 ×
6518 +
6519 1.1
6520 +
6521 IP
6522 RCL "Q0"
6523 X<>Y
6524 SF 25
6525 Y↑X
6526 X≠0?
6527 1/X
6528 STO× "P0"
6529 RCL "#XAXIS"
6530 RCL "P0"
6531 X≠0?
6532 SIGN
6533 -
6534 STO "#XAXISd"
6535 INDEX "#PLOT"
6536 1
6537 RCL "#JPLOT"
6538 STOIJ
6539 RCL "P0"
6540 RCL "#YMAX"
6541 -
6542 120
6543 ×
6544 RCL "#YMIN"
6545 RCL "#YMAX"
6546 -
6547 SF 25
6548 1/X
6549 ×
6550 1
6551 +
6552 IP
6553 RCL "#XAXIS"
6554 X<>Y
6555 X=Y?
6556 RCL "#XAXISd"
6557 STOEL
6558 I+
6559 RCL "P0"
6560 STOEL
6561 RCL "#XINC"
6562 STO+ "XP"
6563 RCL "#JPLOT"
6564 1
6565 +
6566 STO "#JPLOT"
6567 132
6568 X≥Y?
6569 GTO 59
6570 "PLOT PLUS42 DSP"
6571 16
6572 ENTER
6573 22
6574 SETDS
6575 INDEX "#PLOT"
6576 HEIGHT
6577 8
6578 -
6579 RCL "#YMAX"
6580 ×
6581 LASTX
6582 RCL "#YMIN"
6583 -
6584 SF 25
6585 1/X
6586 ×
6587 1
6588 +
6589 IP
6590 X≤0?
6591 1
6592 HEIGHT
6593 8
6594 -
6595 X>Y?
6596 X<>Y
6597 STO "#XAXIS"
6598 +/-
6599 WIDTH
6600 RCL "#XMIN"
6601 STO "XP"
6602 ×
6603 LASTX
6604 RCL "#XMAX"
6605 -
6606 SF 25
6607 1/X
6608 ×
6609 1
6610 +
6611 IP
6612 X≤0?
6613 CLX
6614 X=0?
6615 E↑X
6616 130
6617 X<Y?
6618 X<>Y
6619 R↓
6620 STO "#YAXIS"
6621 STO "#JPLOT"
6622 CLLCD
6623 PIXEL
6624 X<>Y
6625 +/-
6626 1
6627 +
6628 2
6629 PIXEL
6630 STO- ST Y
6631 PIXEL
6632 1
6633 +
6634 PIXEL
6635 STO+ ST Y
6636 PIXEL
6637 X<>Y
6638 1
6639 -
6640 X<>Y
6641 PIXEL
6642 X<>Y
6643 3
6644 -
6645 X<>Y
6646 PIXEL
6647 R↓
6648 WIDTH
6649 2
6650 -
6651 PIXEL
6652 X<>Y
6653 1
6654 +
6655 X<>Y
6656 PIXEL
6657 1
6658 +
6659 PIXEL
6660 X<>Y
6661 2
6662 +
6663 X<>Y
6664 PIXEL
6665 1
6666 -
6667 PIXEL
6668 X<>Y
6669 1
6670 +
6671 X<>Y
6672 PIXEL
6673 2
6674 RCL "#JPLOT"
6675 1
6676 -
6677 PIXEL
6678 2
6679 +
6680 PIXEL
6681 3
6682 X<>Y
6683 PIXEL
6684 1
6685 +
6686 PIXEL
6687 3
6688 -
6689 PIXEL
6690 1
6691 -
6692 PIXEL
6693 HEIGHT
6694 10
6695 -
6696 X<>Y
6697 PIXEL
6698 1
6699 +
6700 PIXEL
6701 2
6702 +
6703 PIXEL
6704 1
6705 +
6706 PIXEL
6707 1
6708 -
6709 X<>Y
6710 LASTX
6711 +
6712 X<>Y
6713 PIXEL
6714 2
6715 -
6716 PIXEL
6717 1
6718 RCL "#YAXIS"
6719 PIXEL
6720 2
6721 X<>Y
6722 PIXEL
6723 3
6724 X<>Y
6725 PIXEL
6726 4
6727 X<>Y
6728 PIXEL
6729 5
6730 X<>Y
6731 PIXEL
6732 6
6733 X<>Y
6734 PIXEL
6735 7
6736 X<>Y
6737 PIXEL
6738 8
6739 X<>Y
6740 PIXEL
6741 9
6742 X<>Y
6743 PIXEL
6744 10
6745 X<>Y
6746 PIXEL
6747 11
6748 X<>Y
6749 PIXEL
6750 12
6751 X<>Y
6752 PIXEL
6753 13
6754 X<>Y
6755 PIXEL
6756 14
6757 X<>Y
6758 PIXEL
6759 15
6760 X<>Y
6761 PIXEL
6762 16
6763 X<>Y
6764 PIXEL
6765 17
6766 X<>Y
6767 PIXEL
6768 18
6769 X<>Y
6770 PIXEL
6771 19
6772 X<>Y
6773 PIXEL
6774 20
6775 X<>Y
6776 PIXEL
6777 21
6778 X<>Y
6779 PIXEL
6780 22
6781 X<>Y
6782 PIXEL
6783 23
6784 X<>Y
6785 PIXEL
6786 24
6787 X<>Y
6788 PIXEL
6789 25
6790 X<>Y
6791 PIXEL
6792 26
6793 X<>Y
6794 PIXEL
6795 27
6796 X<>Y
6797 PIXEL
6798 28
6799 X<>Y
6800 PIXEL
6801 29
6802 X<>Y
6803 PIXEL
6804 30
6805 X<>Y
6806 PIXEL
6807 31
6808 X<>Y
6809 PIXEL
6810 32
6811 X<>Y
6812 PIXEL
6813 33
6814 X<>Y
6815 PIXEL
6816 34
6817 X<>Y
6818 PIXEL
6819 35
6820 X<>Y
6821 PIXEL
6822 36
6823 X<>Y
6824 PIXEL
6825 37
6826 X<>Y
6827 PIXEL
6828 38
6829 X<>Y
6830 PIXEL
6831 39
6832 X<>Y
6833 PIXEL
6834 40
6835 X<>Y
6836 PIXEL
6837 41
6838 X<>Y
6839 PIXEL
6840 42
6841 X<>Y
6842 PIXEL
6843 43
6844 X<>Y
6845 PIXEL
6846 44
6847 X<>Y
6848 PIXEL
6849 45
6850 X<>Y
6851 PIXEL
6852 46
6853 X<>Y
6854 PIXEL
6855 47
6856 X<>Y
6857 PIXEL
6858 48
6859 X<>Y
6860 PIXEL
6861 49
6862 X<>Y
6863 PIXEL
6864 50
6865 X<>Y
6866 PIXEL
6867 51
6868 X<>Y
6869 PIXEL
6870 52
6871 X<>Y
6872 PIXEL
6873 53
6874 X<>Y
6875 PIXEL
6876 54
6877 X<>Y
6878 PIXEL
6879 55
6880 X<>Y
6881 PIXEL
6882 56
6883 X<>Y
6884 PIXEL
6885 57
6886 X<>Y
6887 PIXEL
6888 58
6889 X<>Y
6890 PIXEL
6891 59
6892 X<>Y
6893 PIXEL
6894 60
6895 X<>Y
6896 PIXEL
6897 61
6898 X<>Y
6899 PIXEL
6900 62
6901 X<>Y
6902 PIXEL
6903 63
6904 X<>Y
6905 PIXEL
6906 64
6907 X<>Y
6908 PIXEL
6909 65
6910 X<>Y
6911 PIXEL
6912 66
6913 X<>Y
6914 PIXEL
6915 67
6916 X<>Y
6917 PIXEL
6918 68
6919 X<>Y
6920 PIXEL
6921 69
6922 X<>Y
6923 PIXEL
6924 70
6925 X<>Y
6926 PIXEL
6927 71
6928 X<>Y
6929 PIXEL
6930 72
6931 X<>Y
6932 PIXEL
6933 73
6934 X<>Y
6935 PIXEL
6936 74
6937 X<>Y
6938 PIXEL
6939 75
6940 X<>Y
6941 PIXEL
6942 76
6943 X<>Y
6944 PIXEL
6945 77
6946 X<>Y
6947 PIXEL
6948 78
6949 X<>Y
6950 PIXEL
6951 79
6952 X<>Y
6953 PIXEL
6954 80
6955 X<>Y
6956 PIXEL
6957 81
6958 X<>Y
6959 PIXEL
6960 82
6961 X<>Y
6962 PIXEL
6963 83
6964 X<>Y
6965 PIXEL
6966 84
6967 X<>Y
6968 PIXEL
6969 85
6970 X<>Y
6971 PIXEL
6972 86
6973 X<>Y
6974 PIXEL
6975 87
6976 X<>Y
6977 PIXEL
6978 88
6979 X<>Y
6980 PIXEL
6981 89
6982 X<>Y
6983 PIXEL
6984 90
6985 X<>Y
6986 PIXEL
6987 91
6988 X<>Y
6989 PIXEL
6990 92
6991 X<>Y
6992 PIXEL
6993 93
6994 X<>Y
6995 PIXEL
6996 94
6997 X<>Y
6998 PIXEL
6999 95
7000 X<>Y
7001 PIXEL
7002 96
7003 X<>Y
7004 PIXEL
7005 97
7006 X<>Y
7007 PIXEL
7008 98
7009 X<>Y
7010 PIXEL
7011 99
7012 X<>Y
7013 PIXEL
7014 100
7015 X<>Y
7016 PIXEL
7017 101
7018 X<>Y
7019 PIXEL
7020 102
7021 X<>Y
7022 PIXEL
7023 103
7024 X<>Y
7025 PIXEL
7026 104
7027 X<>Y
7028 PIXEL
7029 105
7030 X<>Y
7031 PIXEL
7032 106
7033 X<>Y
7034 PIXEL
7035 107
7036 X<>Y
7037 PIXEL
7038 108
7039 X<>Y
7040 PIXEL
7041 109
7042 X<>Y
7043 PIXEL
7044 110
7045 X<>Y
7046 PIXEL
7047 111
7048 X<>Y
7049 PIXEL
7050 112
7051 X<>Y
7052 PIXEL
7053 113
7054 X<>Y
7055 PIXEL
7056 114
7057 X<>Y
7058 PIXEL
7059 115
7060 X<>Y
7061 PIXEL
7062 116
7063 X<>Y
7064 PIXEL
7065 117
7066 X<>Y
7067 PIXEL
7068 118
7069 X<>Y
7070 PIXEL
7071 119
7072 X<>Y
7073 PIXEL
7074 120
7075 X<>Y
7076 PIXEL
7077 INDEX "#PLOT"
7078 2
7079 ENTER
7080 1.130
7081 STO "#JPLOT"
7082 IP
7083 STOIJ
7084 RCLEL
7085 SIGN
7086 STO "#P0SIGN"
7087 RCL "#XINC"
7088 STO- "XP"
7089▸LBL 60
7090 RCL "#XAXIS"
7091 RCLEL
7092 X≠0?
7093 SIGN
7094 -
7095 STO "#XAXISd"
7096 RCLEL
7097 RCL "#YMAX"
7098 -
7099 HEIGHT
7100 8
7101 -
7102 ×
7103 RCL "#YMIN"
7104 RCL "#YMAX"
7105 -
7106 SF 25
7107 1/X
7108 ×
7109 1
7110 +
7111 IP
7112 1
7113 X<Y?
7114 X<>Y
7115 HEIGHT
7116 8
7117 -
7118 X>Y?
7119 X<>Y
7120 RCL "#XAXIS"
7121 X<>Y
7122 X=Y?
7123 RCL "#XAXISd"
7124 RCL "#JPLOT"
7125 IP
7126 PIXEL
7127 RCL "#P0SIGN"
7128 RCLEL
7129 SIGN
7130 STO "#P0SIGN"
7131 "P(x) = 0, x = "
7132 ARCL "XP"
7133 X=0?
7134 ADV
7135 X=0?
7136 PRA
7137 "VZW P(x), x = "
7138 ARCL "XP"
7139 X≠Y?
7140 ADV
7141 X≠Y?
7142 PRA
7143 "VZW P(x), x = "
7144 RCL "XP"
7145 RCL "#XINC"
7146 +
7147 ARCL ST X
7148 R↓
7149 X≠Y?
7150 PRA
7151 J+
7152 RCL "#XINC"
7153 STO+ "XP"
7154 ISG "#JPLOT"
7155 GTO 60
7156 "PHASE in Menu"
7157 HEIGHT
7158 6
7159 -
7160 ENTER
7161 1
7162 PIXEL
7163 1
7164 +
7165 PIXEL
7166 1
7167 +
7168 PIXEL
7169 1
7170 +
7171 PIXEL
7172 1
7173 +
7174 PIXEL
7175 1
7176 +
7177 PIXEL
7178 1
7179 +
7180 PIXEL
7181 1
7182 +
7183 PIXEL
7184 1
7185 +
7186 PIXEL
7187 1
7188 +
7189 PIXEL
7190 1
7191 +
7192 PIXEL
7193 1
7194 +
7195 PIXEL
7196 1
7197 +
7198 PIXEL
7199 1
7200 +
7201 PIXEL
7202 1
7203 +
7204 PIXEL
7205 1
7206 +
7207 PIXEL
7208 1
7209 +
7210 PIXEL
7211 1
7212 +
7213 PIXEL
7214 1
7215 +
7216 PIXEL
7217 1
7218 +
7219 PIXEL
7220 1
7221 +
7222 PIXEL
7223 X<>Y
7224 1
7225 +
7226 X<>Y
7227 PIXEL
7228 4
7229 -
7230 PIXEL
7231 3
7232 -
7233 PIXEL
7234 1
7235 -
7236 PIXEL
7237 1
7238 -
7239 PIXEL
7240 2
7241 -
7242 PIXEL
7243 1
7244 -
7245 PIXEL
7246 2
7247 -
7248 PIXEL
7249 2
7250 -
7251 PIXEL
7252 4
7253 -
7254 PIXEL
7255 X<>Y
7256 1
7257 +
7258 X<>Y
7259 PIXEL
7260 2
7261 +
7262 PIXEL
7263 2
7264 +
7265 PIXEL
7266 2
7267 +
7268 PIXEL
7269 2
7270 +
7271 PIXEL
7272 2
7273 +
7274 PIXEL
7275 2
7276 +
7277 PIXEL
7278 2
7279 +
7280 PIXEL
7281 1
7282 +
7283 PIXEL
7284 1
7285 +
7286 PIXEL
7287 2
7288 +
7289 PIXEL
7290 1
7291 +
7292 PIXEL
7293 1
7294 +
7295 PIXEL
7296 X<>Y
7297 1
7298 +
7299 X<>Y
7300 PIXEL
7301 1
7302 -
7303 PIXEL
7304 3
7305 -
7306 PIXEL
7307 1
7308 -
7309 PIXEL
7310 2
7311 -
7312 PIXEL
7313 1
7314 -
7315 PIXEL
7316 4
7317 -
7318 PIXEL
7319 4
7320 -
7321 PIXEL
7322 4
7323 -
7324 PIXEL
7325 X<>Y
7326 1
7327 +
7328 X<>Y
7329 PIXEL
7330 2
7331 +
7332 PIXEL
7333 1
7334 +
7335 PIXEL
7336 1
7337 +
7338 PIXEL
7339 2
7340 +
7341 PIXEL
7342 2
7343 +
7344 PIXEL
7345 2
7346 +
7347 PIXEL
7348 2
7349 +
7350 PIXEL
7351 1
7352 +
7353 PIXEL
7354 1
7355 +
7356 PIXEL
7357 2
7358 +
7359 PIXEL
7360 2
7361 +
7362 PIXEL
7363 1
7364 +
7365 PIXEL
7366 1
7367 +
7368 PIXEL
7369 X<>Y
7370 1
7371 +
7372 X<>Y
7373 PIXEL
7374 4
7375 -
7376 PIXEL
7377 4
7378 -
7379 PIXEL
7380 2
7381 -
7382 PIXEL
7383 2
7384 -
7385 PIXEL
7386 2
7387 -
7388 PIXEL
7389 2
7390 -
7391 PIXEL
7392 1
7393 -
7394 PIXEL
7395 1
7396 -
7397 PIXEL
7398 2
7399 -
7400 PIXEL
7401 X<>Y
7402 1
7403 +
7404 X<>Y
7405 PIXEL
7406 1
7407 +
7408 PIXEL
7409 1
7410 +
7411 PIXEL
7412 1
7413 +
7414 PIXEL
7415 1
7416 +
7417 PIXEL
7418 1
7419 +
7420 PIXEL
7421 1
7422 +
7423 PIXEL
7424 1
7425 +
7426 PIXEL
7427 1
7428 +
7429 PIXEL
7430 1
7431 +
7432 PIXEL
7433 1
7434 +
7435 PIXEL
7436 1
7437 +
7438 PIXEL
7439 1
7440 +
7441 PIXEL
7442 1
7443 +
7444 PIXEL
7445 1
7446 +
7447 PIXEL
7448 1
7449 +
7450 PIXEL
7451 1
7452 +
7453 PIXEL
7454 1
7455 +
7456 PIXEL
7457 1
7458 +
7459 PIXEL
7460 1
7461 +
7462 PIXEL
7463 1
7464 +
7465 PIXEL
7466 "PAPER in MENU"
7467 HEIGHT
7468 6
7469 -
7470 ENTER
7471 67
7472 PIXEL
7473 1
7474 +
7475 PIXEL
7476 1
7477 +
7478 PIXEL
7479 1
7480 +
7481 PIXEL
7482 1
7483 +
7484 PIXEL
7485 1
7486 +
7487 PIXEL
7488 1
7489 +
7490 PIXEL
7491 1
7492 +
7493 PIXEL
7494 1
7495 +
7496 PIXEL
7497 1
7498 +
7499 PIXEL
7500 1
7501 +
7502 PIXEL
7503 1
7504 +
7505 PIXEL
7506 1
7507 +
7508 PIXEL
7509 1
7510 +
7511 PIXEL
7512 1
7513 +
7514 PIXEL
7515 1
7516 +
7517 PIXEL
7518 1
7519 +
7520 PIXEL
7521 1
7522 +
7523 PIXEL
7524 1
7525 +
7526 PIXEL
7527 1
7528 +
7529 PIXEL
7530 1
7531 +
7532 PIXEL
7533 X<>Y
7534 1
7535 +
7536 X<>Y
7537 PIXEL
7538 4
7539 -
7540 PIXEL
7541 4
7542 -
7543 PIXEL
7544 4
7545 -
7546 PIXEL
7547 1
7548 -
7549 PIXEL
7550 2
7551 -
7552 PIXEL
7553 1
7554 -
7555 PIXEL
7556 4
7557 -
7558 PIXEL
7559 X<>Y
7560 1
7561 +
7562 X<>Y
7563 PIXEL
7564 2
7565 +
7566 PIXEL
7567 2
7568 +
7569 PIXEL
7570 2
7571 +
7572 PIXEL
7573 2
7574 +
7575 PIXEL
7576 2
7577 +
7578 PIXEL
7579 2
7580 +
7581 PIXEL
7582 2
7583 +
7584 PIXEL
7585 1
7586 +
7587 PIXEL
7588 1
7589 +
7590 PIXEL
7591 2
7592 +
7593 PIXEL
7594 2
7595 +
7596 PIXEL
7597 X<>Y
7598 1
7599 +
7600 X<>Y
7601 PIXEL
7602 1
7603 -
7604 PIXEL
7605 3
7606 -
7607 PIXEL
7608 1
7609 -
7610 PIXEL
7611 3
7612 -
7613 PIXEL
7614 4
7615 -
7616 PIXEL
7617 4
7618 -
7619 PIXEL
7620 4
7621 -
7622 PIXEL
7623 X<>Y
7624 1
7625 +
7626 X<>Y
7627 PIXEL
7628 2
7629 +
7630 PIXEL
7631 1
7632 +
7633 PIXEL
7634 1
7635 +
7636 PIXEL
7637 2
7638 +
7639 PIXEL
7640 2
7641 +
7642 PIXEL
7643 2
7644 +
7645 PIXEL
7646 1
7647 +
7648 PIXEL
7649 1
7650 +
7651 PIXEL
7652 2
7653 +
7654 PIXEL
7655 1
7656 +
7657 PIXEL
7658 1
7659 +
7660 PIXEL
7661 2
7662 +
7663 PIXEL
7664 2
7665 +
7666 PIXEL
7667 X<>Y
7668 1
7669 +
7670 X<>Y
7671 PIXEL
7672 2
7673 -
7674 PIXEL
7675 2
7676 -
7677 PIXEL
7678 4
7679 -
7680 PIXEL
7681 1
7682 -
7683 PIXEL
7684 1
7685 -
7686 PIXEL
7687 2
7688 -
7689 PIXEL
7690 2
7691 -
7692 PIXEL
7693 2
7694 -
7695 PIXEL
7696 1
7697 -
7698 PIXEL
7699 1
7700 -
7701 PIXEL
7702 2
7703 -
7704 PIXEL
7705 X<>Y
7706 1
7707 +
7708 X<>Y
7709 PIXEL
7710 1
7711 +
7712 PIXEL
7713 1
7714 +
7715 PIXEL
7716 1
7717 +
7718 PIXEL
7719 1
7720 +
7721 PIXEL
7722 1
7723 +
7724 PIXEL
7725 1
7726 +
7727 PIXEL
7728 1
7729 +
7730 PIXEL
7731 1
7732 +
7733 PIXEL
7734 1
7735 +
7736 PIXEL
7737 1
7738 +
7739 PIXEL
7740 1
7741 +
7742 PIXEL
7743 1
7744 +
7745 PIXEL
7746 1
7747 +
7748 PIXEL
7749 1
7750 +
7751 PIXEL
7752 1
7753 +
7754 PIXEL
7755 1
7756 +
7757 PIXEL
7758 1
7759 +
7760 PIXEL
7761 1
7762 +
7763 PIXEL
7764 1
7765 +
7766 PIXEL
7767 1
7768 +
7769 PIXEL
7770 "BACK in MENU"
7771 HEIGHT
7772 6
7773 -
7774 ENTER
7775 111
7776 PIXEL
7777 1
7778 +
7779 PIXEL
7780 1
7781 +
7782 PIXEL
7783 1
7784 +
7785 PIXEL
7786 1
7787 +
7788 PIXEL
7789 1
7790 +
7791 PIXEL
7792 1
7793 +
7794 PIXEL
7795 1
7796 +
7797 PIXEL
7798 1
7799 +
7800 PIXEL
7801 1
7802 +
7803 PIXEL
7804 1
7805 +
7806 PIXEL
7807 1
7808 +
7809 PIXEL
7810 1
7811 +
7812 PIXEL
7813 1
7814 +
7815 PIXEL
7816 1
7817 +
7818 PIXEL
7819 1
7820 +
7821 PIXEL
7822 1
7823 +
7824 PIXEL
7825 1
7826 +
7827 PIXEL
7828 1
7829 +
7830 PIXEL
7831 1
7832 +
7833 PIXEL
7834 1
7835 +
7836 PIXEL
7837 X<>Y
7838 1
7839 +
7840 X<>Y
7841 PIXEL
7842 1
7843 -
7844 PIXEL
7845 1
7846 -
7847 PIXEL
7848 2
7849 -
7850 PIXEL
7851 1
7852 -
7853 PIXEL
7854 2
7855 -
7856 PIXEL
7857 3
7858 -
7859 PIXEL
7860 1
7861 -
7862 PIXEL
7863 1
7864 -
7865 PIXEL
7866 2
7867 -
7868 PIXEL
7869 1
7870 -
7871 PIXEL
7872 1
7873 -
7874 PIXEL
7875 3
7876 -
7877 PIXEL
7878 1
7879 -
7880 PIXEL
7881 X<>Y
7882 1
7883 +
7884 X<>Y
7885 PIXEL
7886 1
7887 +
7888 PIXEL
7889 2
7890 +
7891 PIXEL
7892 2
7893 +
7894 PIXEL
7895 2
7896 +
7897 PIXEL
7898 2
7899 +
7900 PIXEL
7901 2
7902 +
7903 PIXEL
7904 1
7905 +
7906 PIXEL
7907 1
7908 +
7909 PIXEL
7910 2
7911 +
7912 PIXEL
7913 2
7914 +
7915 PIXEL
7916 1
7917 +
7918 PIXEL
7919 1
7920 +
7921 PIXEL
7922 1
7923 +
7924 PIXEL
7925 X<>Y
7926 1
7927 +
7928 X<>Y
7929 PIXEL
7930 1
7931 -
7932 PIXEL
7933 1
7934 -
7935 PIXEL
7936 1
7937 -
7938 PIXEL
7939 4
7940 -
7941 PIXEL
7942 1
7943 -
7944 PIXEL
7945 1
7946 -
7947 PIXEL
7948 2
7949 -
7950 PIXEL
7951 4
7952 -
7953 PIXEL
7954 4
7955 -
7956 PIXEL
7957 1
7958 -
7959 PIXEL
7960 X<>Y
7961 1
7962 +
7963 X<>Y
7964 PIXEL
7965 1
7966 +
7967 PIXEL
7968 2
7969 +
7970 PIXEL
7971 2
7972 +
7973 PIXEL
7974 2
7975 +
7976 PIXEL
7977 2
7978 +
7979 PIXEL
7980 2
7981 +
7982 PIXEL
7983 1
7984 +
7985 PIXEL
7986 1
7987 +
7988 PIXEL
7989 2
7990 +
7991 PIXEL
7992 2
7993 +
7994 PIXEL
7995 1
7996 +
7997 PIXEL
7998 1
7999 +
8000 PIXEL
8001 1
8002 +
8003 PIXEL
8004 X<>Y
8005 1
8006 +
8007 X<>Y
8008 PIXEL
8009 1
8010 -
8011 PIXEL
8012 1
8013 -
8014 PIXEL
8015 2
8016 -
8017 PIXEL
8018 1
8019 -
8020 PIXEL
8021 2
8022 -
8023 PIXEL
8024 3
8025 -
8026 PIXEL
8027 1
8028 -
8029 PIXEL
8030 2
8031 -
8032 PIXEL
8033 2
8034 -
8035 PIXEL
8036 1
8037 -
8038 PIXEL
8039 3
8040 -
8041 PIXEL
8042 1
8043 -
8044 PIXEL
8045 X<>Y
8046 1
8047 +
8048 X<>Y
8049 PIXEL
8050 1
8051 +
8052 PIXEL
8053 1
8054 +
8055 PIXEL
8056 1
8057 +
8058 PIXEL
8059 1
8060 +
8061 PIXEL
8062 1
8063 +
8064 PIXEL
8065 1
8066 +
8067 PIXEL
8068 1
8069 +
8070 PIXEL
8071 1
8072 +
8073 PIXEL
8074 1
8075 +
8076 PIXEL
8077 1
8078 +
8079 PIXEL
8080 1
8081 +
8082 PIXEL
8083 1
8084 +
8085 PIXEL
8086 1
8087 +
8088 PIXEL
8089 1
8090 +
8091 PIXEL
8092 1
8093 +
8094 PIXEL
8095 1
8096 +
8097 PIXEL
8098 1
8099 +
8100 PIXEL
8101 1
8102 +
8103 PIXEL
8104 1
8105 +
8106 PIXEL
8107 1
8108 +
8109 PIXEL
8110 CLV "#XINC"
8111 CLV "#PLOT"
8112 CLV "#JPLOT"
8113 CLV "#XAXIS"
8114 CLV "#XAXISd"
8115 CLV "#YAXIS"
8116 CLV "#P0SIGN"
8117 RCL "#XMIN"
8118 RCL "#XMAX"
8119 RCL "#YMAX"
8120 RCL "#YMIN"
8121 CLA
8122 KEY 1 GTO 63
8123 KEY 2 GTO 01
8124 KEY 3 GTO 01
8125 KEY 4 GTO 02
8126 KEY 5 GTO 01
8127 "BACK"
8128 KEY 6 GTO 01
8129 CLA
8130 KEY 7 GTO 01
8131 KEY 8 GTO 01
8132 KEY 9 GTO 98
8133 STOP
8134▸LBL 01
8135 CLMENU
8136 CF 19
8137 R↑
8138 R↑
8139 8
8140 ENTER
8141 22
8142 SETDS
8143 R↑
8144 R↑
8145 +
8146 2
8147 ÷
8148 STO "XP"
8149 GTO 57
8150▸LBL 02
8151 "PLOT PAPER"
8152 ADV
8153 "Y(x) = "
8154 ARCL "FKT-SEL"
8155 ├"(x)"
8156 PRA
8157 8
8158 ENTER
8159 22
8160 SETDS
8161 CF 12
8162 CF 15
8163 CF 16
8164 1
8165 STO "#JPLOT"
8166 2
8167 ENTER
8168 133
8169 NEWMAT
8170 STO "#PLOT"
8171 RCL "#XMAX"
8172 RCL "#XMIN"
8173 STO "XP"
8174 -
8175 131
8176 ÷
8177 STO "#XINC"
8178 384
8179 RCL "#YMAX"
8180 ×
8181 LASTX
8182 RCL "#YMIN"
8183 -
8184 SF 25
8185 1/X
8186 ×
8187 1
8188 +
8189 IP
8190 X≤0?
8191 1
8192 383
8193 X>Y?
8194 X<>Y
8195 STO "#XAXIS"
8196 129
8197 RCL "#XMIN"
8198 ×
8199 LASTX
8200 RCL "#XMAX"
8201 -
8202 SF 25
8203 1/X
8204 ×
8205 1.5
8206 +
8207 IP
8208 X≤0?
8209 1
8210 131
8211 X>Y?
8212 X<>Y
8213 STO "#YAXIS"
8214▸LBL 61
8215 INDEX "PWI"
8216 RCLEL
8217 STO "#GRAD"
8218 CLST
8219 XEQ 21
8220 STO "P0"
8221 1
8222 STO "Q0"
8223 SF 25
8224 INDEX "QOI"
8225 FS? 25
8226 RCLEL
8227 FS? 25
8228 STO "#GRAD"
8229 CLA
8230 ARCL "FKT-SEL"
8231 ATOX
8232 102
8233 CF 19
8234 X=Y?
8235 SF 19
8236 CLST
8237 FS? 19
8238 XEQ 21
8239 FS? 19
8240 STO "Q0"
8241 CLA
8242 ARCL "FKT-SEL"
8243 ATOX
8244 ATOX
8245 STO ST Y
8246 X↑2
8247 22
8248 ENTER
8249 3315
8250 ÷
8251 +/-
8252 ×
8253 LASTX
8254 578
8255 ×
8256 1
8257 X<>Y
8258 -
8259 17
8260 ÷
8261 R↑
8262 ×
8263 +
8264 1.1
8265 +
8266 IP
8267 RCL "Q0"
8268 X<>Y
8269 SF 25
8270 Y↑X
8271 X≠0?
8272 1/X
8273 STO× "P0"
8274 RCL "#XAXIS"
8275 RCL "P0"
8276 X≠0?
8277 SIGN
8278 -
8279 STO "#XAXISd"
8280 INDEX "#PLOT"
8281 1
8282 RCL "#JPLOT"
8283 STOIJ
8284 RCL "P0"
8285 RCL "#YMAX"
8286 -
8287 384
8288 ×
8289 RCL "#YMIN"
8290 RCL "#YMAX"
8291 -
8292 SF 25
8293 1/X
8294 ×
8295 1.5
8296 +
8297 IP
8298 RCL "#XAXIS"
8299 X<>Y
8300 X=Y?
8301 RCL "#XAXISd"
8302 STOEL
8303 I+
8304 RCL "P0"
8305 STOEL
8306 RCL "#XINC"
8307 STO+ "XP"
8308 RCL "#JPLOT"
8309 1
8310 +
8311 STO "#JPLOT"
8312 130
8313 X≥Y?
8314 GTO 61
8315 CLX
8316 STO "#JPLOT"
8317 1
8318 STO "#Z"
8319 STO "#Z1N"
8320 64
8321 STO "#Z64N"
8322 ADV
8323 RCL "#YMAX"
8324 STO "Ymax "
8325 PRV "Ymax "
8326 CLV "Ymax "
8327 RCL "#YMIN"
8328 STO "Ymin "
8329 PRV "Ymin "
8330 CLV "Ymin "
8331 RCL "#XMAX"
8332 STO "Xmax "
8333 PRV "Xmax "
8334 CLV "Xmax "
8335 RCL "#XMIN"
8336 STO "Xmin "
8337 PRV "Xmin "
8338 CLV "Xmin "
8339 ADV
8340 CLLCD
8341 2
8342 RCL "#YAXIS"
8343 1
8344 -
8345 PIXEL
8346 2
8347 +
8348 PIXEL
8349 3
8350 X<>Y
8351 PIXEL
8352 1
8353 +
8354 PIXEL
8355 3
8356 -
8357 PIXEL
8358 1
8359 -
8360 PIXEL
8361▸LBL 62
8362 INDEX "#PLOT"
8363 1
8364 STO+ "#JPLOT"
8365 RCL "#JPLOT"
8366 130
8367 X<Y?
8368 GTO 01
8369 R↓
8370 STOIJ
8371 RCLEL
8372 RCL "#Z1N"
8373 X>Y?
8374 GTO 62
8375 RCLEL
8376 RCL "#Z64N"
8377 X<Y?
8378 GTO 62
8379 RCLIJ
8380 RCLEL
8381 RCL "#Z"
8382 1
8383 -
8384 64
8385 ×
8386 -
8387 X<>Y
8388 PIXEL
8389 GTO 62
8390▸LBL 01
8391 RCL "#XAXIS"
8392 RCL "#Z1N"
8393 X>Y?
8394 GTO 02
8395 RCL "#XAXIS"
8396 RCL "#Z64N"
8397 X<Y?
8398 GTO 02
8399 RCL "#XAXIS"
8400 RCL "#Z"
8401 1
8402 -
8403 64
8404 ×
8405 -
8406 +/-
8407 1
8408 PIXEL
8409 X<>Y
8410 +/-
8411 1
8412 -
8413 2
8414 PIXEL
8415 1
8416 +
8417 PIXEL
8418 X<>Y
8419 1
8420 -
8421 X<>Y
8422 PIXEL
8423 X<>Y
8424 4
8425 +
8426 X<>Y
8427 PIXEL
8428 X<>Y
8429 1
8430 -
8431 2
8432 PIXEL
8433 1
8434 +
8435 PIXEL
8436 X<>Y
8437 130
8438 PIXEL
8439 1
8440 -
8441 PIXEL
8442 X<>Y
8443 1
8444 +
8445 X<>Y
8446 PIXEL
8447 X<>Y
8448 4
8449 -
8450 X<>Y
8451 PIXEL
8452 X<>Y
8453 1
8454 +
8455 X<>Y
8456 PIXEL
8457 1
8458 +
8459 PIXEL
8460▸LBL 02
8461 1
8462 RCL "#YAXIS"
8463 +/-
8464 PIXEL
8465 RCL "#Z"
8466 6
8467 X≠Y?
8468 PRLCD
8469 X≠Y?
8470 CLLCD
8471 CLX
8472 STO "#JPLOT"
8473 64
8474 STO+ "#Z1N"
8475 STO+ "#Z64N"
8476 1
8477 RCL "#Z"
8478 +
8479 STO "#Z"
8480 7
8481 X>Y?
8482 GTO 62
8483 62
8484 RCL "#YAXIS"
8485 PIXEL
8486 1
8487 -
8488 PIXEL
8489 1
8490 -
8491 PIXEL
8492 3
8493 +
8494 PIXEL
8495 1
8496 +
8497 PIXEL
8498 63
8499 RCL "#YAXIS"
8500 PIXEL
8501 1
8502 -
8503 PIXEL
8504 2
8505 +
8506 PIXEL
8507 PRLCD
8508 ADV
8509 CLD
8510 CLV "#YAXIS"
8511 CLV "#Z"
8512 CLV "#Z1N"
8513 CLV "#Z64N"
8514 CLV "P0"
8515 CLST
8516 GTO 58
8517▸LBL 63
8518 "MENU PHASENPLOT"
8519 8
8520 ENTER
8521 22
8522 SETDS
8523 CLMENU
8524 CLA
8525 ARCL "FKT-SEL"
8526 ├"min"
8527 KEY 1 GTO 01
8528 CLA
8529 ARCL "FKT-SEL"
8530 ├"max"
8531 KEY 2 GTO 02
8532 "IiYI"
8533 KEY 3 GTO 03
8534 "<0,0>"
8535 KEY 4 GTO 04
8536 "XEQ"
8537 KEY 5 GTO 05
8538 "BACK"
8539 KEY 6 GTO 57
8540 KEY 7 GTO 63
8541 KEY 8 GTO 63
8542 KEY 9 GTO 98
8543 CLA
8544 SF 25
8545 RCL "#P-VK"
8546 FC? 25
8547 0
8548 STO "#P-VK"
8549 4
8550 X<Y?
8551 ├"."
8552 X<>Y
8553 X>Y?
8554 AIP
8555 X<>Y
8556 X<Y?
8557 ├"x0,"
8558 X=Y?
8559 ├"0000,"
8560 1
8561 -
8562 X=Y?
8563 ├".000,"
8564 1
8565 -
8566 X=Y?
8567 ├"..00,"
8568 1
8569 -
8570 X=Y?
8571 ├"...0,"
8572 1
8573 -
8574 X=Y?
8575 ├"....,"
8576 SF 25
8577 RCL "#P-NK"
8578 FC? 25
8579 1
8580 STO "#P-NK"
8581 4
8582 X<Y?
8583 ├"0x"
8584 X<>Y
8585 X>Y?
8586 AIP
8587 X<>Y
8588 X<Y?
8589 ├"."
8590 X=Y?
8591 ├"0000"
8592 1
8593 -
8594 X=Y?
8595 ├"000."
8596 1
8597 -
8598 X=Y?
8599 ├"00.."
8600 1
8601 -
8602 X=Y?
8603 ├"0..."
8604 1
8605 -
8606 X=Y?
8607 ├"...."
8608 ├" iY  max  min"
8609 SF 25
8610 RCL "#Y-END"
8611 FC? 25
8612 1
8613 STO "#Y-END"
8614 RCL "#P-VK"
8615 RCL "#P-NK"
8616 10
8617 ÷
8618 +
8619 RCL "#Y-END"
8620 SF 25
8621 RCL "#P-MAX"
8622 FC? 25
8623 10
8624 STO "#P-MAX"
8625 SF 25
8626 RCL "#P-MIN"
8627 FC? 25
8628 0
8629 STO "#P-MIN"
8630 MENU
8631 PROMPT
8632 GTO 63
8633▸LBL 01
8634 X<0?
8635 GTO 63
8636 RCL "#P-MAX"
8637 X<>Y
8638 X>Y?
8639 GTO 63
8640 RCL "#P-MIN"
8641 X<>Y
8642 X=Y?
8643 GTO 63
8644 STO "#P-MIN"
8645 GTO 05
8646▸LBL 02
8647 X≤0?
8648 GTO 63
8649 RCL "#P-MIN"
8650 X<>Y
8651 X<Y?
8652 GTO 63
8653 RCL "#P-MAX"
8654 X<>Y
8655 X=Y?
8656 GTO 63
8657 STO "#P-MAX"
8658 GTO 05
8659▸LBL 03
8660 X<0?
8661 GTO 63
8662 RCL "#Y-END"
8663 X<>Y
8664 X=Y?
8665 GTO 63
8666 STO "#Y-END"
8667 GTO 05
8668▸LBL 04
8669 X≤0?
8670 GTO 63
8671 IP
8672 LASTX
8673 FP
8674 10
8675 ×
8676 IP
8677 9
8678 X<>Y
8679 X>Y?
8680 X<>Y
8681 X<> "#P-NK"
8682 RCL "#P-NK"
8683 -
8684 ABS
8685 RCL ST Z
8686 9
8687 X<>Y
8688 X>Y?
8689 X<>Y
8690 X<> "#P-VK"
8691 RCL "#P-VK"
8692 -
8693 ABS
8694 RCL ST Z
8695 +
8696 X=0?
8697 GTO 63
8698 GTO 05
8699▸LBL 05
8700 "PHASENPLOT"
8701 1ᴇ99
8702 STO "#Y-MIN"
8703 +/-
8704 STO "#Y-MAX"
8705 RCL "#XMAX"
8706 RCL "#XMIN"
8707 STO "#X#"
8708 -
8709 WIDTH
8710 11
8711 -
8712 SF 25
8713 1/X
8714 ×
8715 STO "#XINC"
8716 RCL "#Y-END"
8717 STO "#Y#"
8718 STO+ ST X
8719 120
8720 ÷
8721 STO "#YINC"
8722 0.12
8723 STO "#IT-X"
8724 STO "#IT-Y"
8725 121
8726 ENTER
8727 DIM "#PHASE"
8728▸LBL 64
8729 RCL "#XMIN"
8730 RCL "#IT-X"
8731 IP
8732 RCL "#XINC"
8733 ×
8734 +
8735 STO "#X#"
8736 RCL "#Y#"
8737 COMPLEX
8738 STO "XP"
8739 INDEX "PWI"
8740 RCLEL
8741 STO "#GRAD"
8742 CLST
8743 XEQ 21
8744 STO "P0"
8745 1
8746 STO "Q0"
8747 SF 25
8748 INDEX "QOI"
8749 FS? 25
8750 RCLEL
8751 FS? 25
8752 STO "#GRAD"
8753 CLA
8754 ARCL "FKT-SEL"
8755 ATOX
8756 102
8757 CF 19
8758 X=Y?
8759 SF 19
8760 CLST
8761 FS? 19
8762 XEQ 21
8763 FS? 19
8764 STO "Q0"
8765 CLA
8766 ARCL "FKT-SEL"
8767 ATOX
8768 ATOX
8769 STO ST Y
8770 X↑2
8771 22
8772 ENTER
8773 3315
8774 ÷
8775 +/-
8776 ×
8777 LASTX
8778 578
8779 ×
8780 1
8781 X<>Y
8782 -
8783 17
8784 ÷
8785 R↑
8786 ×
8787 +
8788 1.1
8789 +
8790 IP
8791 RCL "Q0"
8792 X<>Y
8793 Y↑X
8794 SF 25
8795 1/X
8796 RCL "P0"
8797 ×
8798 ABS
8799 STO "#PH"
8800 RCL "#IT-Y"
8801 IP
8802 1
8803 +
8804 RCL "#IT-X"
8805 1
8806 +
8807 IP
8808 INDEX "#PHASE"
8809 STOIJ
8810 RCL "#PH"
8811 STOEL
8812 RCL "#Y-MAX"
8813 X<Y?
8814 X<>Y
8815 STO "#Y-MAX"
8816 RCL "#PH"
8817 RCL "#Y-MIN"
8818 X>Y?
8819 X<>Y
8820 STO "#Y-MIN"
8821 ISG "#IT-X"
8822 GTO 64
8823 0.12
8824 STO "#IT-X"
8825 RCL "#XMIN"
8826 STO "#X#"
8827 RCL "#Y-END"
8828 RCL "#YINC"
8829 RCL "#IT-Y"
8830 IP
8831 1
8832 +
8833 ×
8834 -
8835 STO "#Y#"
8836 ISG "#IT-Y"
8837 GTO 64
8838 CLV "#PH"
8839 CLV "#X#"
8840 CLV "#Y#"
8841 RCL "#P-MAX"
8842 STO ST Y
8843 RCL "#P-MIN"
8844 -
8845 RCL "#Y-MAX"
8846 RCL "#Y-MIN"
8847 -
8848 SF 25
8849 1/X
8850 ×
8851 STO× "#PHASE"
8852 RCL "#Y-MAX"
8853 ×
8854 -
8855 STO+ "#PHASE"
8856 CLV "#Y-MIN"
8857 CLV "#Y-MAX"
8858 1.121
8859 STO "#IT-X"
8860 STO "#IT-Y"
8861 INDEX "#PHASE"
8862 16
8863 ENTER
8864 22
8865 SETDS
8866 CLLCD
8867 -61
8868 ENTER
8869 0
8870 PIXEL
8871 "-65"
8872 125
8873 RCL "#XMAX"
8874 RCL "#XMIN"
8875 -
8876 SF 25
8877 1/X
8878 RCL "#XMAX"
8879 ×
8880 120
8881 ×
8882 -
8883 1.51
8884 +
8885 IP
8886 +/-
8887 PIXEL
8888▸LBL 65
8889 RCL "#IT-X"
8890 IP
8891 RCL "#IT-Y"
8892 IP
8893 STOIJ
8894 RCLEL
8895 RCL "#P-NK"
8896 10↑X
8897 ×
8898 IP
8899 RCL "#P-VK"
8900 RCL "#P-NK"
8901 +
8902 10↑X
8903 SF 25
8904 1/X
8905 ×
8906 FP
8907 STO "#VAL"
8908 RCLIJ
8909 5
8910 +
8911 RCL "#VAL"
8912 CLV "#VAL"
8913 X≠0?
8914 STO ST Y
8915 X≠0?
8916 STO- ST Y
8917 X≠0?
8918 STO ST Z
8919 X≠0?
8920 STO- ST Z
8921 R↓
8922 PIXEL
8923 ISG "#IT-X"
8924 GTO 65
8925 1.121
8926 STO "#IT-X"
8927 ISG "#IT-Y"
8928 GTO 65
8929 CLV "#IT-X"
8930 CLV "#IT-Y"
8931 CLV "#PHASE"
8932 "PAPER in MENU"
8933 HEIGHT
8934 6
8935 -
8936 ENTER
8937 67
8938 PIXEL
8939 1
8940 +
8941 PIXEL
8942 1
8943 +
8944 PIXEL
8945 1
8946 +
8947 PIXEL
8948 1
8949 +
8950 PIXEL
8951 1
8952 +
8953 PIXEL
8954 1
8955 +
8956 PIXEL
8957 1
8958 +
8959 PIXEL
8960 1
8961 +
8962 PIXEL
8963 1
8964 +
8965 PIXEL
8966 1
8967 +
8968 PIXEL
8969 1
8970 +
8971 PIXEL
8972 1
8973 +
8974 PIXEL
8975 1
8976 +
8977 PIXEL
8978 1
8979 +
8980 PIXEL
8981 1
8982 +
8983 PIXEL
8984 1
8985 +
8986 PIXEL
8987 1
8988 +
8989 PIXEL
8990 1
8991 +
8992 PIXEL
8993 1
8994 +
8995 PIXEL
8996 1
8997 +
8998 PIXEL
8999 X<>Y
9000 1
9001 +
9002 X<>Y
9003 PIXEL
9004 4
9005 -
9006 PIXEL
9007 4
9008 -
9009 PIXEL
9010 4
9011 -
9012 PIXEL
9013 1
9014 -
9015 PIXEL
9016 2
9017 -
9018 PIXEL
9019 1
9020 -
9021 PIXEL
9022 4
9023 -
9024 PIXEL
9025 X<>Y
9026 1
9027 +
9028 X<>Y
9029 PIXEL
9030 2
9031 +
9032 PIXEL
9033 2
9034 +
9035 PIXEL
9036 2
9037 +
9038 PIXEL
9039 2
9040 +
9041 PIXEL
9042 2
9043 +
9044 PIXEL
9045 2
9046 +
9047 PIXEL
9048 2
9049 +
9050 PIXEL
9051 1
9052 +
9053 PIXEL
9054 1
9055 +
9056 PIXEL
9057 2
9058 +
9059 PIXEL
9060 2
9061 +
9062 PIXEL
9063 X<>Y
9064 1
9065 +
9066 X<>Y
9067 PIXEL
9068 1
9069 -
9070 PIXEL
9071 3
9072 -
9073 PIXEL
9074 1
9075 -
9076 PIXEL
9077 3
9078 -
9079 PIXEL
9080 4
9081 -
9082 PIXEL
9083 4
9084 -
9085 PIXEL
9086 4
9087 -
9088 PIXEL
9089 X<>Y
9090 1
9091 +
9092 X<>Y
9093 PIXEL
9094 2
9095 +
9096 PIXEL
9097 1
9098 +
9099 PIXEL
9100 1
9101 +
9102 PIXEL
9103 2
9104 +
9105 PIXEL
9106 2
9107 +
9108 PIXEL
9109 2
9110 +
9111 PIXEL
9112 1
9113 +
9114 PIXEL
9115 1
9116 +
9117 PIXEL
9118 2
9119 +
9120 PIXEL
9121 1
9122 +
9123 PIXEL
9124 1
9125 +
9126 PIXEL
9127 2
9128 +
9129 PIXEL
9130 2
9131 +
9132 PIXEL
9133 X<>Y
9134 1
9135 +
9136 X<>Y
9137 PIXEL
9138 2
9139 -
9140 PIXEL
9141 2
9142 -
9143 PIXEL
9144 4
9145 -
9146 PIXEL
9147 1
9148 -
9149 PIXEL
9150 1
9151 -
9152 PIXEL
9153 2
9154 -
9155 PIXEL
9156 2
9157 -
9158 PIXEL
9159 2
9160 -
9161 PIXEL
9162 1
9163 -
9164 PIXEL
9165 1
9166 -
9167 PIXEL
9168 2
9169 -
9170 PIXEL
9171 X<>Y
9172 1
9173 +
9174 X<>Y
9175 PIXEL
9176 1
9177 +
9178 PIXEL
9179 1
9180 +
9181 PIXEL
9182 1
9183 +
9184 PIXEL
9185 1
9186 +
9187 PIXEL
9188 1
9189 +
9190 PIXEL
9191 1
9192 +
9193 PIXEL
9194 1
9195 +
9196 PIXEL
9197 1
9198 +
9199 PIXEL
9200 1
9201 +
9202 PIXEL
9203 1
9204 +
9205 PIXEL
9206 1
9207 +
9208 PIXEL
9209 1
9210 +
9211 PIXEL
9212 1
9213 +
9214 PIXEL
9215 1
9216 +
9217 PIXEL
9218 1
9219 +
9220 PIXEL
9221 1
9222 +
9223 PIXEL
9224 1
9225 +
9226 PIXEL
9227 1
9228 +
9229 PIXEL
9230 1
9231 +
9232 PIXEL
9233 1
9234 +
9235 PIXEL
9236 "BACK IN MENU"
9237 HEIGHT
9238 6
9239 -
9240 ENTER
9241 111
9242 PIXEL
9243 1
9244 +
9245 PIXEL
9246 1
9247 +
9248 PIXEL
9249 1
9250 +
9251 PIXEL
9252 1
9253 +
9254 PIXEL
9255 1
9256 +
9257 PIXEL
9258 1
9259 +
9260 PIXEL
9261 1
9262 +
9263 PIXEL
9264 1
9265 +
9266 PIXEL
9267 1
9268 +
9269 PIXEL
9270 1
9271 +
9272 PIXEL
9273 1
9274 +
9275 PIXEL
9276 1
9277 +
9278 PIXEL
9279 1
9280 +
9281 PIXEL
9282 1
9283 +
9284 PIXEL
9285 1
9286 +
9287 PIXEL
9288 1
9289 +
9290 PIXEL
9291 1
9292 +
9293 PIXEL
9294 1
9295 +
9296 PIXEL
9297 1
9298 +
9299 PIXEL
9300 1
9301 +
9302 PIXEL
9303 X<>Y
9304 1
9305 +
9306 X<>Y
9307 PIXEL
9308 1
9309 -
9310 PIXEL
9311 1
9312 -
9313 PIXEL
9314 2
9315 -
9316 PIXEL
9317 1
9318 -
9319 PIXEL
9320 2
9321 -
9322 PIXEL
9323 3
9324 -
9325 PIXEL
9326 1
9327 -
9328 PIXEL
9329 1
9330 -
9331 PIXEL
9332 2
9333 -
9334 PIXEL
9335 1
9336 -
9337 PIXEL
9338 1
9339 -
9340 PIXEL
9341 3
9342 -
9343 PIXEL
9344 1
9345 -
9346 PIXEL
9347 X<>Y
9348 1
9349 +
9350 X<>Y
9351 PIXEL
9352 1
9353 +
9354 PIXEL
9355 2
9356 +
9357 PIXEL
9358 2
9359 +
9360 PIXEL
9361 2
9362 +
9363 PIXEL
9364 2
9365 +
9366 PIXEL
9367 2
9368 +
9369 PIXEL
9370 1
9371 +
9372 PIXEL
9373 1
9374 +
9375 PIXEL
9376 2
9377 +
9378 PIXEL
9379 2
9380 +
9381 PIXEL
9382 1
9383 +
9384 PIXEL
9385 1
9386 +
9387 PIXEL
9388 1
9389 +
9390 PIXEL
9391 X<>Y
9392 1
9393 +
9394 X<>Y
9395 PIXEL
9396 1
9397 -
9398 PIXEL
9399 1
9400 -
9401 PIXEL
9402 1
9403 -
9404 PIXEL
9405 4
9406 -
9407 PIXEL
9408 1
9409 -
9410 PIXEL
9411 1
9412 -
9413 PIXEL
9414 2
9415 -
9416 PIXEL
9417 4
9418 -
9419 PIXEL
9420 4
9421 -
9422 PIXEL
9423 1
9424 -
9425 PIXEL
9426 X<>Y
9427 1
9428 +
9429 X<>Y
9430 PIXEL
9431 1
9432 +
9433 PIXEL
9434 2
9435 +
9436 PIXEL
9437 2
9438 +
9439 PIXEL
9440 2
9441 +
9442 PIXEL
9443 2
9444 +
9445 PIXEL
9446 2
9447 +
9448 PIXEL
9449 1
9450 +
9451 PIXEL
9452 1
9453 +
9454 PIXEL
9455 2
9456 +
9457 PIXEL
9458 2
9459 +
9460 PIXEL
9461 1
9462 +
9463 PIXEL
9464 1
9465 +
9466 PIXEL
9467 1
9468 +
9469 PIXEL
9470 X<>Y
9471 1
9472 +
9473 X<>Y
9474 PIXEL
9475 1
9476 -
9477 PIXEL
9478 1
9479 -
9480 PIXEL
9481 2
9482 -
9483 PIXEL
9484 1
9485 -
9486 PIXEL
9487 2
9488 -
9489 PIXEL
9490 3
9491 -
9492 PIXEL
9493 1
9494 -
9495 PIXEL
9496 2
9497 -
9498 PIXEL
9499 2
9500 -
9501 PIXEL
9502 1
9503 -
9504 PIXEL
9505 3
9506 -
9507 PIXEL
9508 1
9509 -
9510 PIXEL
9511 X<>Y
9512 1
9513 +
9514 X<>Y
9515 PIXEL
9516 1
9517 +
9518 PIXEL
9519 1
9520 +
9521 PIXEL
9522 1
9523 +
9524 PIXEL
9525 1
9526 +
9527 PIXEL
9528 1
9529 +
9530 PIXEL
9531 1
9532 +
9533 PIXEL
9534 1
9535 +
9536 PIXEL
9537 1
9538 +
9539 PIXEL
9540 1
9541 +
9542 PIXEL
9543 1
9544 +
9545 PIXEL
9546 1
9547 +
9548 PIXEL
9549 1
9550 +
9551 PIXEL
9552 1
9553 +
9554 PIXEL
9555 1
9556 +
9557 PIXEL
9558 1
9559 +
9560 PIXEL
9561 1
9562 +
9563 PIXEL
9564 1
9565 +
9566 PIXEL
9567 1
9568 +
9569 PIXEL
9570 1
9571 +
9572 PIXEL
9573 1
9574 +
9575 PIXEL
9576 KEY 1 GTO 63
9577 KEY 2 GTO 63
9578 KEY 3 GTO 63
9579 KEY 4 GTO 01
9580 KEY 5 GTO 63
9581 KEY 6 GTO 63
9582 KEY 7 GTO 63
9583 KEY 8 GTO 63
9584 KEY 9 GTO 98
9585 STOP
9586 8
9587 ENTER
9588 22
9589 SETDS
9590 GTO 63
9591▸LBL 01
9592 ADV
9593 ADV
9594 RCL "#XMIN"
9595 STO "Xmin "
9596 PRV "Xmin "
9597 CLV "Xmin "
9598 RCL "#XMAX"
9599 STO "Xmax "
9600 PRV "Xmax "
9601 CLV "Xmax "
9602 RCL "#Y-END"
9603 STO "|iY| "
9604 PRV "|iY| "
9605 CLV "|iY| "
9606 RCL "#P-MAX"
9607 STO "Pmax "
9608 PRV "Pmax "
9609 CLV "Pmax "
9610 RCL "#P-MIN"
9611 STO "Pmin "
9612 PRV "Pmin "
9613 CLV "Pmin "
9614 RCL "#P-VK"
9615 "mask <"
9616 5
9617 X<>Y
9618 X>Y?
9619 ├".."
9620 X>Y?
9621 AIP
9622 X>Y?
9623 ├"x0"
9624 X<>Y
9625 X=Y?
9626 ├"00000"
9627 1
9628 -
9629 X=Y?
9630 ├".0000"
9631 1
9632 -
9633 X=Y?
9634 ├"..000"
9635 1
9636 -
9637 X=Y?
9638 ├"...00"
9639 1
9640 -
9641 X=Y?
9642 ├"....0"
9643 1
9644 -
9645 X=Y?
9646 ├"....."
9647 ├","
9648 5
9649 RCL "#P-NK"
9650 X>Y?
9651 ├"0x"
9652 X>Y?
9653 AIP
9654 X>Y?
9655 ├"..>"
9656 X<>Y
9657 X=Y?
9658 ├"00000>"
9659 1
9660 -
9661 X=Y?
9662 ├"0000.>"
9663 1
9664 -
9665 X=Y?
9666 ├"000..>"
9667 1
9668 -
9669 X=Y?
9670 ├"00...>"
9671 1
9672 -
9673 X=Y?
9674 ├"0....>"
9675 1
9676 -
9677 X=Y?
9678 ├".....>"
9679 PRA
9680 PRLCD
9681 ADV
9682 GTO 63
9683▸LBL 66
9684 "COPY "FKT-SEL""
9685 "to ST.X"
9686 "→ ROCCHINI"
9687 CLA
9688 ARCL "#KEY-3#"
9689 ATOX
9690 X=0?
9691 GTO 50
9692 "ROC"
9693 ASTO "#CMD"
9694 CF 19
9695 CLA
9696 ARCL "FKT-SEL"
9697 ATOX
9698 102
9699 X=Y?
9700 SF 19
9701 INDEX "PWI"
9702 RCLEL
9703 STO "#GRAD"
9704 RCL "PWI"
9705 STO "ROC"
9706 INDEX "ROC"
9707 "("
9708 ASTO ST X
9709 STOEL
9710 FC? 19
9711 GTO 67
9712 INDEX "QOI"
9713 J-
9714 RCLIJ
9715 INDEX "ROC"
9716 J-
9717 RCLIJ
9718 RCL ST Z
9719 +
9720 DIM "ROC"
9721 INDEX "PWI"
9722 J-
9723 RCLIJ
9724 INDEX "ROC"
9725 STOIJ
9726 J+
9727 RCL "QOI"
9728 PUTM
9729 INDEX "ROC"
9730▸LBL 67
9731 RCL "#GRAD"
9732 X<0?
9733 GTO 03
9734 J+
9735 RCLEL
9736 X≠0?
9737 GTO 01
9738 "+0"
9739 XASTO ST X
9740 STOEL
9741 1
9742 STO- "#GRAD"
9743 GTO 67
9744▸LBL 01
9745 CLA
9746 X≥0?
9747 "+"
9748 AIP
9749 FP
9750 ABS
9751 X=0?
9752 GTO 02
9753 ├"."
9754 ASTO "###"
9755 CLA
9756 ARCL ST X
9757 ATOX
9758 ATOX
9759 ASTO ST X
9760 CLA
9761 ARCL "###"
9762 ARCL ST X
9763 XASTO ST X
9764 REV
9765 STO "###"
9766▸LBL 68
9767 CLA
9768 ARCL "###"
9769 48
9770 ATOX
9771 X=Y?
9772 XASTO "###"
9773 X=Y?
9774 GTO 68
9775 RCL "###"
9776 REV
9777 CLA
9778 ARCL ST X
9779▸LBL 02
9780 1
9781 RCL "#GRAD"
9782 X=Y?
9783 ├"*z"
9784 X>Y?
9785 ├"*z^"
9786 X>Y?
9787 AIP
9788 XASTO ST X
9789 STOEL
9790 RCL "#GRAD"
9791 X=0?
9792 GTO 03
9793 1
9794 STO- "#GRAD"
9795 GTO 67
9796▸LBL 03
9797 CLA
9798 RCLEL
9799 ARCL ST X
9800 ├")"
9801 XASTO ST X
9802 STOEL
9803 FC? 19
9804 GTO 04
9805 INDEX "PWI"
9806 J-
9807 RCLIJ
9808 INDEX "ROC"
9809 STOIJ
9810 J+
9811 CLA
9812 "/("
9813 ASTO ST X
9814 STOEL
9815 RCLIJ
9816 INDEX "QOI"
9817 J-
9818 RCLIJ
9819 2
9820 -
9821 STO "#GRAD"
9822 R↓
9823 X<>Y
9824 INDEX "ROC"
9825 STOIJ
9826▸LBL 69
9827 RCL "#GRAD"
9828 X<0?
9829 GTO 03
9830 J+
9831 RCLEL
9832 X≠0?
9833 GTO 01
9834 "+0"
9835 XASTO ST X
9836 STOEL
9837 1
9838 STO- "#GRAD"
9839 GTO 69
9840▸LBL 01
9841 CLA
9842 X≥0?
9843 "+"
9844 AIP
9845 FP
9846 ABS
9847 X=0?
9848 GTO 02
9849 ├"."
9850 ASTO "###"
9851 CLA
9852 ARCL ST X
9853 ATOX
9854 ATOX
9855 ASTO ST X
9856 CLA
9857 ARCL "###"
9858 ARCL ST X
9859 CLV "###"
9860▸LBL 02
9861 1
9862 RCL "#GRAD"
9863 X=Y?
9864 ├"*z"
9865 X>Y?
9866 ├"*z^"
9867 X>Y?
9868 AIP
9869 XASTO ST X
9870 STOEL
9871 RCL "#GRAD"
9872 X=0?
9873 GTO 03
9874 1
9875 STO- "#GRAD"
9876 GTO 69
9877▸LBL 03
9878 CLA
9879 ARCL "FKT-SEL"
9880 ATOX
9881 ATOX
9882 INDEX "ROC"
9883 J-
9884 RCLEL
9885 CLA
9886 ARCL ST X
9887 R↓
9888 X=0?
9889 ├")"
9890 34
9891 X=Y?
9892 ├")^3"
9893 X<Y?
9894 ├")^2"
9895 ASTO ST X
9896 STOEL
9897▸LBL 04
9898 CLA
9899 ASTO "#LINEx"
9900 ASTO "#LINEz"
9901 1
9902 STO "#ROW"
9903 INDEX "ROC"
9904 J+
9905 RCLEL
9906 CLA
9907 ARCL ST X
9908 ATOX
9909 43
9910 -
9911 X=0?
9912 XASTO ST Y
9913 X<>Y
9914 STOEL
9915 CLA
9916 ARCL "FKT-SEL"
9917 ATOX
9918 102
9919 X≠Y?
9920 GTO 70
9921 INDEX "POI"
9922 J-
9923 RCLIJ
9924 2
9925 +
9926 INDEX "ROC"
9927 STOIJ
9928 RCLEL
9929 CLA
9930 ARCL ST X
9931 ATOX
9932 43
9933 -
9934 X=0?
9935 XASTO ST Y
9936 X<>Y
9937 STOEL
9938▸LBL 70
9939 INDEX "ROC"
9940 1
9941 RCL "#ROW"
9942 SF 25
9943 STOIJ
9944 FC? 25
9945 GTO 02
9946 RCL "#LINEz"
9947 RCLEL
9948 APPEND
9949 STO "#LINEz"
9950 RCLEL
9951 ENTER
9952 "z"
9953 ASTO ST X
9954 POS
9955 RCLEL
9956 X<>Y
9957 X<0?
9958 GTO 01
9959 STO "#POS"
9960 RCLEL
9961 LENGTH
9962 STO "#LENGTH"
9963 RCLEL
9964 0
9965 RCL "#POS"
9966 SUBSTR
9967 CLA
9968 ARCL ST X
9969 ├"x"
9970 RCLEL
9971 RCL "#POS"
9972 1
9973 +
9974 RCL "#LENGTH"
9975 SUBSTR
9976 ARCL ST X
9977 XASTO ST X
9978 ENTER
9979▸LBL 01
9980 RCL "#LINEx"
9981 RCL ST Z
9982 APPEND
9983 STO "#LINEx"
9984 1
9985 STO+ "#ROW"
9986 GTO 70
9987▸LBL 02
9988 CLV "#POS"
9989 CLV "#LENGTH"
9990 "ROC"
9991 ASTO "#CMD"
9992 RCL "#LINEz"
9993 STO "#LINE"
9994 SF 20
9995 1
9996 STO "#YMAX"
9997 +/-
9998 STO "#YMIN"
9999 GTO 52
10000▸LBL 08
10001 GTO 02
10002▸LBL 71
10003 RCL "#XMIN"
10004 RCL "#XMAX"
10005 RCL "#XMIN"
10006 ABS
10007 RCL "#XMAX"
10008 ABS
10009 X>Y?
10010 X<>Y
10011 R↓
10012 RCL "#LINE"
10013 CLMENU
10014 "X:f(x)"
10015 "Grph"
10016 KEY 1 GTO 02
10017 "X:f(z)"
10018 "Phase"
10019 KEY 2 GTO 03
10020 CLA
10021 KEY 3 GTO 71
10022 SF 25
10023 INDEX "PXI=0"
10024 FS? 25
10025 "Xi Yi"
10026 KEY 4 GTO 01
10027 CLA
10028 KEY 5 GTO 71
10029 "BACK"
10030 KEY 6 GTO 04
10031 KEY 7 GTO 71
10032 KEY 8 GTO 71
10033 KEY 9 GTO 98
10034 CLA
10035 ARCL "#MSG"
10036 MENU
10037 PROMPT
10038 GTO 71
10039▸LBL 01
10040 SF 25
10041 INDEX "PXI=0"
10042 FC? 25
10043 GTO 71
10044 CLST
10045 RCL "PXI=0"
10046 "Copy & Paste "
10047 ├"to Excel "
10048 ├"Nullstellen "
10049 ARCL "FKT-SEL"
10050 ├"(Xi)=0"
10051 PROMPT
10052▸LBL 01
10053 GTO 71
10054▸LBL 02
10055 "Copy & Paste "
10056 ├"to Graph:"
10057 ├"Xmin Xmax "
10058 ├"+/-iY "
10059 ARCL "FKT-SEL"
10060 ├"(x)"
10061 XASTO "#MSG"
10062 RCL "#LINEx"
10063 STO "#LINE"
10064 GTO 71
10065▸LBL 03
10066 "Copy & Paste "
10067 ├"to Phase:"
10068 ├"Xmin Xmax "
10069 ├"+/-iY "
10070 ARCL "FKT-SEL"
10071 ├"(z)"
10072 XASTO "#MSG"
10073 RCL "#LINEz"
10074 STO "#LINE"
10075 GTO 71
10076▸LBL 04
10077 RCL "#LINE"
10078 ENTER
10079 "x"
10080 ASTO ST X
10081 POS
10082 "Length("
10083 ARCL "FKT-SEL"
10084 X≥0?
10085 ├"(x)) = "
10086 X<0?
10087 ├"(z)) = "
10088 RCL "#LINE"
10089 LENGTH
10090 AIP
10091 XASTO "#MSG"
10092 CLV "ROC"
10093 CLV "#LINE"
10094 CLV "#LINEx"
10095 CLV "#LINEz"
10096 CLV "#ROW"
10097 CLST
10098 GTO 50
10099▸LBL 72
10100 "MENU SOLVE"
10101 CLV "#N-IT"
10102 CLV "#Xn+1"
10103 CLX
10104 STO "#CMD"
10105 SF 25
10106 RCL "XP"
10107 STO "XP"
10108 CLA
10109 SF 25
10110 ARCL "#METHOD"
10111 FC? 25
10112 "LAG"
10113 ASTO "#METHOD"
10114 CLA
10115 ARCL "FKT-SEL"
10116 ATOX
10117 3
10118 X=Y?
10119 XEQ 11
10120 CLA
10121 ARCL "FKT-SEL"
10122 INDEX "PAI"
10123 RCLEL
10124 INDEX "PWI"
10125 RCLEL
10126 X≠Y?
10127 ├"…"
10128 KEY 1 GTO 01
10129 "ALL"
10130 RCL "#nROOTS"
10131 X>0?
10132 "1"
10133 KEY 2 GTO 02
10134 CLA
10135 ARCL "#METHOD"
10136 KEY 3 GTO 03
10137 "PARA"
10138 KEY 4 GTO 04
10139 SF 25
10140 RCL "#L-B-V"
10141 "BAIR"
10142 FC? 25
10143 ASTO "#L-B-V"
10144 ASTO ST X
10145 RCL "#METHOD"
10146 X=Y?
10147 "GTO"
10148 X≠Y?
10149 "XEQ"
10150 KEY 5 GTO 05
10151 "BACK"
10152 KEY 6 GTO 06
10153 KEY 7 GTO 72
10154 KEY 8 GTO 72
10155 KEY 9 GTO 98
10156 MENU
10157 "#IT  YDIFF  "
10158 ├" XDIFF  Xo"
10159 INDEX "PAI"
10160 RCLEL
10161 STO ST Y
10162 INDEX "PWI"
10163 RCLEL
10164 -
10165 ├"… "
10166 AIP
10167 X<>Y
10168 ├" von "
10169 AIP
10170 ├" berechnet"
10171 RCL "#IT"
10172 RCL "#YDIFF"
10173 RCL "#XDIFF"
10174 RCL "XP"
10175 PROMPT
10176 STO "XP"
10177 GTO 72
10178▸LBL 01
10179 PRV "PWI"
10180 GTO 72
10181▸LBL 02
10182 STO "XP"
10183 1
10184 RCL "#nROOTS"
10185 -
10186 STO "#nROOTS"
10187 GTO 72
10188▸LBL 03
10189 STO "XP"
10190 RCL "#METHOD"
10191 "extrn"
10192 ASTO ST Y
10193 "LAG"
10194 X=Y?
10195 ASTO "#METHOD"
10196 ASTO ST Y
10197 "Nwtn"
10198 X=Y?
10199 ASTO "#METHOD"
10200 ASTO ST Y
10201 "BAIR"
10202 X=Y?
10203 ASTO "#METHOD"
10204 ASTO ST Y
10205 "BSCP"
10206 X=Y?
10207 ASTO "#METHOD"
10208 ASTO ST Y
10209 "SKOW"
10210 X=Y?
10211 ASTO "#METHOD"
10212 ASTO ST Y
10213 "KOE"
10214 X=Y?
10215 ASTO "#METHOD"
10216 ASTO ST Y
10217 "Auto"
10218 X=Y?
10219 ASTO "#METHOD"
10220 ASTO ST Y
10221 "extrn"
10222 X=Y?
10223 ASTO "#METHOD"
10224 "extrn"
10225 ASTO ST X
10226 RCL "#METHOD"
10227 X≠Y?
10228 CLV "#extrn"
10229 GTO 72
10230▸LBL 04
10231 STO "XP"
10232 GTO 73
10233▸LBL 05
10234 STO "XP"
10235 TYPE?
10236 X↑2
10237 LASTX
10238 3
10239 ×
10240 -
10241 2
10242 +
10243 X=0?
10244 GTO 05
10245 CLX
10246 STO "XP"
10247 GTO 72
10248▸LBL 05
10249 CLX
10250 RCL "XP"
10251 RCL "#PRTYN"
10252 X>0?
10253 ADV
10254 "============"
10255 ├"============"
10256 RCL "#PRTYN"
10257 X>0?
10258 PRA
10259 X>0?
10260 ADV
10261 "VERF.: "
10262 ARCL "#METHOD"
10263 RCL "#MULT"
10264 1
10265 STO "#M"
10266 STO "#m"
10267 X=Y?
10268 ├" m=1"
10269 STO+ ST X
10270 X=Y?
10271 ├" 1≤m≤2"
10272 STO+ ST X
10273 X=Y?
10274 ├" 1≤m≤Grad"
10275 1
10276 -
10277 X=Y?
10278 ├" 1≤m/2≤Grad"
10279 RCL "#PRTYN"
10280 X>0?
10281 PRA
10282 CLA
10283 RCL "#PRTYy"
10284 X=0?
10285 "Y(X) = "
10286 X=0?
10287 ARCL "FKT-SEL"
10288 X=0?
10289 ├"(X)"
10290 ALENG
10291 RCL "#PRTYN"
10292 ×
10293 X>0?
10294 PRA
10295 RCL "XP"
10296 GTO 74
10297▸LBL 06
10298 CLV "#MSG"
10299 GTO 10
10300▸LBL 73
10301 "MENU PARAMETER"
10302 "BAIR"
10303 ASTO ST X
10304 RCL "#METHOD"
10305 X=Y?
10306 GTO 75
10307 FC? 64
10308 GTO 01
10309 XEQ 96
10310 GTO 72
10311▸LBL 01
10312 "BAIR"
10313 ASTO ST X
10314 RCL "#METHOD"
10315 X=Y?
10316 GTO 75
10317 "#IT"
10318 KEY 1 GTO 01
10319 "Xdiff"
10320 KEY 2 GTO 02
10321 "Ydiff"
10322 KEY 3 GTO 03
10323 CLA
10324 "PRT"
10325 RCL "#PRTYN"
10326 X>0?
10327 ├"+"
10328 X=0?
10329 ├"0"
10330 X<0?
10331 ├"-"
10332 KEY 4 GTO 04
10333 CLA
10334 "m=1"
10335 2
10336 RCL "#MULT"
10337 X=Y?
10338 "m≤2"
10339 3
10340 X=Y?
10341 "m/2"
10342 X<Y?
10343 "m=m"
10344 KEY 5 GTO 05
10345 "BACK"
10346 KEY 6 GTO 06
10347 KEY 7 GTO 73
10348 KEY 8 GTO 73
10349 KEY 9 GTO 98
10350 MENU
10351 RCL "#METHOD"
10352 RCL "#IT"
10353 RCL "#YDIFF"
10354 RCL "#XDIFF"
10355 "_  #IT |Ydiff| "
10356 ├"|Xdiff|"
10357 PROMPT
10358 GTO 73
10359▸LBL 01
10360 X>0?
10361 STO "#IT"
10362 GTO 73
10363▸LBL 02
10364 X≥0?
10365 STO "#XDIFF"
10366 GTO 73
10367▸LBL 03
10368 X≥0?
10369 STO "#YDIFF"
10370 GTO 73
10371▸LBL 04
10372 -1
10373 RCL "#PRTYN"
10374 1
10375 -
10376 X<Y?
10377 1
10378 STO "#PRTYN"
10379 GTO 73
10380▸LBL 05
10381 4
10382 RCL "#MULT"
10383 1
10384 +
10385 X>Y?
10386 LASTX
10387 STO "#MULT"
10388 GTO 73
10389▸LBL 06
10390 FS? 64
10391 XEQ 96
10392 GTO 72
10393▸LBL 74
10394 "BAIRSTOW or"
10395 "LAG, NEW, etc."
10396 STO "XP"
10397 INDEX "PAI"
10398 RCLEL
10399 INDEX "PWI"
10400 RCLEL
10401 X=Y?
10402 CLV "PXI=0"
10403 INDEX "PFI"
10404 J-
10405 RCLIJ
10406 2
10407 -
10408 6
10409 DIM "PXI=0"
10410 CLX
10411 STO "#CNT"
10412 "BAIR"
10413 ASTO ST X
10414 RCL "#METHOD"
10415 X≠Y?
10416 GTO 08
10417 INDEX "PAI"
10418 RCLEL
10419 INDEX "PWI"
10420 RCLEL
10421 X=Y?
10422 CLV "PXI=0"
10423 INDEX "PAI"
10424 J-
10425 RCLIJ
10426 2
10427 -
10428 6
10429 DIM "PXI=0"
10430 RCL "#ST-T"
10431 RCL "#ST-Z"
10432 RCL "#ST-Y"
10433 RCL "#ST-X"
10434 CLMENU
10435 CLA
10436 ARCL "#L-B-V"
10437 KEY 1 GTO 01
10438 "p;q"
10439 KEY 2 GTO 02
10440 "X1;X2"
10441 KEY 3 GTO 03
10442 "auto"
10443 KEY 4 GTO 04
10444 "PARA"
10445 KEY 5 GTO 75
10446 "BACK"
10447 KEY 6 GTO 05
10448 " "
10449 KEY 7 GTO 74
10450 KEY 8 GTO 74
10451 KEY 9 GTO 98
10452 MENU
10453 "INPUT: "
10454 ├"Startwerte"
10455 ├"     "
10456 INDEX "PAI"
10457 RCLEL
10458 STO ST Y
10459 INDEX "PWI"
10460 RCLEL
10461 -
10462 ├"… "
10463 AIP
10464 X<>Y
10465 ├" von "
10466 AIP
10467 ├" berechnet"
10468 CLST
10469 PROMPT
10470 GTO 74
10471▸LBL 01
10472 CLA
10473 ARCL "#L-B-V"
10474 ALENG
10475 3
10476 X=Y?
10477 "BAIR"
10478 X≠Y?
10479 "LIN"
10480 ASTO "#L-B-V"
10481 GTO 74
10482▸LBL 02
10483 CPX?
10484 GTO 74
10485 STO "#Q"
10486 X<>Y
10487 CPX?
10488 GTO 74
10489 STO "#P"
10490 GTO 76
10491▸LBL 03
10492 CPX?
10493 GTO 03
10494 STO ST Z
10495 X<>Y
10496 CPX?
10497 GTO 74
10498 STO× ST Z
10499 +
10500 +/-
10501 STO "#P"
10502 X<>Y
10503 STO "#Q"
10504 GTO 76
10505▸LBL 03
10506 REAL?
10507 GTO 74
10508 ENTER
10509 COMPLEX
10510 +/-
10511 COMPLEX
10512 STO ST Z
10513 X<>Y
10514 STO× ST Z
10515 +
10516 COMPLEX
10517 R↓
10518 +/-
10519 STO "#P"
10520 X<>Y
10521 COMPLEX
10522 X<>Y
10523 STO "#Q"
10524 GTO 76
10525▸LBL 04
10526 INDEX "PWI"
10527 J-
10528 RCLEL
10529 STO "#A0"
10530 J-
10531 RCLEL
10532 STO "#A1"
10533 J-
10534 RCLEL
10535 STO "#A2"
10536 INDEX "PWI"
10537 J+
10538 RCLEL
10539 STO "#An"
10540 X≠0?
10541 1/X
10542 STO× ST Z
10543 ×
10544 STO "#Q"
10545 X<>Y
10546 STO "#P"
10547 RCL "#L-B-V"
10548 LENGTH
10549 4
10550 X=Y?
10551 GTO 76
10552 RCL "#A1"
10553 RCL "#A2"
10554 X=0?
10555 10↑X
10556 ÷
10557 STO "#P"
10558 RCL "#A0"
10559 RCL "#A2"
10560 X=0?
10561 10↑X
10562 ÷
10563 STO "#Q"
10564 GTO 76
10565▸LBL 05
10566 INDEX "PWI"
10567 RCLEL
10568 X≠0?
10569 GTO 72
10570 CLV "#MSG"
10571 GTO 10
10572▸LBL 75
10573 "BAIRSTOW PARAM."
10574 FC? 64
10575 GTO 01
10576 XEQ 95
10577 GTO 74
10578▸LBL 01
10579 SF 25
10580 RCL "#dP"
10581 FC? 25
10582 1ᴇ-10
10583 STO "#dP"
10584 SF 25
10585 RCL "#dQ"
10586 FC? 25
10587 1ᴇ-10
10588 STO "#dQ"
10589 SF 25
10590 RCL "#dB0B1"
10591 FC? 25
10592 1ᴇ-10
10593 STO "#dB0B1"
10594 "#IT"
10595 KEY 1 GTO 01
10596 "dp;dq"
10597 KEY 2 GTO 02
10598 "dBoB1"
10599 KEY 3 GTO 03
10600 CLA
10601 "PRT"
10602 RCL "#PRTYN"
10603 X>0?
10604 ├"+"
10605 X=0?
10606 ├"0"
10607 X<0?
10608 ├"-"
10609 KEY 4 GTO 04
10610 CLA
10611 "ALL"
10612 RCL "#nROOTS"
10613 X>0?
10614 "1"
10615 KEY 5 GTO 05
10616 "BACK"
10617 KEY 6 GTO 06
10618 KEY 7 GTO 75
10619 KEY 8 GTO 75
10620 KEY 9 GTO 98
10621 "#IT  dp  dq  "
10622 ├"|B0|+|B1|"
10623 RCL "#IT"
10624 RCL "#dP"
10625 RCL "#dQ"
10626 RCL "#dB0B1"
10627 MENU
10628 PROMPT
10629 GTO 75
10630▸LBL 01
10631 X≤0?
10632 GTO 75
10633 IP
10634 STO "#IT"
10635 GTO 75
10636▸LBL 02
10637 X<0?
10638 GTO 02
10639 STO "#dQ"
10640▸LBL 02
10641 X<>Y
10642 X<0?
10643 GTO 75
10644 STO "#dP"
10645 GTO 75
10646▸LBL 03
10647 X<0?
10648 GTO 75
10649 STO "#dB0B1"
10650 GTO 75
10651▸LBL 04
10652 -1
10653 RCL "#PRTYN"
10654 1
10655 -
10656 X<Y?
10657 1
10658 STO "#PRTYN"
10659 GTO 75
10660▸LBL 05
10661 1
10662 RCL "#nROOTS"
10663 -
10664 STO "#nROOTS"
10665 GTO 75
10666▸LBL 06
10667 FS? 64
10668 XEQ 95
10669 GTO 74
10670▸LBL 76
10671 "CALC BAIR: P;Q"
10672 RCL "#PRTYN"
10673 X≤0?
10674 GTO 02
10675 RCL "#CNT"
10676 X>0?
10677 GTO 01
10678 INDEX "PAI"
10679 RCLEL
10680 INDEX "PWI"
10681 RCLEL
10682 X≠Y?
10683 GTO 01
10684 ADV
10685 "VERF.: "
10686 ARCL "#L-B-V"
10687 PRA
10688 "Y(X) = "
10689 ARCL "FKT-SEL"
10690 ├"(X)"
10691 PRA
10692 PRV "#METHOD"
10693▸LBL 01
10694 ADV
10695 "#CNT: i="
10696 RCL "#CNT"
10697 AIP
10698 ├"  "
10699 ARCL "#L-B-V"
10700 PRA
10701 "|Bo|+|B1| = "
10702 SF 25
10703 RCL "#B0"
10704 ABS
10705 SF 25
10706 RCL "#B1"
10707 ABS
10708 +
10709 FC? 25
10710 ├"nd"
10711 FS? 25
10712 ARCL ST X
10713 PRA
10714 "|dp|+|dq| = "
10715 SF 25
10716 RCL "#Pd"
10717 ABS
10718 SF 25
10719 RCL "#Qd"
10720 ABS
10721 +
10722 FC? 25
10723 ├"nd"
10724 FS? 25
10725 ARCL ST X
10726 PRA
10727 PRV "#P"
10728 PRV "#Q"
10729▸LBL 02
10730 INDEX "PWI"
10731 RCL "#IT"
10732 RCL "#CNT"
10733 1
10734 +
10735 X>Y?
10736 GTO 03
10737 STO "#CNT"
10738 3
10739 RCLEL
10740 X<Y?
10741 GTO 24
10742 1
10743 -
10744 STO "#GRAD"
10745 STO "#A2"
10746 STO "#B2"
10747 STO "#B3"
10748 STO "#C2"
10749 STO "#C3"
10750 J+
10751 RCLEL
10752 STO "#A1"
10753 STO "#B1"
10754 STO "#C1"
10755 J+
10756 RCLEL
10757 X<>Y
10758 RCL "#P"
10759 ×
10760 -
10761 STO "#A0"
10762 STO "#B0"
10763 RCL "#C1"
10764 RCL "#P"
10765 ×
10766 -
10767 STO "#C0"
10768▸LBL 77
10769 J+
10770 RCLEL
10771 X<> "#A0"
10772 X<> "#A1"
10773 X<> "#A2"
10774 RCL "#A0"
10775 RCL "#B0"
10776 RCL "#P"
10777 ×
10778 -
10779 RCL "#B1"
10780 RCL "#Q"
10781 ×
10782 -
10783 X<> "#B0"
10784 X<> "#B1"
10785 X<> "#B2"
10786 X<> "#B3"
10787 RCL "#B0"
10788 RCL "#C0"
10789 RCL "#P"
10790 ×
10791 -
10792 RCL "#C1"
10793 RCL "#Q"
10794 ×
10795 -
10796 X<> "#C0"
10797 X<> "#C1"
10798 X<> "#C2"
10799 X<> "#C3"
10800 DSE "#GRAD"
10801 GTO 77
10802 RCL "#L-B-V"
10803 LENGTH
10804 3
10805 X=Y?
10806 GTO 01
10807 RCL "#C2"
10808 X↑2
10809 RCL "#C1"
10810 RCL "#C3"
10811 ×
10812 -
10813 X=0?
10814 1ᴇ-4
10815 1/X
10816 STO "#C0"
10817 RCL "#B0"
10818 RCL "#C3"
10819 ×
10820 RCL "#B1"
10821 RCL "#C2"
10822 ×
10823 -
10824 ×
10825 STO "#Pd"
10826 RCL "#P"
10827 STO "#Palt"
10828 X<>Y
10829 -
10830 STO "#P"
10831 RCL "#Q"
10832 STO "#Qalt"
10833 RCL "#B1"
10834 RCL "#C1"
10835 ×
10836 RCL "#B0"
10837 RCL "#C2"
10838 ×
10839 -
10840 RCL "#C0"
10841 ×
10842 STO "#Qd"
10843 -
10844 STO "#Q"
10845 CLST
10846 SF 25
10847 RCL "#Xn+1"
10848 SF 25
10849 RCL "#N-IT"
10850 +
10851 X>0?
10852 RTN
10853 RCL "#P"
10854 RCL "#Palt"
10855 -
10856 ABS
10857 RCL "#Q"
10858 RCL "#Qalt"
10859 -
10860 ABS
10861 +
10862 X=0?
10863 GTO 02
10864 CLST
10865 RCL "#Pd"
10866 ABS
10867 RCL "#dP"
10868 X≥Y?
10869 ISG ST Z
10870 X<>Y
10871 R↓
10872 R↓
10873 RCL "#Qd"
10874 ABS
10875 RCL "#dQ"
10876 X≥Y?
10877 ISG ST Z
10878 X<>Y
10879 R↓
10880 R↓
10881 RCL "#B0"
10882 RCL "#C1"
10883 RCL "#P"
10884 ×
10885 -
10886 RCL "#C2"
10887 RCL "#Q"
10888 ×
10889 -
10890 STO "#C0"
10891 RCL "#B0"
10892 ABS
10893 RCL "#B1"
10894 ABS
10895 +
10896 RCL "#dB0B1"
10897 X≥Y?
10898 ISG ST T
10899 X<>Y
10900 R↑
10901 3
10902 X≠Y?
10903 GTO 76
10904 GTO 02
10905▸LBL 01
10906 "LIN-SCHRITT"
10907 RCL "#A2"
10908 X=0?
10909 0.1
10910 STO "#A2"
10911 RCL "#B2"
10912 X=0?
10913 0.1
10914 STO "#B2"
10915 RCL "#A1"
10916 RCL "#A0"
10917 RCL "#B3"
10918 ×
10919 RCL "#B2"
10920 SF 25
10921 1/X
10922 ×
10923 -
10924 RCL "#B2"
10925 SF 25
10926 1/X
10927 ×
10928 RCL "#P"
10929 STO "#Palt"
10930 X<>Y
10931 STO "#P"
10932 -
10933 ABS
10934 STO "#Pd"
10935 RCL "#A0"
10936 RCL "#B2"
10937 SF 25
10938 1/X
10939 ×
10940 RCL "#Q"
10941 STO "#Qalt"
10942 X<>Y
10943 STO "#Q"
10944 -
10945 ABS
10946 STO "#Qd"
10947 CLST
10948 SF 25
10949 RCL "#Xn+1"
10950 SF 25
10951 RCL "#N-IT"
10952 +
10953 X>0?
10954 RTN
10955 RCL "#P"
10956 RCL "#Palt"
10957 -
10958 ABS
10959 RCL "#Q"
10960 RCL "#Qalt"
10961 -
10962 ABS
10963 +
10964 X=0?
10965 GTO 02
10966 CLST
10967 RCL "#Pd"
10968 ABS
10969 RCL "#dP"
10970 X≥Y?
10971 ISG ST Z
10972 X<>Y
10973 R↓
10974 R↓
10975 RCL "#Qd"
10976 ABS
10977 RCL "#dQ"
10978 X≥Y?
10979 ISG ST Z
10980 X<>Y
10981 R↓
10982 R↓
10983 RCL "#B0"
10984 ABS
10985 RCL "#B1"
10986 ABS
10987 +
10988 RCL "#dB0B1"
10989 X≥Y?
10990 ISG ST Z
10991 X<>Y
10992 R↓
10993 R↓
10994 3
10995 X≠Y?
10996 GTO 76
10997▸LBL 02
10998 RCL "#PRTYN"
10999 X≤0?
11000 GTO 02
11001 ADV
11002 "#CNT: i="
11003 RCL "#CNT"
11004 AIP
11005 ├"  "
11006 ARCL "#L-B-V"
11007 PRA
11008 "|Bo|+|B1| = "
11009 SF 25
11010 RCL "#B0"
11011 ABS
11012 SF 25
11013 RCL "#B1"
11014 ABS
11015 +
11016 FC? 25
11017 ├"nd"
11018 FS? 25
11019 ARCL ST X
11020 PRA
11021 "|dp|+|dq| = "
11022 SF 25
11023 RCL "#Pd"
11024 ABS
11025 SF 25
11026 RCL "#Qd"
11027 ABS
11028 +
11029 FC? 25
11030 ├"nd"
11031 FS? 25
11032 ARCL ST X
11033 PRA
11034 PRV "#P"
11035 PRV "#Q"
11036▸LBL 02
11037 "           "
11038 ├"           "
11039 INDEX "PAI"
11040 RCLEL
11041 STO ST Y
11042 INDEX "PWI"
11043 RCLEL
11044 -
11045 ├"…"
11046 AIP
11047 X<>Y
11048 ├" von "
11049 AIP
11050 ├"berechnet"
11051 PROFF
11052 AVIEW
11053 PRON
11054 GTO 78
11055▸LBL 03
11056 CLMENU
11057 "OK"
11058 KEY 1 GTO 78
11059 "M"
11060 KEY 2 GTO 74
11061 "E"
11062 KEY 3 GTO 74
11063 "N"
11064 KEY 4 GTO 74
11065 "U"
11066 KEY 5 GTO 74
11067 "END"
11068 KEY 6 GTO 10
11069 KEY 7 GTO 74
11070 KEY 8 GTO 74
11071 KEY 9 GTO 10
11072 "#CNT = max(IT)"
11073 ├"     R/S"
11074 ├"0 #CNT |B0+B"
11075 ├"1| |dP+dQ|"
11076 RCL "#CNT"
11077 RCL "#B0"
11078 ABS
11079 RCL "#B1"
11080 ABS
11081 +
11082 RCL "#Pd"
11083 ABS
11084 RCL "#Qd"
11085 ABS
11086 +
11087 0
11088 R↓
11089 PROMPT
11090▸LBL 78
11091 "BAIR RESULT"
11092 CLMENU
11093 RCL "#P"
11094 2
11095 ÷
11096 +/-
11097 ENTER
11098 ENTER
11099 X↑2
11100 RCL "#Q"
11101 -
11102 SQRT
11103 STO- ST Z
11104 +
11105 STO "#X1"
11106 X<>Y
11107 STO "#X2"
11108 STO "XP"
11109 INDEX "PWI"
11110 RCLEL
11111 STO "#GRAD"
11112 CLST
11113 XEQ 21
11114 STO "#Y2"
11115 RCL "#X1"
11116 STO "XP"
11117 INDEX "PWI"
11118 RCLEL
11119 STO "#GRAD"
11120 CLST
11121 XEQ 21
11122 STO "#Y1"
11123 RCL "#nROOTS"
11124 X=0?
11125 GTO 06
11126 CLX
11127 SF 25
11128 RCL "#Xn+1"
11129 X>0?
11130 GTO 04
11131 CLX
11132 SF 25
11133 RCL "#N-IT"
11134 X>0?
11135 GTO 05
11136 "#CNT   |dp+dq|"
11137 ├"   p   q"
11138 ├"             "
11139 ├"     R/S"
11140 XASTO "#MSG"
11141 RCL "#CNT"
11142 RCL "#Pd"
11143 ABS
11144 RCL "#Qd"
11145 ABS
11146 +
11147 RCL "#P"
11148 RCL "#Q"
11149 "SHOW"
11150 KEY 1 GTO 01
11151 "PRT"
11152 KEY 2 XEQ 03
11153 "pq+1"
11154 KEY 3 GTO 04
11155 "N-IT"
11156 KEY 4 GTO 05
11157 "Y/pq"
11158 KEY 5 GTO 06
11159 "BACK"
11160 KEY 6 GTO 07
11161 KEY 7 GTO 78
11162 KEY 8 GTO 78
11163 KEY 9 GTO 98
11164 CLA
11165 ARCL "#MSG"
11166 MENU
11167 PROMPT
11168 GTO 02
11169▸LBL 01
11170 22
11171 STO "#LDSP"
11172 "p="
11173 RCL "#P"
11174 AIP
11175 ├","
11176 ABS
11177 STO ST Y
11178 XEQ 86
11179 XEQ 87
11180 44
11181 STO "#LDSP"
11182 ├"q="
11183 RCL "#Q"
11184 AIP
11185 ├","
11186 ABS
11187 STO ST Y
11188 XEQ 86
11189 RCL "#CNT"
11190 RCL "#Pd"
11191 ABS
11192 RCL "#Qd"
11193 ABS
11194 +
11195 RCL "#P"
11196 RCL "#Q"
11197 MENU
11198 PROMPT
11199 GTO 02
11200▸LBL 01
11201 GTO 78
11202▸LBL 02
11203 RCL "#Y2"
11204 RCL "#Y1"
11205 RCL "#X2"
11206 RCL "#X1"
11207 "Y(X2)  Y(X1)  "
11208 ├"X2  X1"
11209 MENU
11210 PROMPT
11211 GTO 78
11212▸LBL 01
11213 22
11214 STO "#LDSP"
11215 INDEX "PAI"
11216 RCLEL
11217 INDEX "PWI"
11218 RCLEL
11219 -
11220 1
11221 +
11222 STO "#NR"
11223 "X"
11224 AIP
11225 ├"="
11226 RCL "#X1"
11227 CPX?
11228 "Xre="
11229 0
11230 ENTER
11231 COMPLEX
11232 +
11233 COMPLEX
11234 X<>Y
11235 AIP
11236 ├","
11237 ABS
11238 STO ST Y
11239 XEQ 86
11240 XASTO "###"
11241 "X"
11242 RCL "#NR"
11243 1
11244 +
11245 AIP
11246 ├"="
11247 RCL "#X2"
11248 CPX?
11249 "Xim="
11250 0
11251 ENTER
11252 COMPLEX
11253 +
11254 COMPLEX
11255 ABS
11256 X=0?
11257 R↓
11258 AIP
11259 ├","
11260 ABS
11261 STO ST Y
11262 XEQ 86
11263 XEQ 87
11264 ARCL "###"
11265 CLV "###"
11266 RCL "#Y2"
11267 RCL "#Y1"
11268 RCL "#X2"
11269 RCL "#X1"
11270 MENU
11271 PROMPT
11272▸LBL 01
11273 GTO 78
11274▸LBL 03
11275 ADV
11276 "#CNT: i="
11277 RCL "#CNT"
11278 AIP
11279 ├"  "
11280 ARCL "#L-B-V"
11281 PRA
11282 "|B0|+|B1| = "
11283 RCL "#B0"
11284 ABS
11285 RCL "#B1"
11286 ABS
11287 +
11288 ARCL ST X
11289 PRA
11290 "|dP|+|dQ| = "
11291 RCL "#Pd"
11292 ABS
11293 RCL "#Qd"
11294 ABS
11295 +
11296 ARCL ST X
11297 PRA
11298 "P "
11299 ASTO ST X
11300 RCL "#P"
11301 STO IND ST Y
11302 FC? 64
11303 PRV IND ST Y
11304 CLV IND ST Y
11305 "Q "
11306 ASTO ST X
11307 RCL "#Q"
11308 STO IND ST Y
11309 FC? 64
11310 PRV IND ST Y
11311 CLV IND ST Y
11312 44
11313 STO "#LDSP"
11314 "P = "
11315 RCL "#P"
11316 AIP
11317 ├","
11318 ABS
11319 STO ST Y
11320 XEQ 86
11321 FS? 64
11322 PRA
11323 "Q = "
11324 RCL "#Q"
11325 AIP
11326 ├","
11327 ABS
11328 STO ST Y
11329 XEQ 86
11330 FS? 64
11331 PRA
11332 ADV
11333 RCL "#X1"
11334 CPX?
11335 FIX 02
11336 INDEX "PAI"
11337 RCLEL
11338 INDEX "PWI"
11339 RCLEL
11340 -
11341 2
11342 +
11343 STO "#NR"
11344 "Y(X"
11345 AIP
11346 ├") = "
11347 ARCL "#Y2"
11348 PRA
11349 "Y(X"
11350 RCL "#NR"
11351 1
11352 -
11353 AIP
11354 ├") = "
11355 ARCL "#Y1"
11356 PRA
11357 FIX 04
11358 RCL "#X2"
11359 CPX?
11360 GTO 03
11361 "X"
11362 RCL "#NR"
11363 AIP
11364 ├" = "
11365 ARCL "#X2"
11366 FC? 64
11367 PRA
11368 "X"
11369 RCL "#NR"
11370 1
11371 -
11372 AIP
11373 ├" = "
11374 ARCL "#X1"
11375 FC? 64
11376 PRA
11377 FC? 64
11378 RTN
11379 44
11380 STO "#LDSP"
11381 "X"
11382 RCL "#NR"
11383 AIP
11384 ├" = "
11385 RCL "#X1"
11386 AIP
11387 ├","
11388 ABS
11389 STO ST Y
11390 XEQ 86
11391 PRA
11392 "X"
11393 RCL "#NR"
11394 1
11395 +
11396 AIP
11397 ├" = "
11398 RCL "#X2"
11399 AIP
11400 ├","
11401 ABS
11402 STO ST Y
11403 XEQ 86
11404 PRA
11405 RTN
11406▸LBL 03
11407 "|Y(X"
11408 RCL "#NR"
11409 1
11410 -
11411 AIP
11412 ├","
11413 1
11414 +
11415 AIP
11416 ├")| = "
11417 RCL "#Y1"
11418 ABS
11419 ARCL ST X
11420 PRA
11421 "X"
11422 RCL "#NR"
11423 1
11424 -
11425 AIP
11426 ├","
11427 1
11428 +
11429 AIP
11430 ├"im = +/- "
11431 RCL "#X1"
11432 COMPLEX
11433 ABS
11434 ARCL ST X
11435 FC? 64
11436 PRA
11437 "X"
11438 RCL "#NR"
11439 1
11440 -
11441 AIP
11442 ├","
11443 1
11444 +
11445 AIP
11446 ├"re = "
11447 RCL "#X1"
11448 COMPLEX
11449 ARCL ST Y
11450 FC? 64
11451 PRA
11452 FC? 64
11453 RTN
11454 44
11455 STO "#LDSP"
11456 "X"
11457 RCL "#NR"
11458 AIP
11459 ├","
11460 1
11461 +
11462 AIP
11463 ├"im = "
11464 RCL "#X1"
11465 COMPLEX
11466 AIP
11467 ├","
11468 ABS
11469 STO ST Y
11470 XEQ 86
11471 PRA
11472 "X"
11473 RCL "#NR"
11474 AIP
11475 ├","
11476 1
11477 +
11478 AIP
11479 ├"re = "
11480 RCL "#X1"
11481 COMPLEX
11482 X<>Y
11483 AIP
11484 ├","
11485 ABS
11486 STO ST Y
11487 XEQ 86
11488 PRA
11489 RTN
11490▸LBL 04
11491 "NEXT P;Q"
11492 FC? 64
11493 1
11494 ENTER
11495 ABS
11496 IP
11497 FS? 64
11498 STO "#Xn+1"
11499 X≠Y?
11500 1
11501 X≤0?
11502 1
11503 STO "#Xn+1"
11504 INDEX "PWI"
11505 RCLEL
11506 1
11507 STO+ "#CNT"
11508 -
11509 STO "#GRAD"
11510 CLX
11511 STO "#CMD"
11512 SF 20
11513 STO "#C2"
11514 STO "#C3"
11515 J+
11516 RCLEL
11517 STO "#B1"
11518 STO "#C1"
11519 J+
11520 RCLEL
11521 X<>Y
11522 RCL "#P"
11523 ×
11524 -
11525 STO "#B0"
11526 RCL "#C1"
11527 RCL "#P"
11528 ×
11529 -
11530 STO "#C0"
11531 XEQ 77
11532 1
11533 STO- "#Xn+1"
11534 RCL "#PRTYN"
11535 X≤0?
11536 GTO 78
11537 ADV
11538 "CNT: i="
11539 RCL "#CNT"
11540 AIP
11541 ├"  "
11542 ARCL "#L-B-V"
11543 PRA
11544 "|B0|+|B1| = "
11545 SF 25
11546 RCL "#B0"
11547 ABS
11548 SF 25
11549 RCL "#B1"
11550 ABS
11551 +
11552 FC? 25
11553 ├"nd"
11554 FS? 25
11555 ARCL ST X
11556 PRA
11557 "|dP|+|dQ| = "
11558 SF 25
11559 RCL "#Pd"
11560 ABS
11561 SF 25
11562 RCL "#Qd"
11563 ABS
11564 +
11565 FC? 25
11566 ├"nd"
11567 FS? 25
11568 ARCL ST X
11569 PRA
11570 PRV "#P"
11571 PRV "#Q"
11572 GTO 78
11573▸LBL 05
11574 "N-IT: P;Q"
11575 FC? 64
11576 1
11577 ENTER
11578 ABS
11579 IP
11580 FS? 64
11581 STO "#N-IT"
11582 X≠Y?
11583 1
11584 X≤0?
11585 1
11586 STO "#N-IT"
11587 INDEX "PAI"
11588 RCLEL
11589 1
11590 STO+ "#CNT"
11591 -
11592 STO "#GRAD"
11593 CLX
11594 STO "#CMD"
11595 SF 20
11596 STO "#C2"
11597 STO "#C3"
11598 J+
11599 RCLEL
11600 STO "#B1"
11601 STO "#C1"
11602 J+
11603 RCLEL
11604 X<>Y
11605 RCL "#P"
11606 ×
11607 -
11608 STO "#B0"
11609 RCL "#C1"
11610 RCL "#P"
11611 ×
11612 -
11613 STO "#C0"
11614 XEQ 77
11615 1
11616 STO- "#N-IT"
11617 RCL "#PRTYN"
11618 X≤0?
11619 GTO 78
11620 ADV
11621 "#CNT: i="
11622 RCL "#CNT"
11623 AIP
11624 ├"  "
11625 ARCL "#L-B-V"
11626 PRA
11627 "|B0|+|B1| = "
11628 SF 25
11629 RCL "#B0"
11630 ABS
11631 SF 25
11632 RCL "#B1"
11633 ABS
11634 +
11635 FC? 25
11636 ├"nd"
11637 FS? 25
11638 ARCL ST X
11639 PRA
11640 "|dP|+|dQ| = "
11641 SF 25
11642 RCL "#Pd"
11643 ABS
11644 SF 25
11645 RCL "#Qd"
11646 ABS
11647 +
11648 FC? 25
11649 ├"nd"
11650 FS? 25
11651 ARCL ST X
11652 PRA
11653 PRV "#P"
11654 PRV "#Q"
11655 GTO 78
11656▸LBL 06
11657 XEQ 47
11658 CLX
11659 STO "#CNT"
11660 RCL "#nROOTS"
11661 X=0?
11662 GTO 76
11663 RCL "#X2"
11664 STO "#ST-T"
11665 RCL "#X1"
11666 STO "#ST-Z"
11667 RCL "#P"
11668 STO "#ST-Y"
11669 RCL "#Q"
11670 STO "#ST-X"
11671 "X2     X1   "
11672 ├"  p     q"
11673 XASTO "#MSG"
11674 GTO 74
11675▸LBL 07
11676 CLV "#B0"
11677 CLV "#B1"
11678 CLV "#Pd"
11679 CLV "#Qd"
11680 CLV "#Palt"
11681 CLV "#Qalt"
11682 RCL "#X2"
11683 STO "#ST-T"
11684 RCL "#X1"
11685 STO "#ST-Z"
11686 RCL "#P"
11687 STO "#ST-Y"
11688 RCL "#Q"
11689 STO "#ST-X"
11690 "X2     X1   "
11691 ├"  p     q"
11692 XASTO "#MSG"
11693 GTO 74
11694▸LBL 08
11695 "extrn"
11696 ASTO ST X
11697 RCL "#METHOD"
11698 X≠Y?
11699 GTO 79
11700 TIME
11701 STO "P0"
11702 DATE
11703 STO "P1"
11704 +
11705 STO "P2"
11706 1
11707 +
11708 STO "P3"
11709 1/X
11710 X<> "XP"
11711 STO "P4"
11712 RCL "P0"
11713 STO "F0"
11714 RCL "XP"
11715 STO "XF"
11716 SF 25
11717 XEQ IND "#extrn"
11718 RCL "P4"
11719 STO "XP"
11720 FS? 25
11721 GTO 79
11722 "PROG-NAME ?"
11723 "externer "
11724 ├"PRGM-Name ?"
11725 AON
11726 PROMPT
11727 AOFF
11728 XASTO "#extrn"
11729 ALENG
11730 7
11731 X<Y?
11732 GTO 72
11733 TIME
11734 STO "P0"
11735 DATE
11736 STO "P1"
11737 +
11738 STO "P2"
11739 1
11740 +
11741 STO "P3"
11742 1/X
11743 X<> "XP"
11744 STO "P4"
11745 RCL "P0"
11746 STO "F0"
11747 RCL "XP"
11748 STO "XF"
11749 SF 25
11750 XEQ IND "#extrn"
11751 RCL "P4"
11752 STO "XP"
11753 FC? 25
11754 GTO 72
11755 INDEX "PWI"
11756 RCLEL
11757 STO "GRAD"
11758▸LBL 79
11759 "CALCULATE:"
11760 "PFI  = PWI"
11761 "PFI1 = PWI'"
11762 "PFI2 = PWI''"
11763 "PFI3 = PWI'''"
11764 CLX
11765 STO "#CNT"
11766 INDEX "PWI"
11767 3
11768 RCLEL
11769 X<Y?
11770 GTO 24
11771 RCL "PWI"
11772 STO "PFI"
11773 STO "PFI1"
11774 INDEX "PFI1"
11775 RCLEL
11776 STO "#GRAD"
11777 J-
11778 RCLIJ
11779 1
11780 -
11781 2
11782 X>Y?
11783 X<>Y
11784 R↓
11785 DIM "PFI1"
11786 XEQ 15
11787 RCL "PFI1"
11788 STO "PFI2"
11789 INDEX "PFI2"
11790 RCLEL
11791 STO "#GRAD"
11792 J-
11793 RCLIJ
11794 1
11795 -
11796 2
11797 X>Y?
11798 X<>Y
11799 R↓
11800 DIM "PFI2"
11801 XEQ 15
11802 RCL "PFI2"
11803 STO "PFI3"
11804 INDEX "PFI3"
11805 RCLEL
11806 STO "#GRAD"
11807 J-
11808 RCLIJ
11809 1
11810 -
11811 2
11812 X>Y?
11813 X<>Y
11814 R↓
11815 DIM "PFI3"
11816 XEQ 15
11817 RCL "XP"
11818▸LBL 80
11819 "SOLVE: PWI=0"
11820 1ᴇ100
11821 RCL "XP"
11822 ABS
11823 X>Y?
11824 GTO 03
11825 RCL "XP"
11826 XEQ 90
11827 STO "XP"
11828 ENTER
11829 X≠Y?
11830 GTO 03
11831 RCL "XP"
11832 STO "Xn"
11833 STO "#XLAGa"
11834 STO "#XLAGb"
11835 STO "#XLAGna"
11836 STO "#XLAGnb"
11837 STO "#XNwtn"
11838 STO "#XNwtnn"
11839 STO "#XCHEB"
11840 STO "#XCHEBn"
11841 STO "#XHALL"
11842 STO "#XHALLn"
11843 STO "#XOSTR"
11844 STO "#XOSTRn"
11845 STO "#XBSCP"
11846 STO "#XBSCPn"
11847 STO "#XSKOW"
11848 STO "#XSKOWn"
11849 STO "#XKOE"
11850 STO "#XKOEn"
11851 STO "#Xextrn"
11852 INDEX "PFI"
11853 RCLEL
11854 STO "#GRAD"
11855 CLST
11856 XEQ 21
11857 STO "P0"
11858 XEQ 90
11859 STO "P0"
11860 RCL "#PRTYN"
11861 X>0?
11862 XEQ 08
11863 1ᴇ1000
11864 RCL "P0"
11865 ABS
11866 X>Y?
11867 GTO 03
11868 ENTER
11869 X≠Y?
11870 GTO 03
11871 X=0?
11872 GTO 81
11873 INDEX "PFI1"
11874 RCLEL
11875 STO "#GRAD"
11876 CLST
11877 XEQ 21
11878 STO "P1"
11879 XEQ 90
11880 STO "P1"
11881 ABS
11882 1ᴇ1000
11883 X<>Y
11884 X>Y?
11885 GTO 03
11886 ENTER
11887 X≠Y?
11888 GTO 03
11889 INDEX "PFI2"
11890 RCLEL
11891 STO "#GRAD"
11892 CLST
11893 XEQ 21
11894 STO "P2"
11895 XEQ 90
11896 STO "P2"
11897 ABS
11898 1ᴇ1000
11899 X<>Y
11900 X>Y?
11901 GTO 03
11902 ENTER
11903 X≠Y?
11904 GTO 03
11905 RCL "P2"
11906 RCL "P1"
11907 ABS
11908 X≠0?
11909 GTO 01
11910 RCL "P0"
11911 RCL "P2"
11912 ×
11913 STO+ ST X
11914 +/-
11915 REAL?
11916 ABS
11917 SQRT
11918 RCL "P2"
11919 SF 25
11920 1/X
11921 FC? 25
11922 CLX
11923 ×
11924 RCL "XP"
11925 0
11926 ENTER
11927 COMPLEX
11928 +
11929 COMPLEX
11930 R↓
11931 SIGN
11932 ×
11933 1
11934 LASTX
11935 ×
11936 X<>Y
11937 ABS
11938 LASTX
11939 X<>Y
11940 X=0?
11941 R↓
11942 R↓
11943 STO+ "XP"
11944 GTO 80
11945▸LBL 01
11946 INDEX "PFI3"
11947 RCLEL
11948 STO "#GRAD"
11949 CLST
11950 XEQ 21
11951 STO "P3"
11952 XEQ 90
11953 STO "P3"
11954 ABS
11955 1ᴇ1000
11956 X<>Y
11957 X>Y?
11958 GTO 03
11959 ENTER
11960 X≠Y?
11961 GTO 03
11962 INDEX "PFI"
11963 RCLEL
11964 STO "#GRAD"
11965 RCL "P1"
11966 X↑2
11967 RCL "P0"
11968 RCL "P2"
11969 ×
11970 -
11971 SF 25
11972 1/X
11973 RCL "P1"
11974 X↑2
11975 ×
11976 0.2
11977 +
11978 0
11979 ENTER
11980 COMPLEX
11981 +
11982 COMPLEX
11983 X<>Y
11984 IP
11985 STO "#M"
11986 RCL "P2"
11987 X↑2
11988 RCL "P1"
11989 RCL "P3"
11990 ×
11991 -
11992 SF 25
11993 1/X
11994 RCL "P2"
11995 X↑2
11996 ×
11997 1.2
11998 +
11999 0
12000 ENTER
12001 COMPLEX
12002 +
12003 COMPLEX
12004 X<>Y
12005 IP
12006 STO+ "#M"
12007 RCL "P1"
12008 X↑2
12009 STO+ ST X
12010 RCL "P0"
12011 RCL "P2"
12012 ×
12013 3
12014 ×
12015 -
12016 RCL "P1"
12017 ×
12018 RCL "P0"
12019 X↑2
12020 RCL "P3"
12021 ×
12022 +
12023 X↑2
12024 SF 25
12025 1/X
12026 STO+ ST X
12027 RCL "P1"
12028 X↑2
12029 RCL "P0"
12030 RCL "P2"
12031 ×
12032 -
12033 3
12034 Y↑X
12035 ×
12036 0.2
12037 +
12038 0
12039 ENTER
12040 COMPLEX
12041 +
12042 COMPLEX
12043 X<>Y
12044 IP
12045 "STO+ #M"
12046 RCL "#M"
12047 "3"
12048 2
12049 ÷
12050 1
12051 X<Y?
12052 X<>Y
12053 RCL "#GRAD"
12054 X>Y?
12055 X<>Y
12056 STO "#M"
12057 STO "#m"
12058 2
12059 RCL "#MULT"
12060 1
12061 -
12062 SF 25
12063 X=Y?
12064 STO÷ "#M"
12065 1
12066 RCL "#MULT"
12067 X=Y?
12068 STO "#M"
12069 2
12070 RCL "#M"
12071 2
12072 RCL "#MULT"
12073 X≠Y?
12074 R↑
12075 R↑
12076 RCL "#M"
12077 X>Y?
12078 X<>Y
12079 1
12080 X<>Y
12081 X<Y?
12082 X<>Y
12083 STO "#M"
12084 RCL "P1"
12085 X↑2
12086 RCL "#GRAD"
12087 1
12088 -
12089 ×
12090 RCL "P0"
12091 RCL "P2"
12092 ×
12093 RCL "#GRAD"
12094 ×
12095 -
12096 RCL "#GRAD"
12097 1
12098 -
12099 ×
12100 RCL "#XDIFF"
12101 X<>Y
12102 ABS
12103 X≤Y?
12104 CLX
12105 X≠0?
12106 LASTX
12107 SQRT
12108 RCL "P1"
12109 0
12110 ENTER
12111 COMPLEX
12112 +
12113 COMPLEX
12114 R↓
12115 SIGN
12116 ×
12117 STO "#√"
12118 RCL "P1"
12119 +
12120 SF 25
12121 1/X
12122 RCL "P0"
12123 ×
12124 RCL "#GRAD"
12125 ×
12126 STO- "#XLAGa"
12127 RCL "#XLAGa"
12128 STO "#XLAG"
12129 STO "#XAuto"
12130 STO "XP"
12131 INDEX "PFI"
12132 RCLEL
12133 STO "#GRAD"
12134 CLST
12135 XEQ 21
12136 STO "#YLAGa"
12137 STO "#YLAG"
12138 STO "#YAuto"
12139 INDEX "PFI"
12140 RCLEL
12141 STO "#GRAD"
12142 RCL "#√"
12143 0
12144 ENTER
12145 COMPLEX
12146 +
12147 COMPLEX
12148 +/-
12149 X=0?
12150 GTO 01
12151 COMPLEX
12152 RCL "P1"
12153 +
12154 SF 25
12155 1/X
12156 RCL "P0"
12157 ×
12158 RCL "#GRAD"
12159 ×
12160 STO- "#XLAGb"
12161 RCL "#XLAGb"
12162 STO "XP"
12163 INDEX "PFI"
12164 RCLEL
12165 STO "#GRAD"
12166 CLST
12167 XEQ 21
12168 STO "#YLAGb"
12169 RCL "#XLAGa"
12170 RCL "#XLAGb"
12171 RCL "#YLAGa"
12172 ABS
12173 RCL "#YLAGb"
12174 ABS
12175 X<Y?
12176 R↑
12177 R↑
12178 STO "#XLAG"
12179 STO "#XAuto"
12180 RCL "#YLAGa"
12181 RCL "#YLAGb"
12182 RCL "#YLAGa"
12183 ABS
12184 RCL "#YLAGb"
12185 ABS
12186 X<Y?
12187 R↑
12188 R↑
12189 STO "#YLAG"
12190 STO "#YAuto"
12191▸LBL 01
12192 CLV "#XLAGa"
12193 CLV "#XLAGb"
12194 CLV "#YLAGa"
12195 CLV "#YLAGb"
12196 INDEX "PFI"
12197 RCLEL
12198 STO "#GRAD"
12199 RCL "P1"
12200 X↑2
12201 RCL "#GRAD"
12202 1
12203 -
12204 ×
12205 RCL "P0"
12206 RCL "P2"
12207 ×
12208 RCL "#GRAD"
12209 ×
12210 -
12211 RCL "#GRAD"
12212 RCL "#M"
12213 SF 25
12214 1/X
12215 ×
12216 1
12217 -
12218 ×
12219 RCL "#XDIFF"
12220 X<>Y
12221 ABS
12222 X≤Y?
12223 CLX
12224 X≠0?
12225 LASTX
12226 SQRT
12227 RCL "P1"
12228 0
12229 ENTER
12230 COMPLEX
12231 +
12232 COMPLEX
12233 R↓
12234 SIGN
12235 ×
12236 STO "#√"
12237 RCL "P1"
12238 +
12239 SF 25
12240 1/X
12241 RCL "P0"
12242 ×
12243 RCL "#GRAD"
12244 ×
12245 STO- "#XLAGna"
12246 RCL "#XLAGna"
12247 STO "#XLAGn"
12248 STO "XP"
12249 INDEX "PFI"
12250 RCLEL
12251 STO "#GRAD"
12252 CLST
12253 XEQ 21
12254 STO "#YLAGna"
12255 STO "#YLAGn"
12256 INDEX "PFI"
12257 RCLEL
12258 STO "#GRAD"
12259 RCL "#√"
12260 CLV "#√"
12261 0
12262 ENTER
12263 COMPLEX
12264 +
12265 COMPLEX
12266 X=0?
12267 GTO 01
12268 +/-
12269 COMPLEX
12270 RCL "P1"
12271 +
12272 SF 25
12273 1/X
12274 RCL "P0"
12275 ×
12276 RCL "#GRAD"
12277 ×
12278 STO- "#XLAGnb"
12279 RCL "#XLAGnb"
12280 STO "XP"
12281 INDEX "PFI"
12282 RCLEL
12283 STO "#GRAD"
12284 CLST
12285 XEQ 21
12286 STO "#YLAGnb"
12287 RCL "#XLAGna"
12288 RCL "#XLAGnb"
12289 RCL "#YLAGna"
12290 ABS
12291 RCL "#YLAGnb"
12292 ABS
12293 X<Y?
12294 R↑
12295 R↑
12296 STO "#XLAGn"
12297 RCL "#YLAGna"
12298 RCL "#YLAGnb"
12299 RCL "#YLAGna"
12300 ABS
12301 RCL "#YLAGnb"
12302 ABS
12303 X<Y?
12304 R↑
12305 R↑
12306 STO "#YLAGn"
12307▸LBL 01
12308 CLV "#XLAGna"
12309 CLV "#XLAGnb"
12310 CLV "#YLAGna"
12311 CLV "#YLAGnb"
12312 " LAG"
12313 ASTO "#VERF"
12314 INDEX "PFI"
12315 RCLEL
12316 STO "#GRAD"
12317 RCL "#XAuto"
12318 RCL "#XLAGn"
12319 RCL "#YAuto"
12320 ABS
12321 RCL "#YLAGn"
12322 ABS
12323 X<Y?
12324 R↑
12325 R↑
12326 STO "#XAuto"
12327 RCL "#YAuto"
12328 RCL "#YLAGn"
12329 RCL "#YAuto"
12330 ABS
12331 RCL "#YLAGn"
12332 ABS
12333 X<Y?
12334 R↑
12335 R↑
12336 STO "#YAuto"
12337 RCL "P0"
12338 RCL "P1"
12339 SF 25
12340 1/X
12341 ×
12342 STO- "#XNwtn"
12343 RCL "#M"
12344 ×
12345 STO- "#XNwtnn"
12346 RCL "#XNwtn"
12347 STO "XP"
12348 INDEX "PFI"
12349 RCLEL
12350 STO "#GRAD"
12351 CLST
12352 XEQ 21
12353 STO "#YNwtn"
12354 RCL "#XAuto"
12355 RCL "#XNwtn"
12356 RCL "#YAuto"
12357 ABS
12358 RCL "#YNwtn"
12359 ABS
12360 X<Y?
12361 R↑
12362 R↑
12363 STO "#XAuto"
12364 RCL "#YAuto"
12365 RCL "#YNwtn"
12366 RCL "#YAuto"
12367 ABS
12368 RCL "#YNwtn"
12369 ABS
12370 X<Y?
12371 R↑
12372 R↑
12373 STO "#YAuto"
12374 RCL "#VERF"
12375 " Nwtn"
12376 ASTO ST Y
12377 RCL "#YNwtn"
12378 ABS
12379 RCL "#YAuto"
12380 ABS
12381 X<Y?
12382 R↑
12383 R↑
12384 STO "#VERF"
12385 RCL "#XNwtn"
12386 RCL "#XNwtnn"
12387 X=Y?
12388 GTO 01
12389 STO "XP"
12390 INDEX "PFI"
12391 RCLEL
12392 STO "#GRAD"
12393 CLST
12394 XEQ 21
12395 STO "#YNwtnn"
12396 RCL "#XAuto"
12397 RCL "#YNwtnn"
12398 RCL "#YAuto"
12399 ABS
12400 RCL "#YNwtnn"
12401 ABS
12402 X<Y?
12403 R↑
12404 R↑
12405 STO "#XAuto"
12406 RCL "#YAuto"
12407 RCL "#YNwtnn"
12408 RCL "#YAuto"
12409 ABS
12410 RCL "#YNwtnn"
12411 ABS
12412 X<Y?
12413 R↑
12414 R↑
12415 STO "#YAuto"
12416 RCL "#VERF"
12417 " Nwtnn"
12418 ASTO ST Y
12419 RCL "#YNwtnn"
12420 ABS
12421 RCL "#YAuto"
12422 ABS
12423 X<Y?
12424 R↑
12425 R↑
12426 STO "#VERF"
12427▸LBL 01
12428 RCL "P1"
12429 X↑2
12430 RCL "P3"
12431 ×
12432 RCL "P2"
12433 SF 25
12434 1/X
12435 ×
12436 3
12437 ÷
12438 RCL "P1"
12439 RCL "P2"
12440 ×
12441 -
12442 RCL "P0"
12443 ×
12444 RCL "P1"
12445 3
12446 Y↑X
12447 +
12448 STO+ ST X
12449 SF 25
12450 1/X
12451 RCL "P0"
12452 X↑2
12453 ×
12454 RCL "P2"
12455 ×
12456 RCL "P0"
12457 RCL "P1"
12458 SF 25
12459 1/X
12460 ×
12461 +
12462 STO- "#XBSCP"
12463 RCL "#M"
12464 2
12465 +
12466 3
12467 ÷
12468 ×
12469 STO- "#XBSCPn"
12470 RCL "#XBSCP"
12471 STO "XP"
12472 INDEX "PFI"
12473 RCLEL
12474 STO "#GRAD"
12475 CLST
12476 XEQ 21
12477 STO "#YBSCP"
12478 RCL "#XAuto"
12479 RCL "#XBSCP"
12480 RCL "#YAuto"
12481 ABS
12482 RCL "#YBSCP"
12483 ABS
12484 X<Y?
12485 R↑
12486 R↑
12487 STO "#XAuto"
12488 RCL "#YAuto"
12489 RCL "#YBSCP"
12490 RCL "#YAuto"
12491 ABS
12492 RCL "#YBSCP"
12493 ABS
12494 X<Y?
12495 R↑
12496 R↑
12497 STO "#YAuto"
12498 RCL "#VERF"
12499 " BSCP"
12500 ASTO ST Y
12501 RCL "#YBSCP"
12502 ABS
12503 RCL "#YAuto"
12504 ABS
12505 X<Y?
12506 R↑
12507 R↑
12508 STO "#VERF"
12509 RCL "#XBSCP"
12510 RCL "#XBSCPn"
12511 X=Y?
12512 GTO 01
12513 STO "XP"
12514 INDEX "PFI"
12515 RCLEL
12516 STO "#GRAD"
12517 CLST
12518 XEQ 21
12519 STO "#YBSCPn"
12520 RCL "#XAuto"
12521 RCL "#XBSCPn"
12522 RCL "#YAuto"
12523 ABS
12524 RCL "#YBSCPn"
12525 ABS
12526 X<Y?
12527 R↑
12528 R↑
12529 STO "#XAuto"
12530 RCL "#YAuto"
12531 RCL "#YBSCPn"
12532 RCL "#YAuto"
12533 ABS
12534 RCL "#YBSCPn"
12535 ABS
12536 X<Y?
12537 R↑
12538 R↑
12539 STO "#YAuto"
12540 RCL "#VERF"
12541 " BSCPn"
12542 ASTO ST Y
12543 RCL "#YBSCPn"
12544 ABS
12545 RCL "#YAuto"
12546 ABS
12547 X<Y?
12548 R↑
12549 R↑
12550 STO "#VERF"
12551▸LBL 01
12552 RCL "P0"
12553 RCL "P2"
12554 ×
12555 RCL "P1"
12556 X↑2
12557 SF 25
12558 1/X
12559 ×
12560 STO "#F"
12561 RCL "P0"
12562 X↑2
12563 RCL "P3"
12564 ×
12565 RCL "P1"
12566 3
12567 Y↑X
12568 SF 25
12569 1/X
12570 ×
12571 STO "#E"
12572 ×
12573 5
12574 ×
12575 12
12576 ÷
12577 RCL "#E"
12578 6
12579 ÷
12580 +
12581 RCL "#E"
12582 X↑2
12583 12
12584 ÷
12585 -
12586 RCL "#F"
12587 X↑2
12588 LASTX
12589 +
12590 2
12591 ÷
12592 -
12593 1
12594 -
12595 RCL "P0"
12596 ×
12597 RCL "P1"
12598 SF 25
12599 1/X
12600 ×
12601 STO+ "#XSKOW"
12602 RCL "#M"
12603 2
12604 +
12605 3
12606 ÷
12607 ×
12608 STO+ "#XSKOWn"
12609 CLV "#E"
12610 CLV "#F"
12611 RCL "#XSKOW"
12612 STO "XP"
12613 INDEX "PFI"
12614 RCLEL
12615 STO "#GRAD"
12616 CLST
12617 XEQ 21
12618 STO "#YSKOW"
12619 RCL "#XAuto"
12620 RCL "#XSKOW"
12621 RCL "#YAuto"
12622 ABS
12623 RCL "#YSKOW"
12624 ABS
12625 X<Y?
12626 R↑
12627 R↑
12628 STO "#XAuto"
12629 RCL "#YAuto"
12630 RCL "#YSKOW"
12631 RCL "#YAuto"
12632 ABS
12633 RCL "#YSKOW"
12634 ABS
12635 X<Y?
12636 R↑
12637 R↑
12638 STO "#YAuto"
12639 RCL "#VERF"
12640 " SKOW"
12641 ASTO ST Y
12642 RCL "#YSKOW"
12643 ABS
12644 RCL "#YAuto"
12645 ABS
12646 X<Y?
12647 R↑
12648 R↑
12649 STO "#VERF"
12650 RCL "#XSKOW"
12651 RCL "#XSKOWn"
12652 X=Y?
12653 GTO 01
12654 STO "XP"
12655 INDEX "PFI"
12656 RCLEL
12657 STO "#GRAD"
12658 CLST
12659 XEQ 21
12660 STO "#YSKOWn"
12661 RCL "#XAuto"
12662 RCL "#XSKOWn"
12663 RCL "#YAuto"
12664 ABS
12665 RCL "#YSKOWn"
12666 ABS
12667 X<Y?
12668 R↑
12669 R↑
12670 STO "#XAuto"
12671 RCL "#YAuto"
12672 RCL "#YSKOWn"
12673 RCL "#YAuto"
12674 ABS
12675 RCL "#YSKOWn"
12676 ABS
12677 X<Y?
12678 R↑
12679 R↑
12680 STO "#YAuto"
12681 RCL "#VERF"
12682 " SKOWn"
12683 ASTO ST Y
12684 RCL "#YSKOWn"
12685 ABS
12686 RCL "#YAuto"
12687 ABS
12688 X<Y?
12689 R↑
12690 R↑
12691 STO "#VERF"
12692▸LBL 01
12693 RCL "P1"
12694 X↑2
12695 STO+ ST X
12696 RCL "P0"
12697 RCL "P2"
12698 ×
12699 -
12700 RCL "P0"
12701 ×
12702 3
12703 ×
12704 RCL "P1"
12705 X↑2
12706 RCL "P0"
12707 RCL "P2"
12708 ×
12709 -
12710 RCL "P1"
12711 ×
12712 6
12713 ×
12714 RCL "P0"
12715 X↑2
12716 RCL "P3"
12717 ×
12718 +
12719 SF 25
12720 1/X
12721 ×
12722 STO- "#XKOE"
12723 RCL "#M"
12724 2
12725 +
12726 3
12727 ÷
12728 ×
12729 STO- "#XKOEn"
12730 RCL "#XKOE"
12731 STO "XP"
12732 INDEX "PFI"
12733 RCLEL
12734 STO "#GRAD"
12735 CLST
12736 XEQ 21
12737 STO "#YKOE"
12738 RCL "#XAuto"
12739 RCL "#XKOE"
12740 RCL "#YAuto"
12741 ABS
12742 RCL "#YKOE"
12743 ABS
12744 X<Y?
12745 R↑
12746 R↑
12747 STO "#XAuto"
12748 RCL "#YAuto"
12749 RCL "#YKOE"
12750 RCL "#YAuto"
12751 ABS
12752 RCL "#YKOE"
12753 ABS
12754 X<Y?
12755 R↑
12756 R↑
12757 STO "#YAuto"
12758 RCL "#VERF"
12759 " KOE"
12760 ASTO ST Y
12761 RCL "#YKOE"
12762 ABS
12763 RCL "#YAuto"
12764 ABS
12765 X<Y?
12766 R↑
12767 R↑
12768 STO "#VERF"
12769 RCL "#XKOE"
12770 RCL "#XKOEn"
12771 X=Y?
12772 GTO 01
12773 STO "XP"
12774 INDEX "PFI"
12775 RCLEL
12776 STO "#GRAD"
12777 CLST
12778 XEQ 21
12779 STO "#YKOEn"
12780 RCL "#XAuto"
12781 RCL "#XKOEn"
12782 RCL "#YAuto"
12783 ABS
12784 RCL "#YKOEn"
12785 ABS
12786 X<Y?
12787 R↑
12788 R↑
12789 STO "#XAuto"
12790 RCL "#YAuto"
12791 RCL "#YKOEn"
12792 RCL "#YAuto"
12793 ABS
12794 RCL "#YKOEn"
12795 ABS
12796 X<Y?
12797 R↑
12798 R↑
12799 STO "#YAuto"
12800 RCL "#VERF"
12801 " KOEn"
12802 ASTO ST Y
12803 RCL "#YKOEn"
12804 ABS
12805 RCL "#YAuto"
12806 ABS
12807 X<Y?
12808 R↑
12809 R↑
12810 STO "#VERF"
12811▸LBL 01
12812 RCL "P0"
12813 RCL "P2"
12814 ×
12815 RCL "P1"
12816 X↑2
12817 STO+ ST X
12818 SF 25
12819 1/X
12820 ×
12821 1
12822 +
12823 RCL "P0"
12824 ×
12825 RCL "P1"
12826 SF 25
12827 1/X
12828 ×
12829 STO- "#XCHEB"
12830 RCL "#XCHEB"
12831 STO "XP"
12832 INDEX "PFI"
12833 RCLEL
12834 STO "#GRAD"
12835 CLST
12836 XEQ 21
12837 STO "#YCHEB"
12838 RCL "#XAuto"
12839 RCL "#XCHEB"
12840 RCL "#YAuto"
12841 ABS
12842 RCL "#YCHEB"
12843 ABS
12844 X<Y?
12845 R↑
12846 R↑
12847 STO "#XAuto"
12848 RCL "#YAuto"
12849 RCL "#YCHEB"
12850 RCL "#YAuto"
12851 ABS
12852 RCL "#YCHEB"
12853 ABS
12854 X<Y?
12855 R↑
12856 R↑
12857 STO "#YAuto"
12858 RCL "#VERF"
12859 " CHEB"
12860 ASTO ST Y
12861 RCL "#YCHEB"
12862 ABS
12863 RCL "#YAuto"
12864 ABS
12865 X<Y?
12866 R↑
12867 R↑
12868 STO "#VERF"
12869 RCL "P0"
12870 RCL "P2"
12871 ×
12872 RCL "P1"
12873 X↑2
12874 SF 25
12875 1/X
12876 ×
12877 RCL "#M"
12878 X↑2
12879 ×
12880 2
12881 ÷
12882 3
12883 RCL "#M"
12884 -
12885 LASTX
12886 ×
12887 2
12888 ÷
12889 +
12890 RCL "P0"
12891 ×
12892 RCL "P1"
12893 SF 25
12894 1/X
12895 ×
12896 STO- "#XCHEBn"
12897 RCL "#XCHEB"
12898 RCL "#XCHEBn"
12899 X=Y?
12900 GTO 01
12901 STO "XP"
12902 INDEX "PFI"
12903 RCLEL
12904 STO "#GRAD"
12905 CLST
12906 XEQ 21
12907 STO "#YCHEBn"
12908 RCL "#XAuto"
12909 RCL "#XCHEBn"
12910 RCL "#YAuto"
12911 ABS
12912 RCL "#YCHEBn"
12913 ABS
12914 X<Y?
12915 R↑
12916 R↑
12917 STO "#XAuto"
12918 RCL "#YAuto"
12919 RCL "#YCHEBn"
12920 RCL "#YAuto"
12921 ABS
12922 RCL "#YCHEBn"
12923 ABS
12924 X<Y?
12925 R↑
12926 R↑
12927 STO "#YAuto"
12928 RCL "#VERF"
12929 " CHEB"
12930 ASTO ST Y
12931 RCL "#YCHEBn"
12932 ABS
12933 RCL "#YAuto"
12934 ABS
12935 X<Y?
12936 R↑
12937 R↑
12938 STO "#VERF"
12939▸LBL 01
12940 RCL "P1"
12941 X↑2
12942 STO+ ST X
12943 RCL "P0"
12944 RCL "P2"
12945 ×
12946 -
12947 SF 25
12948 1/X
12949 RCL "P0"
12950 ×
12951 RCL "P1"
12952 ×
12953 STO+ ST X
12954 STO- "#XHALL"
12955 RCL "#XHALL"
12956 STO "XP"
12957 INDEX "PFI"
12958 RCLEL
12959 STO "#GRAD"
12960 CLST
12961 XEQ 21
12962 STO "#YHALL"
12963 RCL "#XAuto"
12964 RCL "#XHALL"
12965 RCL "#YAuto"
12966 ABS
12967 RCL "#YHALL"
12968 ABS
12969 X<Y?
12970 R↑
12971 R↑
12972 STO "#XAuto"
12973 RCL "#YAuto"
12974 RCL "#YHALL"
12975 RCL "#YAuto"
12976 ABS
12977 RCL "#YHALL"
12978 ABS
12979 X<Y?
12980 R↑
12981 R↑
12982 STO "#YAuto"
12983 RCL "#VERF"
12984 " HALL"
12985 ASTO ST Y
12986 RCL "#YHALL"
12987 ABS
12988 RCL "#YAuto"
12989 ABS
12990 X<Y?
12991 R↑
12992 R↑
12993 STO "#VERF"
12994 RCL "P1"
12995 X↑2
12996 RCL "#M"
12997 1
12998 +
12999 ×
13000 RCL "P0"
13001 RCL "P2"
13002 ×
13003 RCL "#M"
13004 ×
13005 -
13006 SF 25
13007 1/X
13008 RCL "P0"
13009 ×
13010 RCL "P1"
13011 ×
13012 RCL "#M"
13013 ×
13014 STO+ ST X
13015 STO- "#XHALLn"
13016 RCL "#XHALL"
13017 RCL "#XHALLn"
13018 X=Y?
13019 GTO 01
13020 STO "XP"
13021 INDEX "PFI"
13022 RCLEL
13023 STO "#GRAD"
13024 CLST
13025 XEQ 21
13026 STO "#YHALLn"
13027 RCL "#XAuto"
13028 RCL "#XHALLn"
13029 RCL "#YAuto"
13030 ABS
13031 RCL "#YHALLn"
13032 ABS
13033 X<Y?
13034 R↑
13035 R↑
13036 STO "#XAuto"
13037 RCL "#YAuto"
13038 RCL "#YHALLn"
13039 RCL "#YAuto"
13040 ABS
13041 RCL "#YHALLn"
13042 ABS
13043 X<Y?
13044 R↑
13045 R↑
13046 STO "#YAuto"
13047 RCL "#VERF"
13048 " HALL"
13049 ASTO ST Y
13050 RCL "#YHALLn"
13051 ABS
13052 RCL "#YAuto"
13053 ABS
13054 X<Y?
13055 R↑
13056 R↑
13057 STO "#VERF"
13058▸LBL 01
13059 RCL "P1"
13060 X↑2
13061 RCL "P0"
13062 RCL "P2"
13063 ×
13064 -
13065 SQRT
13066 RCL "P1"
13067 0
13068 ENTER
13069 COMPLEX
13070 +
13071 COMPLEX
13072 R↓
13073 SIGN
13074 ×
13075 SF 25
13076 1/X
13077 RCL "P0"
13078 ×
13079 STO- "#XOSTR"
13080 RCL "#M"
13081 SQRT
13082 ×
13083 STO- "#XOSTRn"
13084 RCL "#XOSTR"
13085 STO "XP"
13086 INDEX "PFI"
13087 RCLEL
13088 STO "#GRAD"
13089 CLST
13090 XEQ 21
13091 STO "#YOSTR"
13092 RCL "#XAuto"
13093 RCL "#XOSTR"
13094 RCL "#YAuto"
13095 ABS
13096 RCL "#YOSTR"
13097 ABS
13098 X<Y?
13099 R↑
13100 R↑
13101 STO "#XAuto"
13102 RCL "#YAuto"
13103 RCL "#YOSTR"
13104 RCL "#YAuto"
13105 ABS
13106 RCL "#YOSTR"
13107 ABS
13108 X<Y?
13109 R↑
13110 R↑
13111 STO "#YAuto"
13112 RCL "#VERF"
13113 " OSTR"
13114 ASTO ST Y
13115 RCL "#YOSTR"
13116 ABS
13117 RCL "#YAuto"
13118 ABS
13119 X<Y?
13120 R↑
13121 R↑
13122 STO "#VERF"
13123 RCL "#XOSTR"
13124 RCL "#XOSTRn"
13125 X=Y?
13126 GTO 01
13127 STO "XP"
13128 INDEX "PFI"
13129 RCLEL
13130 STO "#GRAD"
13131 CLST
13132 XEQ 21
13133 STO "#YOSTRn"
13134 RCL "#XAuto"
13135 RCL "#XOSTRn"
13136 RCL "#YAuto"
13137 ABS
13138 RCL "#YOSTRn"
13139 ABS
13140 X<Y?
13141 R↑
13142 R↑
13143 STO "#XAuto"
13144 RCL "#YAuto"
13145 RCL "#YOSTRn"
13146 RCL "#YAuto"
13147 ABS
13148 RCL "#YOSTRn"
13149 ABS
13150 X<Y?
13151 R↑
13152 R↑
13153 STO "#YAuto"
13154 RCL "#VERF"
13155 " OSTR"
13156 ASTO ST Y
13157 RCL "#YOSTRn"
13158 ABS
13159 RCL "#YAuto"
13160 ABS
13161 X<Y?
13162 R↑
13163 R↑
13164 STO "#VERF"
13165▸LBL 01
13166 "extrn"
13167 ASTO ST X
13168 RCL "#METHOD"
13169 X≠Y?
13170 GTO 01
13171 RCL "P0"
13172 STO "F0"
13173 RCL "#Xextrn"
13174 STO "XP"
13175 STO "XF"
13176 XEQ IND "#extrn"
13177 STO "#Xextrn"
13178 STO "XP"
13179 INDEX "PFI"
13180 RCLEL
13181 STO "#GRAD"
13182 CLST
13183 XEQ 21
13184 STO "#Yextrn"
13185 STO "P0"
13186▸LBL 01
13187 CLA
13188 "#X"
13189 ARCL "#METHOD"
13190 XASTO ST X
13191 1
13192 RCL "#MULT"
13193 X>Y?
13194 ├"n"
13195 XASTO ST X
13196 ALENG
13197 CLA
13198 "#Xextrn"
13199 7
13200 X<Y?
13201 XASTO ST Z
13202 X<> ST Z
13203 SF 25
13204 RCL IND ST X
13205 FS? 25
13206 STO "XP"
13207 CLA
13208 "#X"
13209 ARCL "#METHOD"
13210 XASTO ST X
13211 RCL IND ST X
13212 FC? 25
13213 STO "XP"
13214 "#Y"
13215 ARCL "#METHOD"
13216 1
13217 RCL "#MULT"
13218 X>Y?
13219 ├"n"
13220 XASTO ST X
13221 ALENG
13222 CLA
13223 "#Yextrn"
13224 7
13225 X<Y?
13226 XASTO ST Z
13227 X<> ST Z
13228 SF 25
13229 RCL IND ST X
13230 FS? 25
13231 STO "P0"
13232 CLA
13233 "#Y"
13234 ARCL "#METHOD"
13235 XASTO ST X
13236 RCL IND ST X
13237 FC? 25
13238 STO "P0"
13239 1
13240 STO+ "#CNT"
13241 FS?C 20
13242 GTO 02
13243 RCL "#IT"
13244 RCL "#CNT"
13245 X≥Y?
13246 GTO 02
13247 RCL "P0"
13248 ABS
13249 RCL "#YDIFF"
13250 X≥Y?
13251 GTO 02
13252 RCL "XP"
13253 RCL "Xn"
13254 -
13255 ABS
13256 RCL "#XDIFF"
13257 X≥Y?
13258 GTO 02
13259 GTO 80
13260▸LBL 02
13261 RCL "#IT"
13262 RCL "#CNT"
13263 X≥Y?
13264 GTO 03
13265 RCL "P0"
13266 ABS
13267 RCL "#XDIFF"
13268 RCL "#YDIFF"
13269 +
13270 X=0?
13271 1ᴇ-4
13272 SQRT
13273 X<Y?
13274 GTO 80
13275▸LBL 02
13276 RCL "#XAuto"
13277 REAL?
13278 GTO 02
13279 RCL "#XAuto"
13280 COMPLEX
13281 0
13282 X<>Y
13283 COMPLEX
13284 STO "XP"
13285 INDEX "PFI"
13286 RCLEL
13287 STO "#GRAD"
13288 CLST
13289 XEQ 21
13290 STO "P0"
13291 ABS
13292 RCL "#YDIFF"
13293 X>Y?
13294 GTO 02
13295 RCL "#XAuto"
13296 COMPLEX
13297 X<>Y
13298 STO "XP"
13299 INDEX "PFI"
13300 RCLEL
13301 STO "#GRAD"
13302 CLST
13303 XEQ 21
13304 STO "P0"
13305 ABS
13306 RCL "#YDIFF"
13307 X>Y?
13308 GTO 02
13309 RCL "#XAuto"
13310 STO "XP"
13311 RCL "#YAuto"
13312 STO "P0"
13313▸LBL 02
13314 RCL "#PRTYN"
13315 X>0?
13316 XEQ 08
13317 GTO 81
13318▸LBL 03
13319 RCL "#PRTYN"
13320 X>0?
13321 XEQ 08
13322 RCL "#Xn+1"
13323 X>0?
13324 GTO 81
13325 CLMENU
13326 "OK"
13327 KEY 1 GTO 81
13328 "M"
13329 KEY 2 GTO 01
13330 "E"
13331 KEY 3 GTO 01
13332 "N"
13333 KEY 4 GTO 01
13334 "U"
13335 KEY 5 GTO 01
13336 "END"
13337 KEY 6 GTO 10
13338 KEY 7 GTO 01
13339 KEY 8 GTO 01
13340 KEY 9 GTO 10
13341 RCL "XP"
13342 ABS
13343 RCL "P0"
13344 ABS
13345 +
13346 RCL "P1"
13347 ABS
13348 +
13349 RCL "P2"
13350 ABS
13351 +
13352 RCL "P3"
13353 ABS
13354 +
13355 "#CNT = max(IT)"
13356 ├"     R/S"
13357 1ᴇ100
13358 X<Y?
13359 "Out of Range "
13360 X<Y?
13361 ├"      R/S"
13362 X<>Y
13363 ENTER
13364 X≠Y?
13365 "Out of Range "
13366 X≠Y?
13367 ├"      R/S"
13368 ├"#CNT   #CNT "
13369 ├"  |Yi|  Xi"
13370 RCL "#CNT"
13371 RCL "#CNT"
13372 RCL "P0"
13373 ABS
13374 RCL "XP"
13375 MENU
13376 PROMPT
13377▸LBL 01
13378 GTO 72
13379▸LBL 81
13380 "MENU SOLUTION"
13381 CLMENU
13382 RCL "#nROOTS"
13383 X=0?
13384 GTO 05
13385 CLX
13386 SF 25
13387 RCL "#Xn+1"
13388 X>0?
13389 GTO 03
13390 CLX
13391 SF 25
13392 RCL "#N-IT"
13393 X>0?
13394 GTO 04
13395 "SHOW"
13396 KEY 1 GTO 01
13397 "PRT"
13398 KEY 2 XEQ 08
13399 "Xn+1"
13400 KEY 3 GTO 03
13401 "N-IT"
13402 KEY 4 GTO 04
13403 "Y/Xn"
13404 KEY 5 GTO 05
13405 "BACK"
13406 KEY 6 GTO 72
13407 KEY 7 GTO 81
13408 KEY 8 GTO 81
13409 KEY 9 GTO 98
13410 44
13411 STO "#LDSP"
13412 RCL "#CNT"
13413 RCL "XP"
13414 RCL "Xn"
13415 -
13416 ABS
13417 RCL "P0"
13418 RCL "XP"
13419 "Nullstelle "
13420 ├"gefunden   "
13421 ├"#CNT  |Xd|  "
13422 ├"Y(Xn)   Xn"
13423 MENU
13424 PROMPT
13425 GTO 81
13426▸LBL 01
13427 "SHOW"
13428 44
13429 STO "#LDSP"
13430 RCL "XP"
13431 CPX?
13432 GTO 01
13433 "X = "
13434 AIP
13435 ├","
13436 ABS
13437 STO ST Y
13438 XEQ 86
13439 RCL "#CNT"
13440 RCL "XP"
13441 RCL "Xn"
13442 -
13443 ABS
13444 RCL "P0"
13445 RCL "XP"
13446 PROMPT
13447 GTO 81
13448▸LBL 01
13449 RCL "XP"
13450 REAL?
13451 GTO 81
13452 22
13453 STO "#LDSP"
13454 "Xre="
13455 RCL "XP"
13456 COMPLEX
13457 X<>Y
13458 AIP
13459 ├","
13460 ABS
13461 STO ST Y
13462 XEQ 86
13463 XASTO "###"
13464 "Xim="
13465 RCL "XP"
13466 COMPLEX
13467 ABS
13468 AIP
13469 ├","
13470 STO ST Y
13471 XEQ 86
13472 XEQ 87
13473 ARCL "###"
13474 CLV "###"
13475 RCL "#CNT"
13476 RCL "XP"
13477 RCL "Xn"
13478 -
13479 ABS
13480 RCL "P0"
13481 RCL "XP"
13482 PROMPT
13483▸LBL 01
13484 GTO 81
13485▸LBL 03
13486 "Xn+1"
13487 RCL "#PRTYy"
13488 ABS
13489 STO "#PRTYy"
13490 X<>Y
13491 FC? 64
13492 1
13493 ENTER
13494 ABS
13495 IP
13496 FS? 64
13497 STO "#Xn+1"
13498 X≠Y?
13499 1
13500 X≤0?
13501 1
13502 STO "#Xn+1"
13503 1
13504 STO- "#Xn+1"
13505 CLX
13506 STO "#CMD"
13507 SF 20
13508 GTO 80
13509▸LBL 04
13510 "N-IT: Xn"
13511 RCL "#PRTYy"
13512 ABS
13513 +/-
13514 STO "#PRTYy"
13515 X<>Y
13516 FC? 64
13517 1
13518 ENTER
13519 ABS
13520 IP
13521 FS? 64
13522 STO "#N-IT"
13523 X≠Y?
13524 1
13525 X≤0?
13526 1
13527 STO "#N-IT"
13528 RCL "XP"
13529 STO "Xn"
13530 STO "#XLAGa"
13531 STO "#XLAGb"
13532 STO "#XLAGna"
13533 STO "#XLAGnb"
13534 STO "#XNwtn"
13535 STO "#XNwtnn"
13536 STO "#XBSCP"
13537 STO "#XBSCPn"
13538 STO "#XSKOW"
13539 STO "#XSKOWn"
13540 STO "#XKOE"
13541 STO "#XKOEn"
13542 STO "#XCHEB"
13543 STO "#XCHEBn"
13544 STO "#XHALL"
13545 STO "#XHALLn"
13546 STO "#XOSTR"
13547 STO "#XOSTRn"
13548 STO "#Xextrn"
13549 XEQ 22
13550 INDEX "PAI"
13551 RCLEL
13552 STO "#GRAD"
13553 XEQ 07
13554 "#X"
13555 ARCL "#METHOD"
13556 XASTO ST X
13557 RCL IND ST X
13558 X<> "XP"
13559 STO "Xn"
13560 "#Y"
13561 ARCL "#METHOD"
13562 XASTO ST X
13563 RCL IND ST X
13564 STO "P0"
13565 1
13566 STO "#CMD"
13567 STO+ "#CNT"
13568 RCL "#PRTYN"
13569 X>0?
13570 XEQ 08
13571 INDEX "PAI"
13572 RCLEL
13573 STO "#GRAD"
13574 1
13575 STO- "#N-IT"
13576 GTO 81
13577▸LBL 05
13578 XEQ 46
13579 RCL "XP"
13580 0
13581 ENTER
13582 COMPLEX
13583 +
13584 COMPLEX
13585 X<>Y
13586 SIGN
13587 RCL "XP"
13588 ABS
13589 ×
13590 STO "XP"
13591 "           "
13592 ├"           "
13593 INDEX "PAI"
13594 RCLEL
13595 STO ST Y
13596 INDEX "PWI"
13597 RCLEL
13598 -
13599 ├"…"
13600 AIP
13601 X<>Y
13602 ├" von "
13603 AIP
13604 ├" berechnet"
13605 PROFF
13606 AVIEW
13607 PRON
13608 RCL "#nROOTS"
13609 X=0?
13610 GTO 74
13611 GTO 72
13612▸LBL 08
13613 PRV "#METHOD"
13614 RCL "#CNT"
13615 SF 25
13616 X=0?
13617 PRV "#extrn"
13618 FS?C 20
13619 RTN
13620 "Auto"
13621 ASTO ST X
13622 RCL "#METHOD"
13623 " "
13624 SF 25
13625 X=Y?
13626 ARCL "#VERF"
13627 X≠Y?
13628 ARCL "#METHOD"
13629 ASTO "###"
13630 ADV
13631 "#CNT: i="
13632 RCL "#CNT"
13633 AIP
13634 X≠0?
13635 ARCL "###"
13636 CLV "###"
13637 1
13638 RCL "#MULT"
13639 RCL "#CNT"
13640 X≠0?
13641 SIGN
13642 ×
13643 X>Y?
13644 ├"m"
13645 PRA
13646 " m "
13647 ASTO ST X
13648 RCL "#M"
13649 STO IND ST Y
13650 PRV IND ST Y
13651 CLV IND ST Y
13652 INDEX "PAI"
13653 RCL "#PRTYy"
13654 X≤0?
13655 "Yi "
13656 X>0?
13657 "yi "
13658 ASTO ST X
13659 RCL "P0"
13660 CPX?
13661 GTO 08
13662 STO IND ST Y
13663 PRV IND ST Y
13664 CLV IND ST Y
13665 "Xi "
13666 ASTO ST X
13667 RCL "XP"
13668 STO IND ST Y
13669 FC? 64
13670 PRV IND ST Y
13671 CLV IND ST Y
13672 FC? 64
13673 RTN
13674 "Xi = "
13675 RCL "XP"
13676 AIP
13677 ├","
13678 ABS
13679 STO ST Y
13680 XEQ 86
13681 PRA
13682 RTN
13683▸LBL 08
13684 FIX 02
13685 STO IND ST Y
13686 PRV IND ST Y
13687 CLV IND ST Y
13688 FIX 04
13689 ATOX
13690 ATOX
13691 X<>Y
13692 "|"
13693 XTOA
13694 X<>Y
13695 XTOA
13696 ├"| "
13697 ASTO ST X
13698 RCL "P0"
13699 ABS
13700 STO IND ST Y
13701 PRV IND ST Y
13702 CLV IND ST Y
13703 "Xim  "
13704 ASTO ST X
13705 RCL "XP"
13706 COMPLEX
13707 X<>Y
13708 R↓
13709 STO IND ST Y
13710 FC? 64
13711 PRV IND ST Y
13712 CLV IND ST Y
13713 "Xre  "
13714 ASTO ST X
13715 RCL "XP"
13716 COMPLEX
13717 R↓
13718 STO IND ST Y
13719 FC? 64
13720 PRV IND ST Y
13721 CLV IND ST Y
13722 FC? 64
13723 RTN
13724 "Xim="
13725 RCL "XP"
13726 COMPLEX
13727 AIP
13728 ├","
13729 ABS
13730 STO ST Y
13731 XEQ 86
13732 PRA
13733 "Xre="
13734 RCL "XP"
13735 COMPLEX
13736 X<>Y
13737 AIP
13738 ├","
13739 ABS
13740 STO ST Y
13741 XEQ 86
13742 PRA
13743 RTN
13744▸LBL 82
13745 "All Roots "
13746 ├"found"
13747 ASTO "#CMD"
13748 CLX
13749 STO "#CNT"
13750 SF 25
13751 RCL "#N-IT"
13752 X>0?
13753 GTO 05
13754 XEQ 88
13755 INDEX "PXI=0"
13756 J-
13757 RCLIJ
13758 X<>Y
13759 STO "#GRAD"
13760 J+
13761 CLA
13762 AIP
13763 ├" Nullstellen:"
13764 LOG
13765 1ᴇ-5
13766 +
13767 IP
13768 2
13769 X<>Y
13770 -
13771 X>0?
13772 ├" "
13773 1
13774 -
13775 X>0?
13776 ├" "
13777 1
13778 -
13779 X>0?
13780 ├" "
13781 ├" maxYi"
13782 ├"ΣYi ΣXi-"
13783 ├"(An-1)"
13784 ├" πXi-Ao"
13785 XASTO "#MSG"
13786 "SHOW"
13787 KEY 1 GTO 83
13788 "PRT"
13789 KEY 2 GTO 02
13790 CLA
13791 ARCL "#METHOD"
13792 KEY 3 GTO 04
13793 "BAIR"
13794 ASTO ST X
13795 RCL "#METHOD"
13796 "N-IT"
13797 X=Y?
13798 CLA
13799 KEY 4 GTO 05
13800 "Xi Yi"
13801 KEY 5 GTO 01
13802 "BACK"
13803 KEY 6 GTO 03
13804 " "
13805 KEY 7 GTO 82
13806 KEY 8 GTO 82
13807 KEY 9 GTO 98
13808 CLX
13809 STO "#CNT"
13810 RCL "#maxYi"
13811 RCL "#ΣYi"
13812 RCL "#ΣXi"
13813 RCL "#πXi"
13814 CLA
13815 ARCL "#MSG"
13816 MENU
13817 PROMPT
13818 GTO 82
13819▸LBL 01
13820 CLST
13821 RCL "PXI=0"
13822 "Copy & Paste "
13823 ├"to Excel "
13824 ├"Nullstellen "
13825 ARCL "FKT-SEL"
13826 ├"(Xi)=0"
13827 PROMPT
13828 GTO 82
13829▸LBL 83
13830 "SHOW ROOTS"
13831 ASTO "#CMD"
13832 CF 19
13833 RCL "#GRAD"
13834 X≤0?
13835 GTO 82
13836 CLX
13837 SF 25
13838 RCL "#N-IT"
13839 X>0?
13840 GTO 05
13841 ISG "#CNT"
13842 STO ST X
13843 CLA
13844 RCL "#CNT"
13845 AIP
13846 ├"/"
13847 RCL "#GRAD"
13848 +
13849 1
13850 STO- "#GRAD"
13851 -
13852 AIP
13853 ├"  #CNT="
13854 RCLEL
13855 J+
13856 AIP
13857 18
13858 STO "#LDSP"
13859 XEQ 87
13860 ├"R/S "
13861 ├"|Y(X)| Y(X) "
13862 ├"X_im X_re "
13863 XASTO "#MSG"
13864 RCLEL
13865 STO "#ST-X"
13866 J+
13867 RCLEL
13868 STO "#ST-Y"
13869 COMPLEX
13870 STO "XP"
13871 J+
13872 RCLEL
13873 J+
13874 RCLEL
13875 J+
13876 J+
13877 COMPLEX
13878 ENTER
13879 COMPLEX
13880 0
13881 X<>Y
13882 X=Y?
13883 CLX
13884 X<>Y
13885 R↓
13886 X≠0?
13887 COMPLEX
13888 R↓
13889 STO "P0"
13890 ABS
13891 RCL "P0"
13892 RCL "#ST-Y"
13893 RCL "#ST-X"
13894 CLA
13895 ARCL "#MSG"
13896 CLV "#MSG"
13897 MENU
13898 PROMPT
13899 RCL "#GRAD"
13900 X>0?
13901 GTO 01
13902 GTO 82
13903▸LBL 83
13904 RCL "#ST-Y"
13905 X≠0?
13906 "Xim="
13907 X≠0?
13908 22
13909 X=0?
13910 44
13911 STO "#LDSP"
13912 RCL "#ST-Y"
13913 AIP
13914 ├","
13915 ABS
13916 RCL "#ST-Y"
13917 X≠0?
13918 XEQ 86
13919 XEQ 87
13920 44
13921 STO ST Y
13922 X<> "#LDSP"
13923 X=Y?
13924 "X = "
13925 X≠Y?
13926 ├"Xre="
13927 RCL "#ST-X"
13928 AIP
13929 ├","
13930 ABS
13931 STO ST Y
13932 XEQ 86
13933 RCL "P0"
13934 ABS
13935 RCL "P0"
13936 RCL "#ST-Y"
13937 RCL "#ST-X"
13938 MENU
13939 PROMPT
13940▸LBL 01
13941▸LBL 83
13942 GTO 83
13943▸LBL 02
13944 "SHOW R"
13945 ASTO ST X
13946 RCL "#CMD"
13947 X≠Y?
13948 GTO 02
13949 ADV
13950 RCL "#CNT"
13951 1
13952 STOIJ
13953 RCLEL
13954 J+
13955 RCLEL
13956 STO "XP_RE"
13957 J+
13958 RCLEL
13959 STO "XP_IM"
13960 RCL "#CNT"
13961 CLA
13962 AIP
13963 ├". Nullstelle"
13964 PRA
13965 X<> ST T
13966 "#CNT = "
13967 AIP
13968 PRA
13969 J+
13970 RCLEL
13971 STO "P0_RE"
13972 J+
13973 RCLEL
13974 STO "P0_IM"
13975 COMPLEX
13976 ABS
13977 STO "P0_ABS"
13978 "P"
13979 RCLIJ
13980 X<>Y
13981 AIP
13982 ├"_Im = "
13983 RCL "P0_IM"
13984 ARCL ST X
13985 X≠0?
13986 PRA
13987 "P"
13988 RCLIJ
13989 X<>Y
13990 AIP
13991 RCL "P0_IM"
13992 X≠0?
13993 ├"_Re"
13994 ├" = "
13995 ARCL "P0_RE"
13996 CLV "P0_RE"
13997 PRA
13998 "|P"
13999 RCLIJ
14000 X<>Y
14001 AIP
14002 ├"|  = "
14003 ARCL "P0_ABS"
14004 CLV "P0_ABS"
14005 RCL "P0_IM"
14006 CLV "P0_IM"
14007 X≠0?
14008 PRA
14009 44
14010 STO "#LDSP"
14011 "X"
14012 RCLIJ
14013 X<>Y
14014 AIP
14015 RCL "XP_IM"
14016 X≠0?
14017 ├"_Im = "
14018 FC? 64
14019 ARCL ST X
14020 FS? 64
14021 AIP
14022 FS? 64
14023 ├","
14024 ABS
14025 STO ST Y
14026 FS? 64
14027 XEQ 86
14028 RCL "XP_IM"
14029 X≠0?
14030 PRA
14031 "X"
14032 RCLIJ
14033 X<>Y
14034 AIP
14035 RCL "XP_IM"
14036 CLV "XP_IM"
14037 X≠0?
14038 ├"_Re"
14039 ├" = "
14040 RCL "XP_RE"
14041 CLV "XP_RE"
14042 FC? 64
14043 ARCL ST X
14044 FS? 64
14045 AIP
14046 FS? 64
14047 ├","
14048 ABS
14049 STO ST Y
14050 FS? 64
14051 XEQ 86
14052 PRA
14053 INDEX "PAI"
14054 RCLEL
14055 RCL "#CNT"
14056 -
14057 STO "#GRAD"
14058 INDEX "PXI=0"
14059 RCL "#CNT"
14060 1
14061 STO+ "#GRAD"
14062 STOIJ
14063 -
14064 STO "#CNT"
14065 GTO 83
14066▸LBL 02
14067 ADV
14068 "============"
14069 ├"============"
14070 PRA
14071 ADV
14072 "Y(X) = "
14073 ARCL "FKT-SEL"
14074 ├"(X)"
14075 PRA
14076 ADV
14077 "    GRAD / "
14078 ├"An / ... / A0"
14079 PRA
14080 CLA
14081 ARCL "FKT-SEL"
14082 ├"(X)"
14083 ASTO ST X
14084 RCL "PAI"
14085 STO IND ST Y
14086 PRV IND ST Y
14087 CLV IND ST Y
14088 ADV
14089 "BAIR"
14090 ASTO ST X
14091 RCL "#METHOD"
14092 "METHOD: "
14093 X≠Y?
14094 ARCL "#METHOD"
14095 X=Y?
14096 ARCL "#L-B-V"
14097 PRA
14098 CLX
14099 STO "#CNT"
14100 "max|Yi| = "
14101 ARCL "#maxYi"
14102 PRA
14103 "Σ|"
14104 ARCL "FKT-SEL"
14105 ├"(Xi)| = "
14106 RCL "#ΣYi"
14107 ARCL ST X
14108 PRA
14109 CLA
14110 ARCL "#ΣXi"
14111 ALENG
14112 10
14113 "|ΣXi - An-1|"
14114 X>Y?
14115 ├" = "
14116 X≤Y?
14117 ├"="
14118 RCL "#ΣXi"
14119 ARCL ST X
14120 PRA
14121 R↑
14122 +
14123 "|πXi - Ao| = "
14124 RCL "#πXi"
14125 ARCL ST X
14126 PRA
14127 +
14128 "Σerr = "
14129 ARCL ST X
14130 PRA
14131 INDEX "PXI=0"
14132▸LBL 84
14133 "PRINT ROOTS"
14134 ADV
14135 RCL "#GRAD"
14136 X≤0?
14137 GTO 82
14138 1
14139 STO+ "#CNT"
14140 STO- "#GRAD"
14141 RCLEL
14142 "CNT: i="
14143 AIP
14144 PRA
14145 J+
14146 RCLEL
14147 STO "XP_RE"
14148 J+
14149 RCLEL
14150 STO "XP_IM"
14151 J+
14152 RCLEL
14153 STO "P0_RE"
14154 J+
14155 RCLEL
14156 STO "P0_IM"
14157 COMPLEX
14158 ABS
14159 STO "P0_ABS"
14160 "P"
14161 RCLIJ
14162 X<>Y
14163 AIP
14164 ├"_Im = "
14165 RCL "P0_IM"
14166 ARCL ST X
14167 X≠0?
14168 PRA
14169 "P"
14170 RCLIJ
14171 X<>Y
14172 AIP
14173 RCL "P0_IM"
14174 X≠0?
14175 ├"_Re"
14176 ├" = "
14177 ARCL "P0_RE"
14178 CLV "P0_RE"
14179 PRA
14180 "|P"
14181 RCLIJ
14182 X<>Y
14183 AIP
14184 ├"|  = "
14185 ARCL "P0_ABS"
14186 CLV "P0_ABS"
14187 RCL "P0_IM"
14188 CLV "P0_IM"
14189 X≠0?
14190 PRA
14191 44
14192 STO "#LDSP"
14193 "X"
14194 RCLIJ
14195 X<>Y
14196 AIP
14197 RCL "XP_IM"
14198 X≠0?
14199 ├"_Im = "
14200 FC? 64
14201 ARCL ST X
14202 FS? 64
14203 AIP
14204 FS? 64
14205 ├","
14206 ABS
14207 STO ST Y
14208 FS? 64
14209 XEQ 86
14210 RCL "XP_IM"
14211 X≠0?
14212 PRA
14213 "X"
14214 RCLIJ
14215 X<>Y
14216 AIP
14217 RCL "XP_IM"
14218 CLV "XP_IM"
14219 X≠0?
14220 ├"_Re"
14221 ├" = "
14222 RCL "XP_RE"
14223 CLV "XP_RE"
14224 FC? 64
14225 ARCL ST X
14226 FS? 64
14227 AIP
14228 FS? 64
14229 ├","
14230 ABS
14231 STO ST Y
14232 FS? 64
14233 XEQ 86
14234 PRA
14235 J+
14236 J+
14237 RCL "#GRAD"
14238 X>0?
14239 GTO 84
14240 GTO 82
14241▸LBL 03
14242 INDEX "PWI"
14243 RCLEL
14244 RCL "#GRAD"
14245 X≠Y?
14246 GTO 82
14247 CLV "#MSG"
14248 CLV "#LDSP"
14249 GTO 10
14250▸LBL 04
14251 RCL "#METHOD"
14252 "extrn"
14253 ASTO ST Y
14254 "LAG"
14255 X=Y?
14256 ASTO "#METHOD"
14257 ASTO ST Y
14258 "Nwtn"
14259 X=Y?
14260 ASTO "#METHOD"
14261 ASTO ST Y
14262 "BAIR"
14263 X=Y?
14264 ASTO "#METHOD"
14265 ASTO ST Y
14266 "BSCP"
14267 X=Y?
14268 ASTO "#METHOD"
14269 ASTO ST Y
14270 "SKOW"
14271 X=Y?
14272 ASTO "#METHOD"
14273 ASTO ST Y
14274 "KOE"
14275 X=Y?
14276 ASTO "#METHOD"
14277 ASTO ST Y
14278 "Auto"
14279 X=Y?
14280 ASTO "#METHOD"
14281 ASTO ST Y
14282 SF 25
14283 RCL "#extrn"
14284 "extrn"
14285 FC? 25
14286 "LAG"
14287 FS? 25
14288 R↓
14289 X=Y?
14290 ASTO "#METHOD"
14291 GTO 82
14292 ASTO ST Y
14293 "extrn"
14294 X=Y?
14295 ASTO "#METHOD"
14296 GTO 82
14297▸LBL 05
14298 "N-IT Xj od. PXI"
14299 STO "#N-IT"
14300 "BAIR"
14301 ASTO ST X
14302 RCL "#METHOD"
14303 X=Y?
14304 GTO 02
14305 "SHOW R"
14306 ASTO ST X
14307 RCL "#CMD"
14308 X≠Y?
14309 GTO 06
14310 RCL "#N-IT"
14311 FC? 64
14312 1
14313 ENTER
14314 ABS
14315 IP
14316 FS? 64
14317 STO "#N-IT"
14318 X≠Y?
14319 1
14320 X≤0?
14321 1
14322 STO "#N-IT"
14323 RCL "#CNT"
14324 STO "#NPXI"
14325 SF 19
14326 XEQ 85
14327 INDEX "PAI"
14328 RCLEL
14329 RCL "#NPXI"
14330 STO "#CNT"
14331 -
14332 STO "#GRAD"
14333 INDEX "PXI=0"
14334 RCL "#NPXI"
14335 1
14336 STO- "#N-IT"
14337 STO+ "#GRAD"
14338 STOIJ
14339 RCL "#N-IT"
14340 X=0?
14341 DSE "#CNT"
14342 STO ST X
14343 GTO 83
14344▸LBL 06
14345 "N-IT PXI"
14346 RCL "#N-IT"
14347 FC? 64
14348 1
14349 ENTER
14350 ABS
14351 IP
14352 FS? 64
14353 STO "#N-IT"
14354 X≠Y?
14355 1
14356 X≤0?
14357 1
14358 STO "#N-IT"
14359 INDEX "PXI=0"
14360 J-
14361 RCLIJ
14362 X<>Y
14363 STO "#NPXI"
14364▸LBL 85
14365 "NACHITERATION"
14366 INDEX "PXI=0"
14367 RCL "#NPXI"
14368 1
14369 STO "#M"
14370 STOIJ
14371 RCLEL
14372 +
14373 STOEL
14374 J+
14375 RCLEL
14376 J+
14377 RCLEL
14378 COMPLEX
14379 STO "XP"
14380 ENTER
14381 COMPLEX
14382 X≠0?
14383 COMPLEX
14384 R↓
14385 STO "XP"
14386 STO "#XLAGa"
14387 STO "#XLAGna"
14388 STO "#XLAGb"
14389 STO "#XLAGnb"
14390 STO "#XNwtn"
14391 STO "#XNwtnn"
14392 STO "#XBSCP"
14393 STO "#XBSCPn"
14394 STO "#XSKOW"
14395 STO "#XSKOWn"
14396 STO "#XKOE"
14397 STO "#XKOEn"
14398 STO "#XCHEB"
14399 STO "#XCHEBn"
14400 STO "#XHALL"
14401 STO "#XHALLn"
14402 STO "#XOSTR"
14403 STO "#XOSTRn"
14404 STO "#Xextrn"
14405 XEQ 22
14406 INDEX "PAI"
14407 RCLEL
14408 STO "#GRAD"
14409 XEQ 07
14410 INDEX "PXI=0"
14411 RCL "#NPXI"
14412 1
14413 STOIJ
14414 J+
14415 RCL "XP"
14416 0
14417 ENTER
14418 COMPLEX
14419 +
14420 COMPLEX
14421 X<>Y
14422 STOEL
14423 J+
14424 X<>Y
14425 STOEL
14426 J+
14427 RCL "P0"
14428 0
14429 ENTER
14430 COMPLEX
14431 +
14432 COMPLEX
14433 X<>Y
14434 STOEL
14435 J+
14436 X<>Y
14437 STOEL
14438 J+
14439 RCL "P0"
14440 ABS
14441 STOEL
14442 FS? 19
14443 RTN
14444 DSE "#NPXI"
14445 GTO 85
14446 CLV "#NPXI"
14447 1
14448 STO- "#N-IT"
14449 "SHOW R"
14450 ASTO ST X
14451 RCL "#CMD"
14452 X≠Y?
14453 GTO 82
14454 GTO 83
14455▸LBL 07
14456 RCL "P1"
14457 X↑2
14458 RCL "P0"
14459 RCL "P2"
14460 ×
14461 -
14462 SF 25
14463 1/X
14464 RCL "P1"
14465 X↑2
14466 ×
14467 0.2
14468 +
14469 0
14470 ENTER
14471 COMPLEX
14472 +
14473 COMPLEX
14474 X<>Y
14475 IP
14476 STO "#M"
14477 RCL "P2"
14478 X↑2
14479 RCL "P1"
14480 RCL "P3"
14481 ×
14482 -
14483 SF 25
14484 1/X
14485 RCL "P2"
14486 X↑2
14487 ×
14488 1.2
14489 +
14490 0
14491 ENTER
14492 COMPLEX
14493 +
14494 COMPLEX
14495 X<>Y
14496 IP
14497 STO+ "#M"
14498 RCL "P1"
14499 X↑2
14500 STO+ ST X
14501 RCL "P0"
14502 RCL "P2"
14503 ×
14504 3
14505 ×
14506 -
14507 RCL "P1"
14508 ×
14509 RCL "P0"
14510 X↑2
14511 RCL "P3"
14512 ×
14513 +
14514 X↑2
14515 SF 25
14516 1/X
14517 STO+ ST X
14518 RCL "P1"
14519 X↑2
14520 RCL "P0"
14521 RCL "P2"
14522 ×
14523 -
14524 3
14525 Y↑X
14526 ×
14527 0.2
14528 +
14529 0
14530 ENTER
14531 COMPLEX
14532 +
14533 COMPLEX
14534 X<>Y
14535 IP
14536 "STO+ #M"
14537 RCL "#M"
14538 "3"
14539 2
14540 ÷
14541 1
14542 X<Y?
14543 X<>Y
14544 RCL "#GRAD"
14545 X>Y?
14546 X<>Y
14547 STO "#M"
14548 2
14549 RCL "#MULT"
14550 1
14551 -
14552 SF 25
14553 X=Y?
14554 STO÷ "#M"
14555 1
14556 RCL "#MULT"
14557 X=Y?
14558 STO "#M"
14559 2
14560 RCL "#M"
14561 2
14562 RCL "#MULT"
14563 X≠Y?
14564 R↑
14565 R↑
14566 RCL "#M"
14567 X>Y?
14568 X<>Y
14569 1
14570 X<>Y
14571 X<Y?
14572 X<>Y
14573 STO "#M"
14574 RCL "P1"
14575 X↑2
14576 RCL "#GRAD"
14577 1
14578 -
14579 ×
14580 RCL "P0"
14581 RCL "P2"
14582 ×
14583 RCL "#GRAD"
14584 ×
14585 -
14586 RCL "#GRAD"
14587 1
14588 -
14589 ×
14590 RCL "#XDIFF"
14591 X<>Y
14592 ABS
14593 X≤Y?
14594 CLX
14595 X≠0?
14596 LASTX
14597 SQRT
14598 RCL "P1"
14599 0
14600 ENTER
14601 COMPLEX
14602 +
14603 COMPLEX
14604 R↓
14605 SIGN
14606 ×
14607 STO "#√"
14608 RCL "P1"
14609 +
14610 SF 25
14611 1/X
14612 RCL "P0"
14613 ×
14614 RCL "#GRAD"
14615 ×
14616 STO- "#XLAGa"
14617 RCL "#XLAGa"
14618 STO "#XLAG"
14619 STO "#XAuto"
14620 STO "XP"
14621 INDEX "PAI"
14622 RCLEL
14623 STO "#GRAD"
14624 CLST
14625 XEQ 21
14626 STO "#YLAGa"
14627 STO "#YLAG"
14628 STO "#YAuto"
14629 INDEX "PAI"
14630 RCLEL
14631 STO "#GRAD"
14632 RCL "#√"
14633 CLV "#√"
14634 0
14635 ENTER
14636 COMPLEX
14637 +
14638 COMPLEX
14639 +/-
14640 X=0?
14641 GTO 01
14642 COMPLEX
14643 RCL "P1"
14644 +
14645 SF 25
14646 1/X
14647 RCL "P0"
14648 ×
14649 RCL "#GRAD"
14650 ×
14651 STO- "#XLAGb"
14652 RCL "#XLAGb"
14653 STO "XP"
14654 INDEX "PAI"
14655 RCLEL
14656 STO "#GRAD"
14657 CLST
14658 XEQ 21
14659 STO "#YLAGb"
14660 RCL "#XLAGa"
14661 RCL "#XLAGb"
14662 RCL "#YLAGa"
14663 ABS
14664 RCL "#YLAGb"
14665 ABS
14666 X<Y?
14667 R↑
14668 R↑
14669 STO "#XLAG"
14670 STO "#XAuto"
14671 RCL "#YLAGa"
14672 RCL "#YLAGb"
14673 RCL "#YLAGa"
14674 ABS
14675 RCL "#YLAGb"
14676 ABS
14677 X<Y?
14678 R↑
14679 R↑
14680 STO "#YLAG"
14681 STO "#YAuto"
14682▸LBL 01
14683 CLV "#XLAGa"
14684 CLV "#XLAGb"
14685 CLV "#YLAGa"
14686 CLV "#YLAGb"
14687 INDEX "PAI"
14688 RCLEL
14689 STO "#GRAD"
14690 RCL "P1"
14691 X↑2
14692 RCL "#GRAD"
14693 1
14694 -
14695 ×
14696 RCL "P0"
14697 RCL "P2"
14698 ×
14699 RCL "#GRAD"
14700 ×
14701 -
14702 RCL "#GRAD"
14703 RCL "#M"
14704 SF 25
14705 1/X
14706 ×
14707 1
14708 -
14709 ×
14710 RCL "#XDIFF"
14711 X<>Y
14712 ABS
14713 X≤Y?
14714 CLX
14715 X≠0?
14716 LASTX
14717 SQRT
14718 RCL "P1"
14719 0
14720 ENTER
14721 COMPLEX
14722 +
14723 COMPLEX
14724 R↓
14725 SIGN
14726 ×
14727 STO "#√"
14728 RCL "P1"
14729 +
14730 SF 25
14731 1/X
14732 RCL "P0"
14733 ×
14734 RCL "#GRAD"
14735 ×
14736 STO- "#XLAGna"
14737 RCL "#XLAGna"
14738 STO "#XLAGn"
14739 STO "XP"
14740 INDEX "PAI"
14741 RCLEL
14742 STO "#GRAD"
14743 CLST
14744 XEQ 21
14745 STO "#YLAGna"
14746 STO "#YLAGn"
14747 INDEX "PAI"
14748 RCLEL
14749 STO "#GRAD"
14750 RCL "#√"
14751 CLV "#√"
14752 0
14753 ENTER
14754 COMPLEX
14755 +
14756 COMPLEX
14757 X=0?
14758 GTO 01
14759 +/-
14760 COMPLEX
14761 RCL "P1"
14762 +
14763 SF 25
14764 1/X
14765 RCL "P0"
14766 ×
14767 RCL "#GRAD"
14768 ×
14769 STO- "#XLAGnb"
14770 RCL "#XLAGnb"
14771 STO "XP"
14772 INDEX "PAI"
14773 RCLEL
14774 STO "#GRAD"
14775 CLST
14776 XEQ 21
14777 STO "#YLAGnb"
14778 RCL "#XLAGna"
14779 RCL "#XLAGnb"
14780 RCL "#YLAGna"
14781 ABS
14782 RCL "#YLAGnb"
14783 ABS
14784 X<Y?
14785 R↑
14786 R↑
14787 STO "#XLAGn"
14788 RCL "#YLAGna"
14789 RCL "#YLAGnb"
14790 RCL "#YLAGna"
14791 ABS
14792 RCL "#YLAGnb"
14793 ABS
14794 X<Y?
14795 R↑
14796 R↑
14797 STO "#YLAGn"
14798▸LBL 01
14799 CLV "#XLAGna"
14800 CLV "#XLAGnb"
14801 CLV "#YLAGna"
14802 CLV "#YLAGnb"
14803 " LAG"
14804 ASTO "#VERF"
14805 INDEX "PAI"
14806 RCLEL
14807 STO "#GRAD"
14808 RCL "#XAuto"
14809 RCL "#XLAGn"
14810 RCL "#YAuto"
14811 ABS
14812 RCL "#YLAGn"
14813 ABS
14814 X<Y?
14815 R↑
14816 R↑
14817 STO "#XAuto"
14818 RCL "#YAuto"
14819 RCL "#YLAGn"
14820 RCL "#YAuto"
14821 ABS
14822 RCL "#YLAGn"
14823 ABS
14824 X<Y?
14825 R↑
14826 R↑
14827 STO "#YAuto"
14828 RCL "P0"
14829 RCL "P1"
14830 SF 25
14831 1/X
14832 ×
14833 STO- "#XNwtn"
14834 RCL "#M"
14835 ×
14836 STO- "#XNwtnn"
14837 RCL "#XNwtn"
14838 STO "XP"
14839 INDEX "PAI"
14840 RCLEL
14841 STO "#GRAD"
14842 CLST
14843 XEQ 21
14844 STO "#YNwtn"
14845 RCL "#XAuto"
14846 RCL "#XNwtn"
14847 RCL "#YAuto"
14848 ABS
14849 RCL "#YNwtn"
14850 ABS
14851 X<Y?
14852 R↑
14853 R↑
14854 STO "#XAuto"
14855 RCL "#YAuto"
14856 RCL "#YNwtn"
14857 RCL "#YAuto"
14858 ABS
14859 RCL "#YNwtn"
14860 ABS
14861 X<Y?
14862 R↑
14863 R↑
14864 STO "#YAuto"
14865 RCL "#VERF"
14866 " Nwtn"
14867 ASTO ST Y
14868 RCL "#YNwtn"
14869 ABS
14870 RCL "#YAuto"
14871 ABS
14872 X<Y?
14873 R↑
14874 R↑
14875 STO "#VERF"
14876 RCL "#XNwtn"
14877 RCL "#XNwtnn"
14878 X=Y?
14879 GTO 01
14880 STO "XP"
14881 INDEX "PAI"
14882 RCLEL
14883 STO "#GRAD"
14884 CLST
14885 XEQ 21
14886 STO "#YNwtnn"
14887 RCL "#XAuto"
14888 RCL "#XNwtnn"
14889 RCL "#YAuto"
14890 ABS
14891 RCL "#YNwtnn"
14892 ABS
14893 X<Y?
14894 R↑
14895 R↑
14896 STO "#XAuto"
14897 RCL "#YAuto"
14898 RCL "#YNwtnn"
14899 RCL "#YAuto"
14900 ABS
14901 RCL "#YNwtnn"
14902 ABS
14903 X<Y?
14904 R↑
14905 R↑
14906 STO "#YAuto"
14907 RCL "#VERF"
14908 " Nwtnn"
14909 ASTO ST Y
14910 RCL "#YNwtnn"
14911 ABS
14912 RCL "#YAuto"
14913 ABS
14914 X<Y?
14915 R↑
14916 R↑
14917 STO "#VERF"
14918▸LBL 01
14919 RCL "P1"
14920 X↑2
14921 RCL "P3"
14922 ×
14923 RCL "P2"
14924 SF 25
14925 1/X
14926 ×
14927 3
14928 ÷
14929 RCL "P1"
14930 RCL "P2"
14931 ×
14932 -
14933 RCL "P0"
14934 ×
14935 RCL "P1"
14936 3
14937 Y↑X
14938 +
14939 STO+ ST X
14940 SF 25
14941 1/X
14942 RCL "P0"
14943 X↑2
14944 ×
14945 RCL "P2"
14946 ×
14947 RCL "P0"
14948 RCL "P1"
14949 SF 25
14950 1/X
14951 ×
14952 +
14953 STO- "#XBSCP"
14954 RCL "#M"
14955 2
14956 +
14957 3
14958 ÷
14959 ×
14960 STO- "#XBSCPn"
14961 RCL "#XBSCP"
14962 STO "XP"
14963 INDEX "PAI"
14964 RCLEL
14965 STO "#GRAD"
14966 CLST
14967 XEQ 21
14968 STO "#YBSCP"
14969 RCL "#XAuto"
14970 RCL "#XBSCP"
14971 RCL "#YAuto"
14972 ABS
14973 RCL "#YBSCP"
14974 ABS
14975 X<Y?
14976 R↑
14977 R↑
14978 STO "#XAuto"
14979 RCL "#YAuto"
14980 RCL "#YBSCP"
14981 RCL "#YAuto"
14982 ABS
14983 RCL "#YBSCP"
14984 ABS
14985 X<Y?
14986 R↑
14987 R↑
14988 STO "#YAuto"
14989 RCL "#VERF"
14990 " BSCP"
14991 ASTO ST Y
14992 RCL "#YBSCP"
14993 ABS
14994 RCL "#YAuto"
14995 ABS
14996 X<Y?
14997 R↑
14998 R↑
14999 STO "#VERF"
15000 RCL "#XBSCP"
15001 RCL "#XBSCPn"
15002 X=Y?
15003 GTO 01
15004 STO "XP"
15005 INDEX "PFI"
15006 RCLEL
15007 STO "#GRAD"
15008 CLST
15009 XEQ 21
15010 STO "#YBSCPn"
15011 RCL "#XAuto"
15012 RCL "#XBSCPn"
15013 RCL "#YAuto"
15014 ABS
15015 RCL "#YBSCPn"
15016 ABS
15017 X<Y?
15018 R↑
15019 R↑
15020 STO "#XAuto"
15021 RCL "#YAuto"
15022 RCL "#YBSCPn"
15023 RCL "#YAuto"
15024 ABS
15025 RCL "#YBSCPn"
15026 ABS
15027 X<Y?
15028 R↑
15029 R↑
15030 STO "#YAuto"
15031 RCL "#VERF"
15032 " BSCPn"
15033 ASTO ST Y
15034 RCL "#YBSCPn"
15035 ABS
15036 RCL "#YAuto"
15037 ABS
15038 X<Y?
15039 R↑
15040 R↑
15041 STO "#VERF"
15042▸LBL 01
15043 RCL "P0"
15044 RCL "P2"
15045 ×
15046 RCL "P1"
15047 X↑2
15048 SF 25
15049 1/X
15050 ×
15051 STO "#F"
15052 RCL "P0"
15053 X↑2
15054 RCL "P3"
15055 ×
15056 RCL "P1"
15057 3
15058 Y↑X
15059 SF 25
15060 1/X
15061 ×
15062 STO "#E"
15063 ×
15064 5
15065 ×
15066 12
15067 ÷
15068 RCL "#E"
15069 6
15070 ÷
15071 +
15072 RCL "#E"
15073 X↑2
15074 12
15075 ÷
15076 -
15077 RCL "#F"
15078 X↑2
15079 LASTX
15080 +
15081 2
15082 ÷
15083 -
15084 1
15085 -
15086 RCL "P0"
15087 ×
15088 RCL "P1"
15089 SF 25
15090 1/X
15091 ×
15092 STO+ "#XSKOW"
15093 RCL "#M"
15094 2
15095 +
15096 3
15097 ÷
15098 ×
15099 STO+ "#XSKOWn"
15100 CLV "#E"
15101 CLV "#F"
15102 RCL "#XSKOW"
15103 STO "XP"
15104 INDEX "PAI"
15105 RCLEL
15106 STO "#GRAD"
15107 CLST
15108 XEQ 21
15109 STO "#YSKOW"
15110 RCL "#XAuto"
15111 RCL "#XSKOW"
15112 RCL "#YAuto"
15113 ABS
15114 RCL "#YSKOW"
15115 ABS
15116 X<Y?
15117 R↑
15118 R↑
15119 STO "#XAuto"
15120 RCL "#YAuto"
15121 RCL "#YSKOW"
15122 RCL "#YAuto"
15123 ABS
15124 RCL "#YSKOW"
15125 "ABS"
15126 X<Y?
15127 R↑
15128 R↑
15129 STO "#YAuto"
15130 RCL "#VERF"
15131 " SKOW"
15132 ASTO ST Y
15133 RCL "#YSKOW"
15134 ABS
15135 RCL "#YAuto"
15136 ABS
15137 X<Y?
15138 R↑
15139 R↑
15140 STO "#VERF"
15141 RCL "#XSKOW"
15142 RCL "#XSKOWn"
15143 X=Y?
15144 GTO 01
15145 STO "XP"
15146 INDEX "PFI"
15147 RCLEL
15148 STO "#GRAD"
15149 CLST
15150 XEQ 21
15151 STO "#YSKOWn"
15152 RCL "#XAuto"
15153 RCL "#XSKOWn"
15154 RCL "#YAuto"
15155 ABS
15156 RCL "#YSKOWn"
15157 ABS
15158 X<Y?
15159 R↑
15160 R↑
15161 STO "#XAuto"
15162 RCL "#YAuto"
15163 RCL "#YSKOWn"
15164 RCL "#YAuto"
15165 ABS
15166 RCL "#YSKOWn"
15167 ABS
15168 X<Y?
15169 R↑
15170 R↑
15171 STO "#YAuto"
15172 RCL "#VERF"
15173 " SKOWn"
15174 ASTO ST Y
15175 RCL "#YSKOWn"
15176 ABS
15177 RCL "#YAuto"
15178 ABS
15179 X<Y?
15180 R↑
15181 R↑
15182 STO "#VERF"
15183▸LBL 01
15184 RCL "P1"
15185 X↑2
15186 STO+ ST X
15187 RCL "P0"
15188 RCL "P2"
15189 ×
15190 -
15191 RCL "P0"
15192 ×
15193 3
15194 ×
15195 RCL "P1"
15196 X↑2
15197 RCL "P0"
15198 RCL "P2"
15199 ×
15200 -
15201 RCL "P1"
15202 ×
15203 6
15204 ×
15205 RCL "P0"
15206 X↑2
15207 RCL "P3"
15208 ×
15209 +
15210 SF 25
15211 1/X
15212 ×
15213 STO- "#XKOE"
15214 RCL "#M"
15215 2
15216 +
15217 3
15218 ÷
15219 ×
15220 STO- "#XKOEn"
15221 RCL "#XKOE"
15222 STO "XP"
15223 INDEX "PFI"
15224 RCLEL
15225 STO "#GRAD"
15226 CLST
15227 XEQ 21
15228 STO "#YKOE"
15229 RCL "#XAuto"
15230 RCL "#XKOE"
15231 RCL "#YAuto"
15232 ABS
15233 RCL "#YKOE"
15234 ABS
15235 X<Y?
15236 R↑
15237 R↑
15238 STO "#XAuto"
15239 RCL "#YAuto"
15240 RCL "#YKOE"
15241 RCL "#YAuto"
15242 ABS
15243 RCL "#YKOE"
15244 ABS
15245 X<Y?
15246 R↑
15247 R↑
15248 STO "#YAuto"
15249 RCL "#VERF"
15250 " KOE"
15251 ASTO ST Y
15252 RCL "#YKOE"
15253 ABS
15254 RCL "#YAuto"
15255 ABS
15256 X<Y?
15257 R↑
15258 R↑
15259 STO "#VERF"
15260 RCL "#XKOE"
15261 RCL "#XKOEn"
15262 X=Y?
15263 GTO 01
15264 STO "XP"
15265 INDEX "PFI"
15266 RCLEL
15267 STO "#GRAD"
15268 CLST
15269 XEQ 21
15270 STO "#YKOEn"
15271 RCL "#XAuto"
15272 RCL "#XKOEn"
15273 RCL "#YAuto"
15274 ABS
15275 RCL "#YKOEn"
15276 ABS
15277 X<Y?
15278 R↑
15279 R↑
15280 STO "#XAuto"
15281 RCL "#YAuto"
15282 RCL "#YKOEn"
15283 RCL "#YAuto"
15284 ABS
15285 RCL "#YKOEn"
15286 ABS
15287 X<Y?
15288 R↑
15289 R↑
15290 STO "#YAuto"
15291 RCL "#VERF"
15292 " KOEn"
15293 ASTO ST Y
15294 RCL "#YKOEn"
15295 ABS
15296 RCL "#YAuto"
15297 ABS
15298 X<Y?
15299 R↑
15300 R↑
15301 STO "#VERF"
15302▸LBL 01
15303 RCL "P0"
15304 RCL "P2"
15305 ×
15306 RCL "P1"
15307 X↑2
15308 STO+ ST X
15309 SF 25
15310 1/X
15311 ×
15312 1
15313 +
15314 RCL "P0"
15315 ×
15316 RCL "P1"
15317 SF 25
15318 1/X
15319 ×
15320 STO- "#XCHEB"
15321 RCL "#XCHEB"
15322 STO "XP"
15323 INDEX "PAI"
15324 RCLEL
15325 STO "#GRAD"
15326 CLST
15327 XEQ 21
15328 STO "#YCHEB"
15329 RCL "#XAuto"
15330 RCL "#XCHEB"
15331 RCL "#YAuto"
15332 ABS
15333 RCL "#YCHEB"
15334 ABS
15335 X<Y?
15336 R↑
15337 R↑
15338 STO "#XAuto"
15339 RCL "#YAuto"
15340 RCL "#YCHEB"
15341 RCL "#YAuto"
15342 ABS
15343 RCL "#YCHEB"
15344 ABS
15345 X<Y?
15346 R↑
15347 R↑
15348 STO "#YAuto"
15349 RCL "#VERF"
15350 " CHEB"
15351 ASTO ST Y
15352 RCL "#YCHEB"
15353 ABS
15354 RCL "#YAuto"
15355 ABS
15356 X<Y?
15357 R↑
15358 R↑
15359 STO "#VERF"
15360 RCL "P0"
15361 RCL "P2"
15362 ×
15363 RCL "P1"
15364 X↑2
15365 SF 25
15366 1/X
15367 ×
15368 RCL "#M"
15369 X↑2
15370 ×
15371 2
15372 ÷
15373 3
15374 RCL "#M"
15375 -
15376 LASTX
15377 ×
15378 2
15379 ÷
15380 +
15381 RCL "P0"
15382 ×
15383 RCL "P1"
15384 SF 25
15385 1/X
15386 ×
15387 STO- "#XCHEBn"
15388 RCL "#XCHEB"
15389 RCL "#XCHEBn"
15390 X=Y?
15391 GTO 01
15392 STO "XP"
15393 INDEX "PAI"
15394 RCLEL
15395 STO "#GRAD"
15396 CLST
15397 XEQ 21
15398 STO "#YCHEBn"
15399 RCL "#XAuto"
15400 RCL "#XCHEBn"
15401 RCL "#YAuto"
15402 ABS
15403 RCL "#YCHEBn"
15404 ABS
15405 X<Y?
15406 R↑
15407 R↑
15408 STO "#YAuto"
15409 RCL "#YAuto"
15410 RCL "#YCHEBn"
15411 RCL "#YAuto"
15412 ABS
15413 RCL "#YCHEBn"
15414 ABS
15415 X<Y?
15416 R↑
15417 R↑
15418 STO "#YAuto"
15419 RCL "#VERF"
15420 " CHEB"
15421 ASTO ST Y
15422 RCL "#YCHEBn"
15423 ABS
15424 RCL "#YAuto"
15425 ABS
15426 X<Y?
15427 R↑
15428 R↑
15429 STO "#VERF"
15430▸LBL 01
15431 RCL "P1"
15432 X↑2
15433 STO+ ST X
15434 RCL "P0"
15435 RCL "P2"
15436 ×
15437 -
15438 SF 25
15439 1/X
15440 RCL "P0"
15441 ×
15442 RCL "P1"
15443 ×
15444 STO+ ST X
15445 STO- "#XHALL"
15446 RCL "#XHALL"
15447 STO "XP"
15448 INDEX "PAI"
15449 RCLEL
15450 STO "#GRAD"
15451 CLST
15452 XEQ 21
15453 STO "#YHALL"
15454 RCL "#XAuto"
15455 RCL "#XHALL"
15456 RCL "#YAuto"
15457 ABS
15458 RCL "#YHALL"
15459 ABS
15460 X<Y?
15461 R↑
15462 R↑
15463 STO "#XAuto"
15464 RCL "#YAuto"
15465 RCL "#YHALL"
15466 RCL "#YAuto"
15467 ABS
15468 RCL "#YHALL"
15469 ABS
15470 X<Y?
15471 R↑
15472 R↑
15473 STO "#YAuto"
15474 RCL "#VERF"
15475 " HALL"
15476 ASTO ST Y
15477 RCL "#YHALL"
15478 ABS
15479 RCL "#YAuto"
15480 ABS
15481 X<Y?
15482 R↑
15483 R↑
15484 STO "#VERF"
15485 RCL "P1"
15486 X↑2
15487 RCL "#M"
15488 1
15489 +
15490 ×
15491 RCL "P0"
15492 RCL "P2"
15493 ×
15494 RCL "#M"
15495 ×
15496 -
15497 SF 25
15498 1/X
15499 RCL "P0"
15500 ×
15501 RCL "P1"
15502 ×
15503 RCL "#M"
15504 ×
15505 STO+ ST X
15506 STO- "#XHALLn"
15507 RCL "#XHALL"
15508 RCL "#XHALLn"
15509 X=Y?
15510 GTO 01
15511 STO "XP"
15512 INDEX "PAI"
15513 RCLEL
15514 STO "#GRAD"
15515 CLST
15516 XEQ 21
15517 STO "#YHALLn"
15518 RCL "#XAuto"
15519 RCL "#XHALLn"
15520 RCL "#YAuto"
15521 ABS
15522 RCL "#YHALLn"
15523 ABS
15524 X<Y?
15525 R↑
15526 R↑
15527 STO "#XAuto"
15528 RCL "#YAuto"
15529 RCL "#YHALLn"
15530 RCL "#YAuto"
15531 ABS
15532 RCL "#YHALLn"
15533 ABS
15534 X<Y?
15535 R↑
15536 R↑
15537 STO "#YAuto"
15538 RCL "#VERF"
15539 " HALL"
15540 ASTO ST Y
15541 RCL "#YHALLn"
15542 ABS
15543 RCL "#YAuto"
15544 ABS
15545 X<Y?
15546 R↑
15547 R↑
15548 STO "#VERF"
15549▸LBL 01
15550 RCL "P1"
15551 X↑2
15552 RCL "P0"
15553 RCL "P2"
15554 ×
15555 -
15556 SQRT
15557 RCL "P1"
15558 0
15559 ENTER
15560 COMPLEX
15561 +
15562 COMPLEX
15563 R↓
15564 SIGN
15565 ×
15566 SF 25
15567 1/X
15568 RCL "P0"
15569 ×
15570 STO- "#XOSTR"
15571 RCL "#M"
15572 SQRT
15573 ×
15574 STO- "#XOSTRn"
15575 RCL "#XOSTR"
15576 STO "XP"
15577 INDEX "PAI"
15578 RCLEL
15579 STO "#GRAD"
15580 CLST
15581 XEQ 21
15582 STO "#YOSTR"
15583 RCL "#XAuto"
15584 RCL "#XOSTR"
15585 RCL "#YAuto"
15586 ABS
15587 RCL "#YOSTR"
15588 ABS
15589 X<Y?
15590 R↑
15591 R↑
15592 STO "#XAuto"
15593 RCL "#YAuto"
15594 RCL "#YOSTR"
15595 RCL "#YAuto"
15596 ABS
15597 RCL "#YOSTR"
15598 ABS
15599 X<Y?
15600 R↑
15601 R↑
15602 STO "#YAuto"
15603 RCL "#VERF"
15604 " OSTR"
15605 ASTO ST Y
15606 RCL "#YOSTR"
15607 ABS
15608 RCL "#YAuto"
15609 ABS
15610 X<Y?
15611 R↑
15612 R↑
15613 STO "#VERF"
15614 RCL "#XOSTR"
15615 RCL "#XOSTRn"
15616 X=Y?
15617 GTO 01
15618 STO "XP"
15619 INDEX "PAI"
15620 RCLEL
15621 STO "#GRAD"
15622 CLST
15623 XEQ 21
15624 STO "#YOSTRn"
15625 RCL "#XAuto"
15626 RCL "#XOSTRn"
15627 RCL "#YAuto"
15628 ABS
15629 RCL "#YOSTRn"
15630 ABS
15631 X<Y?
15632 R↑
15633 R↑
15634 STO "#XAuto"
15635 RCL "#YAuto"
15636 RCL "#YOSTRn"
15637 RCL "#YAuto"
15638 ABS
15639 RCL "#YOSTRn"
15640 ABS
15641 X<Y?
15642 R↑
15643 R↑
15644 STO "#YAuto"
15645 RCL "#VERF"
15646 " OSTR"
15647 ASTO ST Y
15648 RCL "#YOSTRn"
15649 ABS
15650 RCL "#YAuto"
15651 ABS
15652 X<Y?
15653 R↑
15654 R↑
15655 STO "#VERF"
15656▸LBL 01
15657 "extrn"
15658 ASTO ST X
15659 RCL "#METHOD"
15660 X≠Y?
15661 GTO 01
15662 RCL "P0"
15663 STO "F0"
15664 RCL "#Xextrn"
15665 STO "XP"
15666 STO "XF"
15667 XEQ IND "#extrn"
15668 STO "#Xextrn"
15669 STO "XP"
15670 INDEX "PAI"
15671 RCLEL
15672 STO "#GRAD"
15673 CLST
15674 XEQ 21
15675 STO "#Yextrn"
15676 STO "P0"
15677 RTN
15678▸LBL 01
15679 CLA
15680 "#X"
15681 ARCL "#METHOD"
15682 1
15683 RCL "#MULT"
15684 X>Y?
15685 ├"n"
15686 XASTO ST X
15687 SF 25
15688 RCL IND ST X
15689 XASTO ST X
15690 CLA
15691 "#X"
15692 ARCL "#METHOD"
15693 FC? 25
15694 XASTO ST X
15695 RCL IND ST X
15696 STO "XP"
15697 "#Y"
15698 ARCL "#METHOD"
15699 1
15700 RCL "#MULT"
15701 X>Y?
15702 ├"n"
15703 XASTO ST X
15704 SF 25
15705 RCL IND ST X
15706 XASTO ST X
15707 CLA
15708 "#Y"
15709 ARCL "#METHOD"
15710 FC? 25
15711 XASTO ST X
15712 RCL IND ST X
15713 STO "P0"
15714 RTN
15715▸LBL 86
15716 X<>Y
15717 FP
15718 X=0?
15719 RTN
15720 10
15721 ×
15722 AIP
15723 ALENG
15724 RCL "#LDSP"
15725 -
15726 X<0?
15727 GTO 86
15728 RTN
15729▸LBL 87
15730 ALENG
15731 RCL "#LDSP"
15732 -
15733 X≥0?
15734 RTN
15735 ├" "
15736 GTO 87
15737▸LBL 02
15738 "BAIR: N-IT Xj"
15739 "SHOW R"
15740 ASTO ST X
15741 RCL "#CMD"
15742 X≠Y?
15743 GTO 02
15744 CLV "#N-IT"
15745 GTO 82
15746▸LBL 02
15747 "BAIR: N-IT PXI"
15748 CLV "#N-IT"
15749 GTO 82
15750▸LBL 88
15751 "CALC err"
15752 INDEX "PAI"
15753 J-
15754 RCLEL
15755 STO "#Ao"
15756 INDEX "PAI"
15757 J+
15758 RCLEL
15759 SF 25
15760 1/X
15761 STO "#An"
15762 J+
15763 RCLEL
15764 ×
15765 ABS
15766 STO "#An-1"
15767 RCL "#Ao"
15768 RCL "#An"
15769 ×
15770 ABS
15771 STO "#Ao"
15772 CLV "#An"
15773 INDEX "PXI=0"
15774 1
15775 STO "#πXi"
15776 CLX
15777 STO "#ΣXi"
15778 STO "#ΣYi"
15779 STO "#maxYi"
15780▸LBL 89
15781 J+
15782 RCLEL
15783 J+
15784 RCLEL
15785 COMPLEX
15786 STO+ "#ΣXi"
15787 STO× "#πXi"
15788 J+
15789 J+
15790 J+
15791 RCLEL
15792 ABS
15793 STO+ "#ΣYi"
15794 RCL "#maxYi"
15795 X<Y?
15796 X<>Y
15797 STO "#maxYi"
15798 J+
15799 RCLIJ
15800 X<>Y
15801 1
15802 X≠Y?
15803 GTO 89
15804 RCL "#ΣXi"
15805 ABS
15806 RCL "#An-1"
15807 -
15808 ABS
15809 STO "#ΣXi"
15810 RCL "#πXi"
15811 ABS
15812 RCL "#Ao"
15813 -
15814 ABS
15815 STO "#πXi"
15816 RTN
15817▸LBL 90
15818 "CHECK eps"
15819 0
15820 ENTER
15821 COMPLEX
15822 +
15823 COMPLEX
15824 STO "##I"
15825 ABS
15826 RCL "#eps"
15827 X>Y?
15828 CLX
15829 X=0?
15830 STO "##I"
15831 RCL ST Z
15832 STO "##R"
15833 ABS
15834 RCL "#eps"
15835 X>Y?
15836 CLX
15837 X=0?
15838 STO "##R"
15839 RCL "##R"
15840 RCL "##I"
15841 COMPLEX
15842 RCL "##R"
15843 RCL "##I"
15844 X≠0?
15845 R↓
15846 R↓
15847 CLV "##R"
15848 CLV "##I"
15849 RTN
15850▸LBL 91
15851 "CALC Ynextm"
15852 "n=0:4 m=0...9"
15853 RCL "##A0"
15854 STO "Xext"
15855 CLV "##A0"
15856 CLV "##A1"
15857 CLV "##A2"
15858 CLV "##A3"
15859 INDEX "PAI"
15860 RCL "Xext"
15861 0
15862 STO "Y0ext"
15863 STO "Y1ext"
15864 STO "Y2ext"
15865 STO "Y3ext"
15866 STO "Y4ext"
15867 ENTER
15868 COMPLEX
15869 +
15870 ENTER
15871 COMPLEX
15872 X≠0?
15873 COMPLEX
15874 R↓
15875 STO "Xext"
15876 RCLEL
15877 STO "#GRAD"
15878 RCL "Xext"
15879 ABS
15880 X≠0?
15881 GTO 92
15882 J-
15883 RCLEL
15884 RCL "#GRAD"
15885 X≠0?
15886 SIGN
15887 X<0?
15888 CLX
15889 ×
15890 STO "Y0ext"
15891 J-
15892 RCLEL
15893 RCL "#GRAD"
15894 1
15895 -
15896 X≠0?
15897 SIGN
15898 X<0?
15899 CLX
15900 ×
15901 STO "Y1ext"
15902 J-
15903 RCLEL
15904 2
15905 ×
15906 RCL "#GRAD"
15907 2
15908 -
15909 X≠0?
15910 SIGN
15911 X<0?
15912 CLX
15913 ×
15914 STO "Y2ext"
15915 J-
15916 RCLEL
15917 6
15918 ×
15919 RCL "#GRAD"
15920 3
15921 -
15922 X≠0?
15923 SIGN
15924 X<0?
15925 CLX
15926 ×
15927 STO "Y3ext"
15928 J-
15929 RCLEL
15930 24
15931 ×
15932 RCL "#GRAD"
15933 4
15934 -
15935 X≠0?
15936 SIGN
15937 X<0?
15938 CLX
15939 ×
15940 STO "Y4ext"
15941 GTO 93
15942▸LBL 92
15943 RCL "#GRAD"
15944 X<0?
15945 GTO 93
15946 J+
15947 RCLEL
15948 STO+ "Y0ext"
15949 RCL "#GRAD"
15950 ×
15951 LASTX
15952 1
15953 -
15954 SIGN
15955 X<0?
15956 CLX
15957 ×
15958 STO+ "Y1ext"
15959 RCL "#GRAD"
15960 1
15961 -
15962 ×
15963 RCL "#GRAD"
15964 2
15965 -
15966 SIGN
15967 X<0?
15968 CLX
15969 ×
15970 STO+ "Y2ext"
15971 RCL "#GRAD"
15972 2
15973 -
15974 ×
15975 RCL "#GRAD"
15976 3
15977 -
15978 SIGN
15979 X<0?
15980 CLX
15981 ×
15982 STO+ "Y3ext"
15983 RCL "#GRAD"
15984 3
15985 -
15986 ×
15987 RCL "#GRAD"
15988 4
15989 -
15990 SIGN
15991 X<0?
15992 CLX
15993 ×
15994 STO+ "Y4ext"
15995 RCL "Xext"
15996 RCL "#GRAD"
15997 X≠0?
15998 SIGN
15999 X<0?
16000 CLX
16001 ×
16002 SF 25
16003 1/X
16004 FS? 25
16005 LASTX
16006 FS? 25
16007 STO× "Y0ext"
16008 RCL "#GRAD"
16009 1
16010 -
16011 X≠0?
16012 SIGN
16013 X<0?
16014 CLX
16015 ×
16016 SF 25
16017 1/X
16018 FS? 25
16019 LASTX
16020 FS? 25
16021 STO× "Y1ext"
16022 RCL "#GRAD"
16023 2
16024 -
16025 X≠0?
16026 SIGN
16027 X<0?
16028 CLX
16029 ×
16030 SF 25
16031 1/X
16032 FS? 25
16033 LASTX
16034 FS? 25
16035 STO× "Y2ext"
16036 RCL "#GRAD"
16037 3
16038 -
16039 X≠0?
16040 SIGN
16041 X<0?
16042 CLX
16043 ×
16044 SF 25
16045 1/X
16046 FS? 25
16047 LASTX
16048 FS? 25
16049 STO× "Y3ext"
16050 RCL "#GRAD"
16051 4
16052 -
16053 X≠0?
16054 SIGN
16055 X<0?
16056 CLX
16057 ×
16058 SF 25
16059 1/X
16060 FS? 25
16061 LASTX
16062 FS? 25
16063 STO× "Y4ext"
16064 1
16065 STO- "#GRAD"
16066 GTO 92
16067▸LBL 93
16068 RCL "Xext"
16069 STO IND "#####"
16070 RCL "#####"
16071 1
16072 SUBSTR
16073 STO "#####"
16074 "Y0"
16075 ASTO ST Y
16076 APPEND
16077 RCL "Y0ext"
16078 STO IND ST Y
16079 "Y1"
16080 ASTO ST X
16081 RCL "#####"
16082 APPEND
16083 RCL "Y1ext"
16084 STO IND ST Y
16085 "Y2"
16086 ASTO ST X
16087 RCL "#####"
16088 APPEND
16089 RCL "Y2ext"
16090 STO IND ST Y
16091 "Y3"
16092 ASTO ST X
16093 RCL "#####"
16094 APPEND
16095 RCL "Y3ext"
16096 STO IND ST Y
16097 "Y4"
16098 ASTO ST X
16099 RCL "#####"
16100 APPEND
16101 RCL "Y4ext"
16102 STO IND ST Y
16103 SF 25
16104 RTN
16105▸LBL 95
16106 "PRT PARA BAIR"
16107 ADV
16108 "------------"
16109 ├"------------"
16110 PRA
16111 "Verfahren: "
16112 ├"BAIR"
16113 PRA
16114 "Iterationen: "
16115 ├"IT = "
16116 RCL "#IT"
16117 AIP
16118 PRA
16119 RCL "#nROOTS"
16120 "eine "
16121 ├"Nullstelle"
16122 X=0?
16123 "alle "
16124 X=0?
16125 ├"Nullstellen"
16126 PRA
16127 "|dp| = "
16128 SF 25
16129 ARCL "#dP"
16130 FC? 25
16131 1ᴇ-10
16132 FC? 25
16133 STO "#dP"
16134 FC? 25
16135 ARCL "#dP"
16136 PRA
16137 "|dq| = "
16138 SF 25
16139 ARCL "#dQ"
16140 FC? 25
16141 1ᴇ-10
16142 FC? 25
16143 STO "#dQ"
16144 FC? 25
16145 ARCL "#dQ"
16146 PRA
16147 "|Bo|+|B1| = "
16148 SF 25
16149 ARCL "#dB0B1"
16150 FC? 25
16151 1ᴇ-10
16152 FC? 25
16153 STO "#dB0B1"
16154 FC? 25
16155 ARCL "#dB0B1"
16156 PRA
16157 "Drucken: PRT"
16158 RCL "#PRTYN"
16159 X<0?
16160 ├"-"
16161 X=0?
16162 ├"0"
16163 X>0?
16164 ├"+"
16165 PRA
16166 "  "
16167 X<0?
16168 ├"Nichts"
16169 X=0?
16170 ├"Nur "
16171 X=0?
16172 ├"Ergebnisse"
16173 X>0?
16174 ├"Alles"
16175 ├" drucken"
16176 PRA
16177 "------------"
16178 ├"------------"
16179 PRA
16180 ADV
16181 RTN
16182▸LBL 96
16183 "PRT PARA FAM."
16184 ADV
16185 "------------"
16186 ├"------------"
16187 PRA
16188 "Verfahren: "
16189 ARCL "#METHOD"
16190 PRA
16191 "Vielfachheit: "
16192 ├" m "
16193 RCL "#MULT"
16194 1
16195 X=Y?
16196 ├"= 1"
16197 STO+ ST X
16198 X=Y?
16199 ├"≤ 2"
16200 STO+ ST X
16201 X=Y?
16202 ├"= m"
16203 1
16204 -
16205 X=Y?
16206 ├"= m/2"
16207 PRA
16208 "Iterationen: "
16209 ├"IT = "
16210 RCL "#IT"
16211 AIP
16212 PRA
16213 RCL "#nROOTS"
16214 "eine "
16215 ├"NULLSTELLE"
16216 X=0?
16217 "alle "
16218 X=0?
16219 ├"NULLSTELLEN"
16220 PRA
16221 "|dX| = "
16222 ARCL "#XDIFF"
16223 PRA
16224 "|dY| = "
16225 ARCL "#YDIFF"
16226 PRA
16227 "Drucken: PRT"
16228 RCL "#PRTYN"
16229 X<0?
16230 ├"-"
16231 X=0?
16232 ├"0"
16233 X>0?
16234 ├"+"
16235 PRA
16236 "  "
16237 X<0?
16238 ├"Nichts"
16239 X=0?
16240 ├"Nur "
16241 X=0?
16242 ├"Ergebnisse"
16243 X>0?
16244 ├"Alles"
16245 ├" drucken"
16246 PRA
16247 "------------"
16248 ├"------------"
16249 PRA
16250 ADV
16251 RTN
16252▸LBL 97
16253 ADV
16254 "============"
16255 ├"============"
16256 PRA
16257 "HPOLY"
16258 PRA
16259 "============"
16260 ├"============"
16261 PRA
16262 ADV
16263 "FORMELN"
16264 ├" Vielfachheit"
16265 PRA
16266 ADV
16267 "       Y'Y'"
16268 PRA
16269 "m = ----------"
16270 PRA
16271 "    Y'Y' - YY""
16272 PRA
16273 ADV
16274 "            Y""
16275 ├"Y""
16276 PRA
16277 "m = 1 + ------"
16278 ├"------"
16279 PRA
16280 "        Y"Y" -"
16281 ├" Y'Y'""
16282 PRA
16283 ADV
16284 "      2[Y'Y' -"
16285 ├" YY"]^3"
16286 PRA
16287 "m = ----------"
16288 ├"----------"
16289 PRA
16290 "   [YYY"'-3YY'"
16291 ├"Y"+2Y^3]^2"
16292 PRA
16293 ADV
16294 ADV
16295 "NULLSTELLEN-"
16296 ├"VERFAHREN:"
16297 PRA
16298 ADV
16299 "Laguerre"
16300 PRA
16301 ADV
16302 "             "
16303 ├" n"
16304 PRA
16305 "X = X - ------"
16306 ├"--------"
16307 PRA
16308 "        F + "
16309 ├"[sign(F)]W"
16310 PRA
16311 "     _________"
16312 ├"_______"
16313 PRA
16314 "W = √[(n-m)/m]"
16315 ├"[nG-FF]"
16316 PRA
16317 "F = Y' / Y"
16318 PRA
16319 "G = [Y'Y' - YY"
16320 ├""] / YY"
16321 PRA
16322 ADV
16323 ADV
16324 "Basto Semiao "
16325 ├"Calheiras"
16326 PRA
16327 ADV
16328 "        Y     "
16329 ├"   YYY""
16330 PRA
16331 "X = X - -- - -"
16332 ├"----------"
16333 PRA
16334 "        Y'   2"
16335 ├"Y'Y'Y'-2YB"
16336 PRA
16337 ADV
16338 "B = [Y'Y"-P]"
16339 ├" {-Petkovic}"
16340 PRA
16341 "P = [Y'Y'Y"']"
16342 ├" / 3Y""
16343 PRA
16344 ADV
16345 ADV
16346 "Skowron"
16347 PRA
16348 ADV
16349 "        Y    "
16350 ├" YS"
16351 PRA
16352 "X = X - -- - "
16353 ├"----"
16354 PRA
16355 "        Y'   "
16356 ├"12Y'"
16357 PRA
16358 ADV
16359 "S = 6F+6FF-2E"
16360 ├"-5EF+EE"
16361 PRA
16362 "F = [(YY") / "
16363 ├"(Y'Y')]"
16364 PRA
16365 "E = [(YYY"') /"
16366 ├" (Y'Y'Y')]"
16367 PRA
16368 ADV
16369 ADV
16370 "KÖnig: House"
16371 ├"holder 3.Ord"
16372 PRA
16373 ADV
16374 "        G"
16375 PRA
16376 "X = X - -"
16377 PRA
16378 "        H"
16379 PRA
16380 ADV
16381 "G = 6YY'Y' - "
16382 ├"3YYY"'"
16383 PRA
16384 "H = 6Y'Y'Y'-6"
16385 ├"YY'Y"+YYY"'"
16386 PRA
16387 ADV
16388 ADV
16389 "Chebyshev"
16390 PRA
16391 ADV
16392 "        mY 3-m"
16393 ├"   mYY""
16394 PRA
16395 "X = X - --[---"
16396 ├" + -----]"
16397 PRA
16398 "        Y'  2 "
16399 ├"   2Y'Y'"
16400 PRA
16401 ADV
16402 ADV
16403 "Halley"
16404 PRA
16405 ADV
16406 "             Y"
16407 PRA
16408 "X = X - ------"
16409 ├"-----"
16410 PRA
16411 "        m+1   "
16412 ├"  YY""
16413 PRA
16414 "        ---Y' "
16415 ├"- ---"
16416 PRA
16417 "        2m    "
16418 ├"  2Y'"
16419 PRA
16420 ADV
16421 ADV
16422 "Ostrowski"
16423 PRA
16424 ADV
16425 "             _"
16426 PRA
16427 "            √m"
16428 ├"Y"
16429 PRA
16430 "X = X - -----"
16431 ├"------"
16432 PRA
16433 "        [SIGN"
16434 ├"(Y')]W"
16435 PRA
16436 ADV
16437 "     _______"
16438 ├"____"
16439 PRA
16440 "W = √Y'Y' - "
16441 ├"YY''"
16442 PRA
16443 ADV
16444 ADV
16445 "Stoer-Bulirsch"
16446 PRA
16447 ADV
16448 "        Y' + "
16449 ├"[SIGN(Y')]W"
16450 PRA
16451 "X = X - -----"
16452 ├"-----------"
16453 PRA
16454 "             "
16455 ├"  Y""
16456 PRA
16457 "     ________"
16458 ├"_____"
16459 PRA
16460 "W = √[Y'Y' - "
16461 ├"2YY"]"
16462 PRA
16463 ADV
16464 ADV
16465 "Lin-Bairstow"
16466 PRA
16467 ADV
16468 "  | an an-1 "
16469 ├"…   a1    ao"
16470 PRA
16471 "p | ↓ -pbn  "
16472 ├"… -pb2  -pb1"
16473 PRA
16474 "q | ↓  0    "
16475 ├"… -qb3  -qb2"
16476 PRA
16477 "--+---------"
16478 ├"------------"
16479 PRA
16480 "  | bn bn-1 "
16481 ├"…   b1    bo"
16482 PRA
16483 "p | ↓ -pcn  "
16484 ├"… -pc2"
16485 PRA
16486 "q | ↓  0    "
16487 ├"… -qc3"
16488 PRA
16489 "--+---------"
16490 ├"------------"
16491 PRA
16492 "  | cn cn-1 "
16493 ├"…   c1    co"
16494 PRA
16495 ADV
16496 ADV
16497 "Bairstow-"
16498 ├"Korrektur"
16499 PRA
16500 ADV
16501 "        boc3 "
16502 ├"- b1c2"
16503 PRA
16504 "p = p - -----"
16505 ├"------"
16506 PRA
16507 "        c2c2 "
16508 ├"- c1c3"
16509 PRA
16510 ADV
16511 "        b1c1 "
16512 ├"- boc2"
16513 PRA
16514 "q = q - -----"
16515 ├"------"
16516 PRA
16517 "        c2c2 "
16518 ├"- c1c3"
16519 PRA
16520 ADV
16521 ADV
16522 "Lin-Korrektur"
16523 PRA
16524 ADV
16525 "    a1b2 - ao"
16526 ├"b3"
16527 PRA
16528 "p = ---------"
16529 ├"--"
16530 PRA
16531 "       b2b2"
16532 PRA
16533 ADV
16534 "q = ao / b2"
16535 PRA
16536 ADV
16537 ADV
16538 "extrn. "
16539 ├"VERFAHREN"
16540 PRA
16541 ADV
16542 "  LBL "...""
16543 PRA
16544 "  RCL "XP"  "
16545 ├" XP = X"
16546 PRA
16547 "  RCL "P0"  "
16548 ├" P0 = P(X)"
16549 PRA
16550 "  RCL "P1"  "
16551 ├" P1 = P'(X)"
16552 PRA
16553 "  RCL "P2"  "
16554 ├" P2 = P"(X)"
16555 PRA
16556 "  RCL "P3"  "
16557 ├" P3 = P'"(X)"
16558 PRA
16559 "  RCL "P4"  "
16560 ├" P4 = p""(X)"
16561 PRA
16562 "            "
16563 ├"Vielfachheit"
16564 PRA
16565 "  RCL "#M"  "
16566 ├"   Parameter"
16567 PRA
16568 "  RCL "#m"  "
16569 ├"   berechnet"
16570 PRA
16571 "  RCL "#CNT""
16572 ├"  Anz. Iter."
16573 PRA
16574 "  RCL #GRAD "
16575 ├"   Grad P(X)"
16576 "  :"
16577 PRA
16578 "  Zwischen"
16579 ├"berechnungen:"
16580 PRA
16581 "  Alpha = "
16582 ├"Xext0...Xext9"
16583 PRA
16584 "  X-Reg = X"
16585 PRA
16586 "  XEQ "HPOLY""
16587 PRA
16588 "  RCL "Xext0""
16589 ├"..."Xext9""
16590 PRA
16591 "       X0    "
16592 ├"    X9"
16593 PRA
16594 "  RCL "Y0ext0""
16595 ├".."Y4ext9""
16596 PRA
16597 "       Y(X0)  "
16598 ├"   Y""(X9)"
16599 PRA
16600 "  :"
16601 PRA
16602 "  (opt.) "
16603 ├"STO "XP""
16604 PRA
16605 "  RTN END"
16606 PRA
16607 ADV
16608 "============"
16609 ├"============"
16610 PRA
16611 ADV
16612 GTO 10
16613▸LBL 98
16614 8
16615 ENTER
16616 22
16617 SETDS
16618 4STK
16619 CF 19
16620 CF 20
16621 CF 22
16622 CF 24
16623 CF 25
16624 CLMENU
16625 EXITALL
16626 1
16627 INDEX "POI"
16628 RCLEL
16629 INDEX "QOI"
16630 RCLEL
16631 +
16632 40
16633 +
16634 50
16635 X>Y?
16636 X<>Y
16637 R↓
16638 DIM "HPReg"
16639 INDEX "HPReg"
16640 1
16641 ENTER
16642 23
16643 STOIJ
16644 "HPOLY"
16645 ASTO ST X
16646 STOEL
16647 J+
16648 99
16649 SF 25
16650 RCL "#IT"
16651 STOEL
16652 J+
16653 1ᴇ-10
16654 SF 25
16655 RCL "#YDIFF"
16656 STOEL
16657 J+
16658 1ᴇ-10
16659 SF 25
16660 RCL "#XDIFF"
16661 STOEL
16662 J+
16663 CLX
16664 SF 25
16665 RCL "#PRTYN"
16666 STOEL
16667 J+
16668 1
16669 SF 25
16670 RCL "#nROOTS"
16671 STOEL
16672 J+
16673 1
16674 SF 25
16675 RCL "#MULT"
16676 STOEL
16677 J+
16678 1ᴇ-10
16679 SF 25
16680 RCL "#dP"
16681 STOEL
16682 J+
16683 1ᴇ-10
16684 SF 25
16685 RCL "#dQ"
16686 STOEL
16687 J+
16688 1ᴇ-10
16689 SF 25
16690 RCL "#dB0B1"
16691 STOEL
16692 J+
16693 CLA
16694 SF 25
16695 ARCL "#METHOD"
16696 FC? 25
16697 "LAG"
16698 ASTO ST X
16699 STOEL
16700 J+
16701 CLA
16702 SF 25
16703 ARCL "#L-B-V"
16704 FC? 25
16705 "BAIR"
16706 ASTO ST X
16707 STOEL
16708 J+
16709 CLA
16710 SF 25
16711 ARCL "FKT-SEL"
16712 FC? 25
16713 "P"
16714 ASTO ST X
16715 STOEL
16716 J+
16717 "POI"
16718 ASTO ST X
16719 STOEL
16720 J+
16721 RCL "POI"
16722 PUTM
16723 DIM?
16724 RCLIJ
16725 RCL ST Z
16726 +
16727 STOIJ
16728 "QOI"
16729 ASTO ST X
16730 STOEL
16731 J+
16732 RCL "QOI"
16733 PUTM
16734▸LBL 98
16735 CLST
16736 CLA
16737 CLV "POI"
16738 CLV "QOI"
16739 CLV "FKT-SEL"
16740 CLV "NEW-ACT"
16741 CLV "PWI"
16742 CLV "PAI"
16743 CLV "PFI"
16744 CLV "PFI1"
16745 CLV "PFI2"
16746 CLV "PFI3"
16747 CLV "gOI"
16748 CLV "hOI"
16749 CLV "PXI=0"
16750 CLV "#INTEG"
16751 CLV "#P'"
16752 CLV "#Q'"
16753 CLV "#GRAD"
16754 CLV "#KOEFF"
16755 CLV "MAT-Xi"
16756 CLV "GRAD"
16757 CLV "#An"
16758 CLV "#An-1"
16759 CLV "#A2"
16760 CLV "#A1"
16761 CLV "#A0"
16762 CLV "#Ao"
16763 CLV "#maxYi"
16764 CLV "#ΣYi"
16765 CLV "#ΣXi"
16766 CLV "#πXi"
16767 CLV "#M"
16768 CLV "#m"
16769 CLV "XP"
16770 CLV "XF"
16771 CLV "Xn"
16772 CLV "Xext"
16773 CLV "Xext0"
16774 CLV "Xext1"
16775 CLV "Xext2"
16776 CLV "Xext3"
16777 CLV "Xext4"
16778 CLV "Xext5"
16779 CLV "Xext6"
16780 CLV "Xext7"
16781 CLV "Xext8"
16782 CLV "Xext9"
16783 CLV "Y0ext"
16784 CLV "Y1ext"
16785 CLV "Y2ext"
16786 CLV "Y3ext"
16787 CLV "Y4ext"
16788 CLV "Y0ext0"
16789 CLV "Y1ext0"
16790 CLV "Y2ext0"
16791 CLV "Y3ext0"
16792 CLV "Y4ext0"
16793 CLV "Y0ext1"
16794 CLV "Y1ext1"
16795 CLV "Y2ext1"
16796 CLV "Y3ext1"
16797 CLV "Y4ext1"
16798 CLV "Y0ext2"
16799 CLV "Y1ext2"
16800 CLV "Y2ext2"
16801 CLV "Y3ext2"
16802 CLV "Y4ext2"
16803 CLV "Y0ext3"
16804 CLV "Y1ext3"
16805 CLV "Y2ext3"
16806 CLV "Y3ext3"
16807 CLV "Y4ext3"
16808 CLV "Y0ext4"
16809 CLV "Y1ext4"
16810 CLV "Y2ext4"
16811 CLV "Y3ext4"
16812 CLV "Y4ext4"
16813 CLV "Y0ext5"
16814 CLV "Y1ext5"
16815 CLV "Y2ext5"
16816 CLV "Y3ext5"
16817 CLV "Y4ext5"
16818 CLV "Y0ext6"
16819 CLV "Y1ext6"
16820 CLV "Y2ext6"
16821 CLV "Y3ext6"
16822 CLV "Y4ext6"
16823 CLV "Y0ext7"
16824 CLV "Y1ext7"
16825 CLV "Y2ext7"
16826 CLV "Y3ext7"
16827 CLV "Y4ext7"
16828 CLV "Y0ext8"
16829 CLV "Y1ext8"
16830 CLV "Y2ext8"
16831 CLV "Y3ext8"
16832 CLV "Y4ext8"
16833 CLV "Y0ext9"
16834 CLV "Y1ext9"
16835 CLV "Y2ext9"
16836 CLV "Y3ext9"
16837 CLV "Y4ext9"
16838 CLV "#Xi"
16839 CLV "#XMIN"
16840 CLV "#XINC"
16841 CLV "#XDIFF"
16842 CLV "#XMAX"
16843 CLV "#X1"
16844 CLV "#X2"
16845 CLV "#eps"
16846 CLV "#YMIN"
16847 CLV "#YINC"
16848 CLV "#YDIFF"
16849 CLV "#YMAX"
16850 CLV "#TABLE"
16851 CLV "#TAB-#I"
16852 CLV "#Y-END"
16853 CLV "#Y1"
16854 CLV "#Y2"
16855 CLV "#P-MIN"
16856 CLV "#P-MAX"
16857 CLV "#P-VKNK"
16858 CLV "#P-VK"
16859 CLV "#P-NK"
16860 CLV "ROC"
16861 CLV "#ROW"
16862 CLV "#LINE"
16863 CLV "#LINEx"
16864 CLV "#LINEz"
16865 CLV "P0"
16866 CLV "F0"
16867 CLV "P1"
16868 CLV "P2"
16869 CLV "P3"
16870 CLV "P4"
16871 CLV "Q0"
16872 CLV "#METHOD"
16873 CLV "#VERF"
16874 CLV "#L-B-V"
16875 CLV "#extrn"
16876 CLV "#nROOTS"
16877 CLV "#NPXI"
16878 CLV "#PRTYN"
16879 CLV "#PRTYy"
16880 CLV "#MULT"
16881 CLV "#XLAGa"
16882 CLV "#XLAGb"
16883 CLV "#XLAG"
16884 CLV "#XLAGn"
16885 CLV "#XLAGna"
16886 CLV "#XLAGnb"
16887 CLV "#XNwtn"
16888 CLV "#XNwtnn"
16889 CLV "#XBSCP"
16890 CLV "#XBSCPn"
16891 CLV "#XSKOW"
16892 CLV "#XSKOWn"
16893 CLV "#XKOE"
16894 CLV "#XKOEn"
16895 CLV "#XCHEB"
16896 CLV "#XCHEBn"
16897 CLV "#XHALL"
16898 CLV "#XHALLn"
16899 CLV "#XOSTR"
16900 CLV "#XOSTRn"
16901 CLV "#Xextrn"
16902 CLV "#XAuto"
16903 CLV "#YLAG"
16904 CLV "#YLAGn"
16905 CLV "#YNwtn"
16906 CLV "#YNwtnn"
16907 CLV "#YBSCP"
16908 CLV "#YBSCPn"
16909 CLV "#YSKOW"
16910 CLV "#YSKOWn"
16911 CLV "#YKOE"
16912 CLV "#YKOEn"
16913 CLV "#YCHEB"
16914 CLV "#YCHEBn"
16915 CLV "#YHALL"
16916 CLV "#YHALLn"
16917 CLV "#YOSTR"
16918 CLV "#YOSTRn"
16919 CLV "#Yextrn"
16920 CLV "#YAuto"
16921 CLV "#P"
16922 CLV "#Pd"
16923 CLV "#Palt"
16924 CLV "#Q"
16925 CLV "#Qd"
16926 CLV "#Qalt"
16927 CLV "#dP"
16928 CLV "#dQ"
16929 CLV "#dB0B1"
16930 CLV "#B0"
16931 CLV "#B1"
16932 CLV "#B2"
16933 CLV "#B3"
16934 CLV "#C0"
16935 CLV "#C1"
16936 CLV "#C2"
16937 CLV "#C3"
16938 CLV "#NR"
16939 CLV "#IT"
16940 CLV "#CNT"
16941 CLV "#N-IT"
16942 CLV "#Xn+1"
16943 CLV "#CMD"
16944 CLV "#MSG"
16945 CLV "#LDSP"
16946 CLV "#ST-X"
16947 CLV "#ST-Y"
16948 CLV "#ST-Z"
16949 CLV "#ST-T"
16950 CLV "#PRT"
16951 CLV "#KEY-1#"
16952 CLV "#KEY-2#"
16953 CLV "#KEY-3#"
16954 CLV "#KEY-4#"
16955 CLV "#KEY-5#"
16956 CLV "##A0"
16957 CLV "##A1"
16958 CLV "##A2"
16959 CLV "##A3"
16960 CLV "##A4"
16961 CLD
16962▸LBL 99
16963 RTN
16964 GTO 99
16965 END