sample\basic\sample_mathex_hspvar.hsp » Plain Format
;
; sample_mathex_hspvar.hsp
;
; hspmathex.dll のサンプル — 任意精度整数 (bigint) と任意精度10進固定小数
; (bigdec) を、HSPVAR 拡張型として通常の変数と同じ感覚で使う例。
;
#include "hspmathex.as"
; ---- 1. 任意精度整数 (bigint) ----
mes "---- bigint ----"
a = bigint("12345678901234567890")
b = bigint("99999999999999999999")
c = a + b
mes "a = "+str(a)
mes "b = "+str(b)
mes "a+b = "+str(c)
mes "vartype(a) = "+vartype(a)
mes ""
; 引き算・掛け算
d = b - a
mes "b-a = "+str(d)
e = a * bigint("1000")
mes "a*1000= "+str(e)
mes ""
; 剰余・比較
f = bigint("100")
g = bigint("7")
mes "100\\7 = "+str(f \ g)
if f > g : mes "100 > 7"
if a == bigint("12345678901234567890") : mes "a == 12345678901234567890"
mes ""
; ---- 2. 任意精度10進固定小数 (bigdec) ----
mes "---- bigdec ----"
x = bigdec("0.1")
y = bigdec("0.2")
z = x + y
mes "0.1 + 0.2 = "+str(z) ; 浮動小数点と違い正確に 0.3
mes "vartype(x) = "+vartype(x)
mes ""
pi = bigdec("3.141592653589793238462643383279")
r = bigdec("10")
mes "pi = "+str(pi)
mes "pi*r*2 = "+str(pi * r * bigdec("2"))
stop