a # 1 60 R ' z#a to b;d;r;x;Lio ' a # a,[1] ' Lio#0 ' a # a,[1] ' r#RRz#1,b ' a # a,[1] ' z#,z ' a # a,[1] ' x#|z[2Xr>1] ' a # a,[1] ' d#z[1]_a ' a # a,[1] ' $(3>r)Yl1 ' a # a,[1] ' b#a+(d%x)XI1+x ' a # a,[1] ' $l2 ' a # a,[1] 'l1:b#a+(xXXd)XI1+D|d%x ' a # a,[1] 'l2:z#b,(2+r>1)Uz ' a # a,[1] ' $0 ' a # a,[1] '"to - numeric vectors in equal increments ' a # a,[1] '"from ''the apl handbook of techniques'' copyright 1978, ibm. ' a # a,[1] '"syntax: r#a to b r#n from a r#a to b in m ' a # a,[1] '" r#a to b by c r#n from a by c ' a # a,[1] '" a: starting value ' a # a,[1] '" b: last value (or boundary value) ' a # a,[1] '" c: increment (positive or negative but not zero) ' a # a,[1] '" m: number of intervals desired (m ^= 0). ' a # a,[1] '" number of values obtained = m+1 ' a # a,[1] '" n: number of values desired ' a # a,[1] '" r: resulting numeric vector with equal increments ' a # a,[1] '"-when the functions ''to'' and ''from'' are used alone, the ' a # a,[1] '" increment is understood to be one. sequences of any of ' a # a,[1] '" the above forms are also possible, provided that they are ' a # a,[1] '" separated by commas as shown in the examples. ' Lfx a