【perl】データ間引き

＄ｎ＝０；

ｗｈｉｌｅ（＜ＳＴＤＩＮ＞）｛
＄ｎ＋＋；
ｉｆ（（＄ｎ　％　４）＝＝０）　｛　ｐｒｉｎｔ；　｝　＃４行とばし
｝

【c++】データ間引き

＃ｉｎｃｌｕｄｅ　＜ｆｓｔｒｅａｍ．ｈ＞ｉｎｔ　ｍａｉｎ（ｉｎｔ　ａｃ　，　ｃｈａｒ　＊ａｖ［］）
｛
　ｃｈａｒ　ｃ；
　ｉｆｓｔｒｅａｍ　ｆｉ；
　ｉｎｔ　ｃｈｅｃｋ；
　ｉｎｔ　ｎ；

　ｃｈｅｃｋ　＝　０；
　ｎ＝５１；

　ｆｏｒ（ｉｎｔ　ｉ　＝１；　ｉ＜ａｃ　；　ｉ＋＋）｛
　ｆｉ．ｏｐｅｎ（ａｖ［ｉ］）；
　ｉｆ（！ｆｉ）｛
　　ｃｅｒｒ　＜＜　”ｃａｎ’ｔ　ｏｐｅｎ”　＜＜　ｅｎｄｌ；
　　ｒｅｔｕｒｎ　１；
　｝

　　ｗｈｉｌｅ（ｆｉ．ｇｅｔ（ｃ））　｛
　　　ｉｆ（ｃｈｅｃｋ＝＝１）　ｃｏｕｔ　＜＜　ｃ；
　　　ｉｆ（ｃ＝＝１０）　ｎ＋＋；
　　　ｉｆ（！（ｎ　％　５０））　ｃｈｅｃｋ＝１；　　／／５０行ごとに出力
　　　ｉｆ（ｎ　％　５０）　ｃｈｅｃｋ＝０；
　　｝
　ｆｉ．ｃｌｏｓｅ（）；
　｝
　ｒｅｔｕｒｎ　０；
｝

【英語】力学

回転モーメント.rotation_moment
力.force
距離.distance
加速度.acceleration
仕事.work
摩擦力.frictional_force
電力.electric_power
電圧.voltage
電流.current

【樹脂】接着の仕方

①溶剤揮発形
②感圧形
③ホットメルト形
④化学反応
【一液形】
【二液形】
常温反応
加熱反応
光や電子線の照射
水分と反応
酸素の遮断

【電磁場】マクスウェルの方程式

div E = ρ/ε_0
rot E = -dB/dt
div B = 0c^2
rot B = dE/dt

【樹脂】樹脂材料の寿命について

製品製作前段階で材料の寿命を予測することは、かなり困難である。
調べてみると、
・ある実験式によって長時間の寿命を予測する方法
・ある領域のS-N線図を作成し、使用条件での寿命を予測する方法
・直線被害則（マイナー則）を適用する方法

【vba_excel】Mp3ファイルのタイトル読み込み

MP3のタイトルを表示させるソフトが手元になかったので作って見ることにした。
MP3ファイルをバイナリエディタで開くと後ろの方にタイトルらしきものがあった。
文字数を数えて作ったExcelのマクロは次ようになりました。（Excel97)

Sub ボタン1_Click()
Dim varString As String * 30
Dim Myfile As Variant
'init
a = ""
c = 0
varString = ""
myfilename = Application.GetOpenFilename
mylen = Len(myfilename)
For i = 1 To mylen
a = Mid(myfilename, i, 1)
If a = "\" Then
c = i
End If
Next
pathf = Left(myfilename, c)
drivef = Left(myfilename, 1)
ChDrive drivef 'drive change
ChDir pathf 'path change
i = 1
Myfile = Dir(pathf & "*.mp3")
Do Until (Len(Myfile) = 0)
Sheets(1).Cells(i, 1) = Myfile 'file name
Open pathf & Myfile For Binary Access Read Lock Read As #1
Max = FileLen(pathf & Myfile)
Seek #1, Max - 128 + 4 'Song name
Get #1, , varString
Sheets(1).Cells(i, 3) = varString
varString = ""
Seek #1, Max - 128 + 4 + 30 'artist name
Get #1, , varString
Sheets(1).Cells(i, 2) = varString
varString = ""
Close
i = i + 1
Myfile = Dir()
Loop
End Sub