set x -1
while \$x<30 {puts [format "x = %.1f, y = %.6f" [expr .1*[incr x]] [expr pow(26.5241/24,$x)]]}