\START92\ \COMMENT= \NAME=logscale \FILE=LOGSCALE.89P () Prgm \(C)\Interactive Prgm, no args Local bx,by,cx,cy,i,j,t1 getType(t1)\->\t1 "10"\->\bx "10"\->\by Dialog Title "Convert to logarithmic scale" DropDown "x:",{"NO","YES","INVERSE CONV"},cx Request "x logarithm base",bx DropDown "y:",{"NO","YES","INVERSE CONV"},cy Request "y logarithm base",by EndDlog If ok=0:Return expr(bx)\->\bx expr(by)\->\by For i,1,99 "y"&string(i)\->\j If getType(#j)\!=\t1 Then If cx=2 Then expr(string(#j(bx^x))&"\->\#j(x)") ElseIf cx=3 Then expr(string(#j(ln(x)/(ln(bx))))&"\->\#j(x)") EndIf If cy=2 Then expr(string(ln(#j(x))/(ln(by)))&"\->\#j(x)") ElseIf cy=3 Then expr(string(by^(#j(x)))&"\->\#j(x)") EndIf EndIf EndFor EndPrgm \STOP92\