プログラミングの為の数学と算数

>>229
こんなのはどう

（ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室part4
http://piza2.2ch.net/tech/kako/1002/10024/1002469894.html
より

//　256 * sin(d256/256*2*π)
function iSin256( d256 : integer):integer;
begin
　d256:=shortInt(d256);
if d256 = -128 then Result:=0 else
　　　 if d256<0　 then　Result:= -iSin256(　　 - d256 )
　else if d256> 64 then　Result:=　iSin256( 128 - d256 )
　else if d256>=32 then
　begin
　　　d256:=64-d256;
　Result := (4194304-1199*(d256*d256)) div 16384;
　end else begin
　　Result:=(d256* 102933 -　(d256*d256*d256)*10) div 16384;
　end;
end;