例
以下は、数のサインを計算する例です。
READ "Input a number: ",num
IF $ZABS(num)>(2*$ZPI) { WRITE !,"number is a larger than 2 pi" }
ELSE {
WRITE !,"the sine is: ",$ZSIN(num)
}
QUIT
以下の例は、InterSystems IRIS 小数 ($DECIMAL の数値) の結果と $DOUBLE の数値の結果を比較します。どちらの場合も、pi のサインは 0 ではない小数値ですが、pi/2 のサインは正確に 1 です。
WRITE !,"the sine is: ",$ZSIN($ZPI)
WRITE !,"the sine is: ",$ZSIN($DOUBLE($ZPI))
WRITE !,"the sine is: ",$ZSIN($ZPI/2)
WRITE !,"the sine is: ",$ZSIN($DOUBLE($ZPI)/2)
以下の例では、$ZSIN 関数はすべてゼロ (0) を返します。
WRITE !,"the sine is: ",$ZSIN(0.0)
WRITE !,"the sine is: ",$ZSIN(-0.0)
WRITE !,"the sine is: ",$ZSIN($DECIMAL(0.0))
WRITE !,"the sine is: ",$ZSIN($DOUBLE(0.0))
WRITE !,"the sine is: ",$ZSIN($DECIMAL(-0.0))
WRITE !,"the sine is: ",$ZSIN($DOUBLE(-0.0))
WRITE !,"the sine is: ",$ZSIN(-$DECIMAL(0.0))
WRITE !,"the sine is: ",$ZSIN(-$DOUBLE(0.0))
これは、AIX を含むすべてのプラットフォームに当てはまります。