Digital Travesia
http://hp.vector.co.jp/authors/VA028184/
OllyDbg
http://www.ollydbg.de/
やねうグループ
http://yaneu.com/
アセンブラ入門
http://www5c.biglobe.ne.jp/~ecb/assembler/assembler00.html
2008年5月30日金曜日
2008年5月28日水曜日
2008年5月26日月曜日
【英語】流体
distribution 分配
geometry （表面の）形状
physics 物理学
turbulent 乱れている
turbulent flow 乱流
assign 割り当てる
acetic acid 酢酸
suitable 適当な
velocity 速さ
indicated 表示された
magnitude 大きさ
axis 軸
aligned 位置合わせした
bisects 二等分する
porous 多孔性の
idealized 理想的な
catalyst 触媒
subsurface 表面
number of iterations 反復回数
ensure 確保する
converged 収束
accuracy 精度
convergence 収束
translucent 半透明の
opacity 不透明部
adiabatic 断熱の
symmetry 対称
reduce 減らす
hence だから
accurate 正確な
above 天上
below より下に
body span 全長
extrusion 押し出し
achieve 獲得する
uniformity 均一
specify 明確に述べる
attempting 試み
geometry （表面の）形状
physics 物理学
turbulent 乱れている
turbulent flow 乱流
assign 割り当てる
acetic acid 酢酸
suitable 適当な
velocity 速さ
indicated 表示された
magnitude 大きさ
axis 軸
aligned 位置合わせした
bisects 二等分する
porous 多孔性の
idealized 理想的な
catalyst 触媒
subsurface 表面
number of iterations 反復回数
ensure 確保する
converged 収束
accuracy 精度
convergence 収束
translucent 半透明の
opacity 不透明部
adiabatic 断熱の
symmetry 対称
reduce 減らす
hence だから
accurate 正確な
above 天上
below より下に
body span 全長
extrusion 押し出し
achieve 獲得する
uniformity 均一
specify 明確に述べる
attempting 試み
【vba_excel】頻度計算
Sub 頻度計算()
Dim myRng As Range
Dim myJ As Integer
Dim myDiv As Integer
Dim myCount As Integer
'分割数10
myDiv = 10
Set myRng = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
Application.ScreenUpdating = False
myRng.Sort Range("A1"), xlAscending, Header:=xlYes
Cells(1, 2) = "最小値"
myMin = Cells(1, 1)
Cells(2, 2) = myMin
Cells(3, 2) = "最大値"
myMax = Cells(Rows.Count, 1).End(xlUp)
Cells(4, 2) = myMax
Cells(5, 2) = "分割数"
Cells(6, 2) = myDiv
Cells(7, 2) = "刻み幅"
myJ = Round((myMax - myMin) / myDiv)
Cells(8, 2) = myJ
myComp = Round(myMin) + myJ * (n - 1)
myCount = 1
mytemp = 0
myEnd = Cells(Rows.Count, 1).End(xlUp).Row
For n = 1 To myEnd
If myComp < Cells(n, 1) Then
myComp = myComp + myJ
Cells(myCount, 3) = myComp - myJ / 2
Cells(myCount, 4) = n - mytemp
mytemp = n
myCount = myCount + 1
End If
Next
Application.ScreenUpdating = True
End Sub
Dim myRng As Range
Dim myJ As Integer
Dim myDiv As Integer
Dim myCount As Integer
'分割数10
myDiv = 10
Set myRng = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
Application.ScreenUpdating = False
myRng.Sort Range("A1"), xlAscending, Header:=xlYes
Cells(1, 2) = "最小値"
myMin = Cells(1, 1)
Cells(2, 2) = myMin
Cells(3, 2) = "最大値"
myMax = Cells(Rows.Count, 1).End(xlUp)
Cells(4, 2) = myMax
Cells(5, 2) = "分割数"
Cells(6, 2) = myDiv
Cells(7, 2) = "刻み幅"
myJ = Round((myMax - myMin) / myDiv)
Cells(8, 2) = myJ
myComp = Round(myMin) + myJ * (n - 1)
myCount = 1
mytemp = 0
myEnd = Cells(Rows.Count, 1).End(xlUp).Row
For n = 1 To myEnd
If myComp < Cells(n, 1) Then
myComp = myComp + myJ
Cells(myCount, 3) = myComp - myJ / 2
Cells(myCount, 4) = n - mytemp
mytemp = n
myCount = myCount + 1
End If
Next
Application.ScreenUpdating = True
End Sub
【vba_excel】ソート
Dim myRng As Range
'ソート範囲
Set myRng = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
'画面表示更新停止
Application.ScreenUpdating = False
'ソート
myRng.Sort Range("A1"), xlAscending, Header:=xlYes
'画面表示更新
Application.ScreenUpdating = True
'ソート範囲
Set myRng = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
'画面表示更新停止
Application.ScreenUpdating = False
'ソート
myRng.Sort Range("A1"), xlAscending, Header:=xlYes
'画面表示更新
Application.ScreenUpdating = True
2008年5月25日日曜日
【数学】連続データの最頻度値の推定
Ｊ番目の待ち時間による非斉次Poisson過程のレートの推定
①全データX_J(J=1..N)を昇順にソートする。
②窓の大きさ 整数Jを決定する。 J>3
③i=1..N-J P(x)
p(1/2[x_i + x_(i+j)]) = J / (N(x_(i+j)-x_i))
σ(1/2[x_i + x_(i+j)]) = sqr(J) / (N(x_(i+j)-x_i))
①全データX_J(J=1..N)を昇順にソートする。
②窓の大きさ 整数Jを決定する。 J>3
③i=1..N-J P(x)
p(1/2[x_i + x_(i+j)]) = J / (N(x_(i+j)-x_i))
σ(1/2[x_i + x_(i+j)]) = sqr(J) / (N(x_(i+j)-x_i))
登録:
投稿 (Atom)