10 SCREEN 12
15 DEFDBL A-Z
20 PRINT "           Integration of Arc Length"
30 PRINT "             "; CHR$(244)
40 PRINT "Arc length = "; CHR$(245); CHR$(251); "(1+[f'(x)]^2) dx"
50 PRINT "Example: calculate arc length of f(x)=x^(3/2) from 0 to 1."
60 PRINT "           "; CHR$(244); "1"
70 PRINT "Arc length="; CHR$(245); "0 "; CHR$(251); "(1+[(3/2)*x^(1/2)]^2) dx"
80 PRINT " "; CHR$(244); "1"
90 PRINT "="; CHR$(245); "0 "; CHR$(251); "(1+9x/4) dx"
100 PRINT " "; CHR$(179); "1"
110 PRINT "="; CHR$(179); "0  (8/27)(1+((9/4)x))^(3/2)"
120 a = ((1 + ((9 / 4) * 1)) ^ (3 / 2)) * (8 / 27)
130 b = ((1 + (9 / 4) * 0) ^ (3 / 2)) * (8 / 27)
140 PRINT "="; a; "-"; b
150 PRINT "="; a - b
160 SYSTEM