143 lines
4.8 KiB
Mathematica
143 lines
4.8 KiB
Mathematica
XPDIN00J ; ; 03-JUL-1995
|
|
;;8.0;KERNEL;;JUL 10, 1995
|
|
F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
|
|
Q Q
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,57,1,"N")
|
|
;;=0^0^0^0^0^1,-1^1,+1^1,+1^1,-1^1,+1
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,57,2,"D")
|
|
;;=5^26^5^0^^^^^1^1
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,57,2,"N")
|
|
;;=^^0^^0
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",2,"FIRST")
|
|
;;=1,57
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,0,0,"N")
|
|
;;=1,48^1,48^1,48^2,48^1,48
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,48)
|
|
;;=6^1^9.68^^e^^9^^1^1
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,48,1,"D")
|
|
;;=6^2^45^.01
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,48,1,"N")
|
|
;;=0^0^0^0^0^1,-1^1,+1^2^2,-1^2
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,48,2,"D")
|
|
;;=6^50^26^.03
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,48,2,"N")
|
|
;;=0^0^0^1^0^2,-1^2,+1^1,+1^1^1,+1
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,53)
|
|
;;=4^1^9.67^^d^^^^0
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,53,1,"D")
|
|
;;=^^^^4^27^^0
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",3,"FIRST")
|
|
;;=1,48
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,0,0,"N")
|
|
;;=1,58^1,58^1,58^1,58^1,58
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,45)
|
|
;;=0^0^9.6^^d^^^^0
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,45,2,"D")
|
|
;;=1^6^30^.01
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,45,4,"D")
|
|
;;=^^^^2^0^^0
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,58)
|
|
;;=4^0^9.64^^e^^12^^1^1
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,58,1,"D")
|
|
;;=5^6^45^.01
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,58,1,"N")
|
|
;;=0^0^0^0^0^1,-1^1,+1^1,+1^1,-1^1,+1
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,59)
|
|
;;=0^0^9.6^^d^^^^0
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",4,"FIRST")
|
|
;;=1,58
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,0,0,"N")
|
|
;;=4,50^2,50^2,50^4,50^2,50
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,50)
|
|
;;=5^4^9.402^^e^^^^2
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,50,2,"D")
|
|
;;=7^19^45^.01
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,50,2,"N")
|
|
;;=0^3^3^0^3
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,50,3,"D")
|
|
;;=9^27^8^3
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,50,3,"N")
|
|
;;=2^4^4^2^4
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,50,4,"D")
|
|
;;=14^4^70^4
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,50,4,"N")
|
|
;;=3^0^0^3^0
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",5,"FIRST")
|
|
;;=2,50
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,0,0,"N")
|
|
;;=9,52^1,52^1,52^9,52^1,52
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52)
|
|
;;=1^1^9.62^^e^^^^1
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,1,"D")
|
|
;;=2^12^30^.01
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,1,"N")
|
|
;;=0^2^2^0^2
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,2,"D")
|
|
;;=4^12^65^1
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,2,"N")
|
|
;;=1^3^3^1^3
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,3,"D")
|
|
;;=6^12^65^2
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,3,"N")
|
|
;;=2^4^4^2^4
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,4,"D")
|
|
;;=7^12^1^3
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,4,"N")
|
|
;;=3^5^5^3^5^^^^^^1
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,5,"D")
|
|
;;=9^12^65^4
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,5,"N")
|
|
;;=4^6^6^4^6
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,6,"D")
|
|
;;=11^12^65^5
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,6,"N")
|
|
;;=5^7^7^5^7
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,7,"D")
|
|
;;=12^12^1^6
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,7,"N")
|
|
;;=6^8^8^6^8^^^^^^1
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,8,"D")
|
|
;;=13^12^64^7
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,8,"N")
|
|
;;=7^9^9^7^9
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,9,"D")
|
|
;;=15^12^65^10
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,52,9,"N")
|
|
;;=8^0^0^8^0
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",6,"FIRST")
|
|
;;=1,52
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,0,0,"N")
|
|
;;=7,49^2,49^2,49^7,49^2,49
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49)
|
|
;;=4^0^9.64^^e^^^^2
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,2,"D")
|
|
;;=6^29^45^.01
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,2,"N")
|
|
;;=0^18^18^0^18
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,7,"D")
|
|
;;=15^32^3^222.7
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,7,"N")
|
|
;;=13^0^0^13^0
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,13,"D")
|
|
;;=13^1^76^223
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,13,"N")
|
|
;;=16^7^7^14^7
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,14,"D")
|
|
;;=10^61^3^222.2
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,14,"N")
|
|
;;=18^13^13^16^13
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,16,"D")
|
|
;;=10^29^3^222.1
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,16,"N")
|
|
;;=18^13^14^18^14
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,18,"D")
|
|
;;=8^32^7^222.3
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,49,18,"N")
|
|
;;=2^16^16^2^16
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",7,"FIRST")
|
|
;;=2,49
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,0,0,"N")
|
|
;;=1,54^5,51^5,51^1,54^5,51
|
|
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",8,51)
|
|
;;=6^2^9.4^^e^^^1^5
|