HSPTV!掲示板

例えば$400000という16進数表記の数値は「1ビット目を0として」数えた場合、
「22ビット目が立っている」と表現出来ますよね。これを22という10進数の数値として表したいのです。

この変換が自力で解けず、悩まされています…
HSPの各命令（repeat等）を使わず4バイトの数値として基本的な計算式、
つまり数値と演算子のみの計算式を教えて頂けないでしょうか？

>HSPの各命令（repeat等）を使わず4バイトの数値として基本的な計算式
０ビット目、１ビット目、・・・２２ビット目を得たい、
すなわち、

1=2^0・・・０ビット目が立ってる
2=2^1・・・１ビット目が立ってる
4=2^2・・・２ビット目が立ってる
・・・
2^a=Xとしたとき、
a=log2 X
とあらわす。
log2 Xを解けば○ビット目が立っているかがわかる。
ただしHSPには2を底とする対数関数がないため、
対数の底の変換公式を用いる。
すると、
log2 X=log10 X/log10 2
と表せる。
log10は常用対数といい、HSPには常用対数関数logfがある。
log10 X = logf(X)
である。

#module
#defcfunc onbit int i
	return logf(i)/logf(2) // 対数の底の変換公式（数学）
#global

mes onbit(1)
mes onbit(2)
mes onbit(3) // onbitが2つあるから変な数字になるのは当然
mes onbit($400000)

ただし、この方法はオンビットが１つの場合にしか使えないのは、上記の説明でわかるだろう。
よって、オンビットがいくつあって、「どこ」と「どこ」が立っているのかを得たいなら、
HSPの各命令(repeat等)を使わざるを得ない。

>つまり数値と演算子のみの計算式を教えて頂けないでしょうか？
ごめん。ここ読んでなかった。
つまり上の場合だと、logf(x)の計算を知りたいってことですね。わかりません。

どっかの上級者の四則演算とビットシフトを駆使してsinやcosを求めるプログラムでも見たんでしょうが、
凡人にはわかりませんわ。

凡人は用意された関数を使えばいい。

>>「22ビット目が立っている」これを22という10進数の数値として表したい。

　複数ビットが立っているときはどうするの？

　取り合えず、３２ビット中で１個だけ立っているとして、整数値が X とすると。

X=2^22 と成り、変形すると log2,X=22 になります。（底が２）
　さらに logX/log2=22 と変形できます。（底は何でも良い）
　※詳しくは、その方面を参照してください。

　スクリプトでは
　１：値を実数にする
　２： logX/log2 を計算
　３：答えを四捨五入して整数に

　と成ります、複数ビットでは使えないでしょう。

　複数ビットでは
　１：偶数奇数の判断( / \ )をして、奇数ならビットが立っている。
　２：２で割るか '>>' （シフト）させる。
　３：１〜２を、３１回？繰り返す。
　しか無いと思います。

　本題はほかの人が答えているので、派生課題を。

	mes "16進数８桁以下"
	string=""
	input string
	button "go", *l_go
stop

*l_go
	color 255,255,255
	boxf 0,66,639,479
	color
	data=int("$"+string)
	mask=1
	repeat 32
		;if data & mask: mes ""+cnt+" data=$"+strf("%8X",data)+" mask=$"+strf("%8X", mask)
		if data & mask: mes cnt
		mask=mask<<1
	loop
stop

　手違いで同じ様な事を書いてしまった、悔しいので補足。

>>log10は常用対数といい、HSPには常用対数関数logfがある。
logf() は、自然対数です。