#!/projects/77750c71-ec7b-4962-bf55-a49ff5065fb6/open-axiom-build/x86_64-unknown-linux-gnu/bin/bootsys --script # FASL compiled from "/projects/77750c71-ec7b-4962-bf55-a49ff5065fb6/open-axiom-build/src/interp/bc-matrix.clisp" using SBCL version 1.2.14.debian � X86-64N 1.2.14.debian2 (:GENCGC :SB-PACKAGE-LOCKS :SB-THREAD :SB-UNICODE)PP R O C L A I M PO P T I M I Z E PS P E E D 8#� A x i o m C o r e �C O M P I L E - T I M E - P 7 ��i m p o r t M o d u l e �b c - u t i l 8#�#�#�PS E T P * P A C K A G E * �B O O T ,8�S B - I M P L �% D E F U N �B O O T � b c M a t r i x > � b c R e a d M a t r i x <# #d#DTS T A N D A R D TM I N I M A L ##`\ TE X T E R N A L �S B - C �T L - X E P q 0 #D"� #f#M#\ 0 \ s 0 �f1 �EH��u$H�e�I�L$`H�M�� H������ �u�` �PF U N C T I O N P* ## \ \ � &# #�Z/ p r o j e c t s / 7 7 7 5 0 c 7 1 - e c 7 b - 4 9 6 2 - b f 5 5 - a 4 9 f f 5 0 6 5 f b 6 / o p e n - a x i o m - b u i l d / s r c / i n t e r p / b c - m a t r i x . c l i s p o 0 8>* �M a t r i x B a s i c C o m m a n d � h t I n i t P a g e <� e x i t F u n c t i o n � h t p S e t P r o p e r t y <� d o m a i n C o n d i t i o n s � i s D o m a i n PP I � P o s i t i v e I n t e g e r � t e x t �E n t e r t h e s i z e o f t h e m a t r i x : � i n p u t S t r i n g s �N u m b e r o f { \ e m r o w s } : \ s p a c e { 3 } � ##� r o w s 0 �N u m b e r o f { \ e m c o l u m n s } : :##� c o l s 0 5�\ b l a n k l i n e 5�'H o w w o u l d y o u l i k e t o e n t e r t h e m a t r i x ? 5� \ b e g i n m e n u 5�\ i t e m � b c L i n k s �.\ m e n u i t e m s t y l e { B y e n t e r i n g i n d i v i d u a l e n t r i e s } :� b c I n p u t E x p l i c i t M a t r i x � e x p l i c i t HI�\ m e n u i t e m s t y l e { B y f o r m u l a } :� b c I n p u t M a t r i x B y F o r m u l a � f o r m u l a 5�\ e n d m e n u ! � h t M a k e P a g e <� h t S h o w P a g e <# "� #L##`#$" \ 0 #P"� "� #Y##$"� \ 0 \ 0 ��1 �EH���� H�e�H��H�u�I�L$`H�M�� H�\$�H��H�R���� H�N���� H�+H���P HB�H�\$�H��H�=4���H�u�H�1���� H�+H���P HB�H�\$�H��H����H����� H�+H���P HB�H����1��u�` �a� e x i t F u n c t i o n O r N i l ! X#### W#### -#### +##### \ \ � l# #'(0 8P>n � h t p P r o p e r t y L i s t <�B a s i c M a t r i x C o m m a n d +<./� S � S y m b o l /� F E � E x p r e s s i o n � I n t e g e r 5�\ m e n u i t e m s t y l e { } \ t a b { 2 } 5�E n t e r t h e { \ e m r o w v a r i a b l e } : 5�\ t a b { 3 6 } � b c S t r i n g s #� i � r o w V a r p B5� \ n e w l i n e |5�!E n t e r t h e { \ e m c o l u m n v a r i a b l e } : ��#� j � c o l V a r p B�|5�0E n t e r t h e g e n e r a l { \ e m f o r m u l a } f o r t h e e n t r i e s : 5�\ n e w l i n e \ t a b { 2 } �#(�1 / ( x - i - j - 1 ) Qt ! W<�C o n t i n u e � b c I n p u t M a t r i x B y F o r m u l a G e n � h t M a k e D o n e B u t t o n <� $ b c P a r s e O n l y ;� h t p L a b e l I n p u t S t r i n g <P P A R S E - I N T E G E R <>� h t p L a b e l S p a d V a l u e <� o b j V a l U n w r a p <� n r o w s -<� n c o l s X<# "< #I##`#$" #`\ P 0 #M"� "> #V##$"� #`\ P0 \ P0 �H1 �EH���� H�e�H�U�I�L$`H�M�A� H�E� H�E� H�\$�H��H�U�H������ H�+H���P HB�H��H�\$�H��H�����H������ H�+H���P HB�H�U�H�\$�H��H�����H������ H�+H���P HB�H�\$�H��H�����H�=����H������ H�+H���P HB�H�~����H�I���aHDH���Q� H�� �� H�\$�H��H�U�H�=M���H�N���� H�+H���P HB�H�\$�H��H�4���� H�+H���P H��H�u�H� ����H�I���aHDH���Q�� H�� �� H�\$�H��H�U�H�=����H������ H�+H���P HB�H�\$�H��H������ H�+H���P HB�H��L��H�U�H�u�H�\$�H��H�=����L�E�H������ H�+H���P HB�L�E�H�U�I��H�\$�H��H�=~���H�o���� H�+H���P HB�H�f���1��u�` H�\$�H��H�U�H�=���H����� H�+H���P HB�H�\$�H��H������ H�+H���P H���2���H�\$�H��H�U�H�=����H������ H�+H���P HB�H�\$�H��H������ H�+H���P HB�H���Y����� � �P� h t P a g e � j u n k ! X#### -#### -#### �######## �####### �######## �####### PN U L L ####### PS Y M B O L - V A L U E ��######## �####### �######## �####### �####### ���#### W#### n###### +##### \& ������\ PC O N D ##### �##### \ \ � �# #'(0 8�>� ,� h t p P r o p e r t y <Q�<�����S T R I N G I F Y - O B J E C T <� m a t r i x ( [ [ � f o r � i n 1 . . �] f o r �] ) �C O N C A T <� b c G e n <# "� #I##`#$" \ � 0 #M"� "� #V##$"� \ �0 \ �0 ��1 �EH���z H�e�H�U�I�L$`H�M�� H�E� H�E� H�E� H�E� � H�\$�H��H�U�H�=����H������ H�+H���P HB�H��H��H�� t/H��H�l$H�l$� �%X H��H�U�H�ù �u�`�H�\$�H��H�U�H�=����H������ H�+H���P HB�H��H�}�H�\$�H��H�U�H�=m���H�^���� H�+H���P HB�H�U�H�\$�H��H�U�H�=D���H�-���� H�+H���P HB�H�U�H�\$�H��H�U�H�=���H������ H�+H���P HB�H�U�H�\$�H��H�U�H�=����H������ H�+H���P HB�H�\$�H��H������ H�+H���P L��L�M�L�E�L�E�H�U�H�\$�H��H������ H�+H���P L�M�L�E�H��H�\$�H��XH����H�}�H�5|���H�E�H�C�H�u���H�C�L�K�H�n���H�C�L�C�H�W���H�C�H�K�H�X���H�C�H�U���� H�+H���P HB�H�D���� �u�` ���� ePW R I T E - T O - S T R I N G ####### �####### �����###### �##### �###### �###### �###### �###### �###### PF U N C A L L ##### � S B - K E R N E L ��% C O E R C E - C A L L A B L E - T O - F U N ��##### # \ �### \ \ � �# #'(0 8K>� �;�<�<>�<�<�<� h t S t r i n g P a d <�{ \ e m R o w �<�, C o l u m n �: } \ s p a c e { 2 } PI N T E R N <:� P �B O O T T R A N ��c o p y L i s t <./�� P o l y n o m i a l � $ E m p t y M o d e 8n<�S o l v e B a s i c C o m m a n d +<� E n t e r t h e e n t r i e s o f t h e m a t r i x : � b c H t <W<�� b c G e n E x p l i c i t M a t r i x �<�-<�X<��l a s t N o d e <# "� #I##`#$" #`\ K 0 #M"� "� #V##$"� #`\ K0 \ K0 �";1&