Return to dft CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / apl / lib / fn

Annotation of 43BSD/contrib/apl/lib/fn/dft, revision 1.1.1.1

1.1       root        1: z { w dft x;d;e;f;g;h;i;j;k;l;y
                      2: d { ' 0123456789.`'
                      3: }(V/w#Dw{,w+(h{0)Ml{1<RRx)/dfterr+0Mf{2
                      4: hr1: }(3 2 1 <RRx)/(dfterr+f{0), 2 3 +hr1
                      5: hr2: }(RRRx{((V/ 1 2 =Rw)O| 1 2)O\(1,R,x)Rx)/2+hr2
                      6: x { (0 1 1 /Rx)Rx
                      7: hr3: }((^/(Rw)# 1 2 ,2Me{1RO|Rx),1#Rw)/(dfterrMf{1),3+hr3
                      8: i { 1+S/0,,D10O*|x+1>|x
                      9: w { (2+i+w+(w#0)+V/,x<0),w
                     10: }(V/2>-/[1] w{O\(e,2)Rw)/dfterr+0Mf{2
                     11: z { ((k{1RRx),+/w[1;])R' '
                     12: x { j-1|j{0.5+xM10*(Rx)Rw[2;]
                     13: dftlp: }(e<h{h+1)/dftend
                     14: j { 1 + O\ ((i{w[1;h])R10)N |y{x[;h]
                     15: j { (,j)Mg{,O\(O|Rj)R(,O\(j#1)V.^(Ii)J.$Ii-f+1),(kM1+f{w[2;h])R1
                     16: hr4: }(^/0$y)/2+hr4
                     17: j[(i-+/(k,i)Rg)+iM`1+Ik]{12My<0
                     18: j { (k,i)Rj
                     19: hr5: }(0=f)/3+hr5
                     20: j { j[;(1O|Ig),(g{-/w[;h])+If]
                     21: j[;g] { 11
                     22:  }dftlpMRRRz[;(+/w[1;Ih-1])+Ii]{d[1+j]
                     23: dftend: }l/0
                     24:  }0MRz{,z
                     25: dfterr: 'dft ',(3 6 R' rank lengthdomain')[f+1;],' problem.'

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.