#DEBUG ERROR ON DEFEXT a-z FUNCTION PBMAIN () AS LONG w=1.7## f$=COMMAND$ CLS IF f$="" THEN INPUT"Filename: ";f$ IF INSTR(f$,".")=0 THEN f$=f$+".dat" OPEN f$ FOR INPUT AS #1 FILESCAN #1, RECORDS TO tmax& DIM p(tmax&) p=0: t&=0 WHILE NOT EOF(1) INPUT#1,x p=p+x*COS(w*t&) p(t&)=p INCR t& WEND CLOSE #1 m=0 FOR tau&=0 TO t&/2 m=m+(p(t&/2+tau&)-p(tau&))^2 NEXT tau& m=2*m/t& k=LOG(m+1)/LOG(t&/2) CLS PRINT"Filename: ";f$ PRINT"w =";w PRINT"T =";t& PRINT"K =";k END FUNCTION