a # 1 60 R ' r#f thru tb;Lio;b ' a # a,[1] ' r#f+(Xr)XbXI1+D|r#(tb[0]_f)%b#|tb[1]+Lio#0 ' a # a,[1] ' $0 ' a # a,[1] '"generates equal intervals between limits f(scalar) and 1Ytb' a # a,[1] '"1Utb#$the desired interval,e.g.,1,O1,0.125,360,etc. ' a # a,[1] '"thru - generate indices or other equal increments between ' a # a,[1] '"limits ' a # a,[1] '"from ''the apl handbook of techniques'' copyright 1978, ibm. ' a # a,[1] '"-to produce numeric vectors with integral or fractional ' a # a,[1] '" increments or decrements ' Lfx a