Blog: 5月 2008

2008年5月31日土曜日

【計算機】セキュア

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日金曜日

【計算機】ＷＡＶ　ｆｍｔ

WAV ファイルフォーマット
http://www.kk.iij4u.or.jp/~kondo/wave/#tag
WAVE ファイル
http://wisdom.sakura.ne.jp/system/winapi/media/mm10.html
Waveファイルのフォーマット編
http://homepage3.nifty.com/ryuz/programing/wavefmt.html

2008年5月28日水曜日

【3DCAD】情報

龍菜
http://www.page.sannet.ne.jp/gah01300/
CATIA掲示板
http://mmy.ath.cx/v5bbs/
本音のCADCAM
http://amaterus.jp/
IBM CATIA Japan
http://www-06.ibm.com/jp/manufacturing/prod/catia/

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 試み

【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

【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

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))

【vba_excel】シート名の取得

'シート名の頭がoのシートを取得する

Dim intRow As Integer
Dim objWorkSheet As Worksheet

intRow = 1
For Each objWorkSheet In Worksheets
if left(objWorkSheet.Name,1) = "o" then
Sheets("Sheet1").Cells(intRow, 1).Value = objWorkSheet.Name
intRow = intRow + 1
end if
Next

2008年5月20日火曜日

【検索】ウィッキペディア

フリー百科事典
http://ja.wikipedia.org/wiki

【DocuKWorks】紙文書スキャン

①ファイル－スキャナの選択
②ファイル－スキャン開始
③親展ボックス番号　入力　→親展ボックスを開く
④文書を選んで、読み取り

【DocuKWorks】アップデート６．２．４

アップデート　6.2.4
http://www.fujixerox.co.jp/soft/docuworks/download.html

2008年5月19日月曜日

【旅行】高速道路

ＥＴＣ割引
・通勤割引　最大５０％ＯＦＦ
午前６時～９時
午後５時～８時
走行距離１００ｋｍ以内
・深夜割引
午前０～４時　最大４０％ＯＦＦ
距離制限なし

ＥＴＣマイレージサービス
http://www.smile-etc.jp/index.html
ＮＥＸＣＯ
http://www.c-nexco.co.jp/guide/