汎用関数・ライブラリ総合スレ

73：あなたの名前を入力してください：2018/01/23(火) 21:38:10 ID:Qe.7U9RE: 某所のレスで思い出したので適当に
CC0ライセンスで

;精度確保用、係数つきSQRT関数
@X_SQRT(ARG:0, ARG:1)
#FUNCTION
RETURNF SQRT(ARG:0 * ARG:1 * ARG:1)

;精度確保用、係数つきCBRT関数
@X_CBRT(ARG:0, ARG:1)
#FUNCTION
RETURNF CBRT(ARG:0 * ARG:1 * ARG:1 * ARG:1)

;ARG:0にARG:1の平方根をかける（ARG:2で精度を指定する）
@TIMES_SQRT(ARG:0, ARG:1, ARG:2 = 100)
#FUNCTION
RETURNF ARG:0 * X_SQRT(ARG:1, ARG:2) / ARG:2

;SOURCE系で何か手抜きできないかと思ったがどうなんだ？これ
;具体的にはCOM側で関数に数値渡してオシマイ！みたいなの
;MIN_VALUE==0, LEVEL==9, RATE==10, BORDER==10で10000
@S_CURVE(MIN_VALUE, LEVEL, RATE = 10, BORDER = 10)
#FUNCTION
#DIM MIN_VALUE ;最小値、COM依存を想定
#DIM LEVEL ;効果レベル、感覚系ABL等を想定
#DIM RATE ;効果レート、COM依存を想定
#DIM BORDER ;上限っぽいもの、COM依存を想定
SIF INRANGE(LEVEL, 0, BORDER - 1)
　RETURNF MIN_VALUE + RATE * POWER(LEVEL + 1, 3)
RETURNF TIMES_SQRT((MIN_VALUE + RATE * POWER(BORDER, 3)), LEVEL - (BORDER - 2), 100)

新着レスの表示

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）

掲示板管理者へ連絡無料レンタル掲示板