twospheres.aspl get the intersection of two spheres

UNIX SHELL PROMPT # FULLCMD=/opt/ASPLv1.00/shared/twospheres~run.aspl -wsname TRANSIENT -groupingclass SPHERESCLASS ASPL:1 > displayoff

ABOUT THIS COMMAND: turn display off

3:25:47 root@vienna /tmp/pacomp aspl:1 > displayoff displayoff ASPL:2 > print INTERSECTION OF TWO SPHERES EACH WITH 500 POINTS

ABOUT THIS COMMAND:

3:25:47 root@vienna /tmp/pacomp aspl:2 > print INTERSECTION OF TWO SPHERES EACH WITH 500 POINTS INTERSECTION OF TWO SPHERES EACH WITH 500 POINTS ASPL:3 > println

ABOUT THIS COMMAND:

3:25:47 root@vienna /tmp/pacomp aspl:3 > println ASPL:4 > gg2Spheres(N,500,glb1,G1,glb2,G2)

ABOUT THIS COMMAND: call the GG-function to get the intersection of two spheres with 500 point each, the GADg has two labels: G1 to label the 1st sphere, and G2 to label the 2nd sphere, the result is pushed on the answer stack

3:25:47 root@vienna /tmp/pacomp aspl:4 > gg2Spheres(N,500,glb1,G1,glb2,G2) 2405681485 // 2.5 2.2 2.8 2089294772 // 2.4 2.3 2.8 1612043719 // 2.4 1.7 2.8 4076110036 // 2.5 2.4 2.8 1027043403 // 2.5 1.6 2.8 2587683949 // 2.5 2.6 2.6 3857993 // 2.5 2.7 2.5 2737429121 // 2.5 1.3 2.5 3361569055 // 2.5 1.2 2.4 856142565 // 2.5 2.8 2.2 322058991 // 2.5 1.1 2.2 3322253127 // 2.5 2.8 1.8 3535052500 // 2.5 2.7 1.5 1569703960 // 2.5 2.4 1.2 2808227380 // 2.5 1.6 1.2 3597205881 // 2.5 2.0 1.1 DONE PROCESSING gg2Spheres(N,500,glb1,G1,glb2,G2) ASPL:5 > displayon

ABOUT THIS COMMAND: turn display on

3:25:47 root@vienna /tmp/pacomp aspl:5 > displayon displayon ASPL:6 > c&

ABOUT THIS COMMAND: find the checksum intersection for the dataset on the top of the answer stack, this will print the points where both spheres intersect

