OPTION ARITHMETIC NATIVE
SET WINDOW 0,1,0,1
INPUT PROMPT "何番目？":n
LET n=n-1
FOR x=0 TO 1 STEP 0.0001
   FOR k=0 TO n
      LET T=T+s(2^k*x)/2^k
   NEXT k
   PLOT LINES:x,T;
   LET T=0
NEXT x
END
EXTERNAL FUNCTION s(x)
OPTION ARITHMETIC NATIVE
LET n=INT(x)
IF x-n<0.5 THEN
   LET s=x-n
ELSE
   LET s=n-x+1
END IF
END FUNCTION