#/*********************************************************** # maceps.rb -- 機械エプシロン #***********************************************************/ printf(" e 1 + e (1 + e) - 1 \n") printf("-------------- -------------- -------------- \n") e = 1; w = 1 + e while (w > 1) printf("% -14g % -14g % -14g\n", e, w, w - 1) e /= 2.0; w = 1 + e end exit 0