3:25:47 root@vienna /tmp/pacomp aspl:6 > c& There are 2 sets representing: G1 G2 ** c&:c==) -- EQUAL F) fl'equal G1 G2 (cfl=1027043403) c&=) G1/./d/f1027043403 x=2.5 y=1.6 z=2.8 chksum=1027043403 ppdd=G1 ffl=./d/f1027043403 aelm=x(2.5)y(1.6)z(2.8)chksum(1027043403) c&=) G2/./d/f1027043403 x=2.5 y=1.6 z=2.8 chksum=1027043403 ppdd=G2 ffl=./d/f1027043403 aelm=x(2.5)y(1.6)z(2.8)chksum(1027043403) ** c&:c==) -- EQUAL F) fl'equal G1 G2 (cfl=1569703960) c&=) G1/./d/f1569703960 x=2.5 y=2.4 z=1.2 chksum=1569703960 ppdd=G1 ffl=./d/f1569703960 aelm=x(2.5)y(2.4)z(1.2)chksum(1569703960) c&=) G2/./d/f1569703960 x=2.5 y=2.4 z=1.2 chksum=1569703960 ppdd=G2 ffl=./d/f1569703960 aelm=x(2.5)y(2.4)z(1.2)chksum(1569703960) ** c&:c==) -- EQUAL F) fl'equal G1 G2 (cfl=1612043719) c&=) G1/./d/f1612043719 x=2.4 y=1.7 z=2.8 chksum=1612043719 ppdd=G1 ffl=./d/f1612043719 aelm=x(2.4)y(1.7)z(2.8)chksum(1612043719) c&=) G2/./d/f1612043719 x=2.4 y=1.7 z=2.8 chksum=1612043719 ppdd=G2 ffl=./d/f1612043719 aelm=x(2.4)y(1.7)z(2.8)chksum(1612043719) ** c&:c==) -- EQUAL F) fl'equal G1 G2 (cfl=2089294772) c&=) G1/./d/f2089294772 x=2.4 y=2.3 z=2.8 chksum=2089294772 ppdd=G1 ffl=./d/f2089294772 aelm=x(2.4)y(2.3)z(2.8)chksum(2089294772) c&=) G2/./d/f2089294772 x=2.4 y=2.3 z=2.8 chksum=2089294772 ppdd=G2 ffl=./d/f2089294772 aelm=x(2.4)y(2.3)z(2.8)chksum(2089294772) ** c&:c==) -- EQUAL F) fl'equal G1 G2 (cfl=2405681485) c&=) G1/./d/f2405681485 x=2.5 y=2.2 z=2.8 chksum=2405681485 ppdd=G1 ffl=./d/f2405681485 aelm=x(2.5)y(2.2)z(2.8)chksum(2405681485) c&=) G2/./d/f2405681485 x=2.5 y=2.2 z=2.8 chksum=2405681485 ppdd=G2 ffl=./d/f2405681485 aelm=x(2.5)y(2.2)z(2.8)chksum(2405681485) ** c&:c==) -- EQUAL F) fl'equal G1 G2 (cfl=2587683949) c&=) G1/./d/f2587683949 x=2.5 y=2.6 z=2.6 chksum=2587683949 ppdd=G1 ffl=./d/f2587683949 aelm=x(2.5)y(2.6)z(2.6)chksum(2587683949) c&=) G2/./d/f2587683949 x=2.5 y=2.6 z=2.6 chksum=2587683949 ppdd=G2 ffl=./d/f2587683949 aelm=x(2.5)y(2.6)z(2.6)chksum(2587683949) ** c&:c==) -- EQUAL F) fl'equal G1 G2 (cfl=2737429121) c&=) G1/./d/f2737429121 x=2.5 y=1.3 z=2.5 chksum=2737429121 ppdd=G1 ffl=./d/f2737429121 aelm=x(2.5)y(1.3)z(2.5)chksum(2737429121) c&=) G2/./d/f2737429121 x=2.5 y=1.3 z=2.5 chksum=2737429121 ppdd=G2 ffl=./d/f2737429121 aelm=x(2.5)y(1.3)z(2.5)chksum(2737429121) ** c&:c==) -- EQUAL F) fl'equal G1 G2 (cfl=2808227380) c&=) G1/./d/f2808227380 x=2.5 y=1.6 z=1.2 chksum=2808227380 ppdd=G1 ffl=./d/f2808227380 aelm=x(2.5)y(1.6)z(1.2)chksum(2808227380) c&=) G2/./d/f2808227380 x=2.5 y=1.6 z=1.2 chksum=2808227380 ppdd=G2 ffl=./d/f2808227380 aelm=x(2.5)y(1.6)z(1.2)chksum(2808227380) ** c&:c==) -- EQUAL F) fl'equal G1 G2 (cfl=322058991) c&=) G1/./d/f322058991 x=2.5 y=1.1 z=2.2 chksum=322058991 ppdd=G1 ffl=./d/f322058991 aelm=x(2.5)y(1.1)z(2.2)chksum(322058991) c&=) G2/./d/f322058991 x=2.5 y=1.1 z=2.2 chksum=322058991 ppdd=G2 ffl=./d/f322058991 aelm=x(2.5)y(1.1)z(2.2)chksum(322058991) ** c&:c==) -- EQUAL F) fl'equal G1 G2 (cfl=3322253127) c&=) G1/./d/f3322253127 x=2.5 y=2.8 z=1.8 chksum=3322253127 ppdd=G1 ffl=./d/f3322253127 aelm=x(2.5)y(2.8)z(1.8)chksum(3322253127) c&=) G2/./d/f3322253127 x=2.5 y=2.8 z=1.8 chksum=3322253127 ppdd=G2 ffl=./d/f3322253127 aelm=x(2.5)y(2.8)z(1.8)chksum(3322253127) ** c&:c==) -- EQUAL F) fl'equal G1 G2 (cfl=3361569055) c&=) G1/./d/f3361569055 x=2.5 y=1.2 z=2.4 chksum=3361569055 ppdd=G1 ffl=./d/f3361569055 aelm=x(2.5)y(1.2)z(2.4)chksum(3361569055) c&=) G2/./d/f3361569055 x=2.5 y=1.2 z=2.4 chksum=3361569055 ppdd=G2 ffl=./d/f3361569055 aelm=x(2.5)y(1.2)z(2.4)chksum(3361569055) ** c&:c==) -- EQUAL F) fl'equal G1 G2 (cfl=3535052500) c&=) G1/./d/f3535052500 x=2.5 y=2.7 z=1.5 chksum=3535052500 ppdd=G1 ffl=./d/f3535052500 aelm=x(2.5)y(2.7)z(1.5)chksum(3535052500) c&=) G2/./d/f3535052500 x=2.5 y=2.7 z=1.5 chksum=3535052500 ppdd=G2 ffl=./d/f3535052500 aelm=x(2.5)y(2.7)z(1.5)chksum(3535052500) ** c&:c==) -- EQUAL F) fl'equal G1 G2 (cfl=3597205881) c&=) G1/./d/f3597205881 x=2.5 y=2.0 z=1.1 chksum=3597205881 ppdd=G1 ffl=./d/f3597205881 aelm=x(2.5)y(2.0)z(1.1)chksum(3597205881) c&=) G2/./d/f3597205881 x=2.5 y=2.0 z=1.1 chksum=3597205881 ppdd=G2 ffl=./d/f3597205881 aelm=x(2.5)y(2.0)z(1.1)chksum(3597205881) ** c&:c==) -- EQUAL F) fl'equal G1 G2 (cfl=3857993) c&=) G1/./d/f3857993 x=2.5 y=2.7 z=2.5 chksum=3857993 ppdd=G1 ffl=./d/f3857993 aelm=x(2.5)y(2.7)z(2.5)chksum(3857993) c&=) G2/./d/f3857993 x=2.5 y=2.7 z=2.5 chksum=3857993 ppdd=G2 ffl=./d/f3857993 aelm=x(2.5)y(2.7)z(2.5)chksum(3857993) ** c&:c==) -- EQUAL F) fl'equal G1 G2 (cfl=4076110036) c&=) G1/./d/f4076110036 x=2.5 y=2.4 z=2.8 chksum=4076110036 ppdd=G1 ffl=./d/f4076110036 aelm=x(2.5)y(2.4)z(2.8)chksum(4076110036) c&=) G2/./d/f4076110036 x=2.5 y=2.4 z=2.8 chksum=4076110036 ppdd=G2 ffl=./d/f4076110036 aelm=x(2.5)y(2.4)z(2.8)chksum(4076110036) ** c&:c==) -- EQUAL F) fl'equal G1 G2 (cfl=856142565) c&=) G1/./d/f856142565 x=2.5 y=2.8 z=2.2 chksum=856142565 ppdd=G1 ffl=./d/f856142565 aelm=x(2.5)y(2.8)z(2.2)chksum(856142565) c&=) G2/./d/f856142565 x=2.5 y=2.8 z=2.2 chksum=856142565 ppdd=G2 ffl=./d/f856142565 aelm=x(2.5)y(2.8)z(2.2)chksum(856142565) G1 16 entries G2 16 entries DONE PROCESSING c&