Appendix A. 5110 Compatibility With Other Apl Systems - IBM 5110 User Manual

Appendix A. 5110 Compatibility with Other APL Systems
The follwing user-defined functions are example functions that can be
used to check 5110 user-defined functions for compatibility with other
APL systems:
[1]
[2]
[3]
[I.j.]
I:
~:i:l
[6]
[7::1
[B::I
[~» ::I
[:1.0]
[11::1
[12J
[:I.]
[;? J
[:::~]
[ 1+::1
I::
~:j::l
[6]
[7]
[B::t
[9]
[10]
[11]
[12]
[13]
[ 11+ J
'V'CHECI<
[[]::I
V
V CHECK F;EA;RL;CF;FL;ED;OIO;OPW
V'
ACHECK FOR POSSIBLE INCOMPATIBILITES IN FUNCTION F
AEA=ERROR ARRAY CL=COLUMN LEDGEND
ARF=ROW FLAGS (ERRORS) RL=ROW LEDGEND
DID-t ..
:J.
[] p ~.J~" :L 3 :~~
E{~+."
PO
RTABLE
CF
""[Ie
I~
F
I~~ i...
+...
I
I: '} 0 : 1 . '" (
'f' ( (
:I. t
p
E
PI ) }
:I. )
~>
' "
: 1 .
+ ).
: 1 . t
(J
E
f.i) }
I
J
I
F~
F -t .. (
v /
E
(.~I ) \
I.)/': I
CF'~"
RF
I '
',I~L}' '}
CF
F
L~'" "t
I
I:: :I. +
E
(~
:I
ED~(2
:I.
MpCF)p 2
:I.
3
("'h/E))::::
I ' ) / [
1::1
ED
VPDR"ftIBLE[[]JV
V
Z~PORTABLE
CF;CS;DIO
V
ARETURN
A
LOGICAL MATRIX (ONES AND ZEROS) THE SAME SHAPE
AS
A' 'OCR F' '--A
:I.
INDICATES CHANGES REQUIRED FOR PORTABILITY
f·)
C~:)::::LEGAl.. CHI:)
Rf.'ICTE
I~ ~:)ET CF::::CHf~) I~ i'1f~1 T
R
I X OF F
[] I
O~":I.
CS~DAV[(14+\9)/(25+\54),(86+\71)/:1.59/160/161]
Z~"NCF+:·:CS
I
~
.. Z.
v (
C F :::: '
I~I
' )
Z~Zv('l
DSVO' WHEREIN CF)
Z~Zv(IDCC'
WHEREIN
CF)
Z~Zv(IOAI'
WHEREIN CF)
Z~Zv(IDTS'
WHEREIN CF)
Z~"Zv
(
I
UTT' ~JHEREIN CF)
Z~Zv(
'DUL ' WHEREIN CF)
Z~Zv(
'DDL' WHEREIN CF)
/
VWHE I:<E I N [:
[]:I '\/
V
Z~A
WHEREIN B;DIO
[1] ALOCATION OF VECTOR A IN ARRAY B
£:
2:1 [] I
o~
. .
0
[ 3 J Z
~
.. ( ( .. -
P
(.>
B ) t 1 )
-!-
I'. / [:
0 ::I (
~
( ( ... l
~. (.>
B)
I
p
A )
e \ .
(.>
(:1 )
q) 0
I
(A
<: ..
I
P. )
n
I ::::
B
v
5110 Compatibility with Other APL Systems 169