Microsoft Word - CGbyExcel4.doc
|
|
|
- きのこ むらかわ
- 7 years ago
- Views:
Transcription
1 メディア処理演習 CG: 3 Excel xls 6.6 図 6.4 アルファブレンディング処理 ScanlineWithAlpha 1 '' Sub ScanlineWithAlpha(x0, y0, a0, x1, y1, a1, xmin, xmax, amin, amax) ' x y dx = x1 - x0 dy = y1 - y0 ' da = a1 - a0 ' 2 P0 ' If dx = 0 And dy = 0 Then xmin(ya) = x0 xmax(ya) = x0 amin(ya) = a0 ' dmin -> amin amax(ya) = a0 ' dmax -> amax Exit Sub ' x sx sx = 1 If dx < 0 Then dx = -dx sx = -sx ' y sy sy = 1 If dy < 0 Then dy = -dy sy = -sy ' ' dx2 = dx * 2 dy2 = dy * 2 ' m -1 m 1 If dx > dy Then dalpha = da / dx ' E = dy2 y = y0 alpha = a0 For x = x0 To x1 Step sx If x < xmin(y) Or xmin(y) = 0 Then xmin(y) = x amin(y) = alpha If x > xmax(y) Or xmax(y) = 0 Then
2 xmax(y) = x amax(y) = alpha C = C src src + C dst (1 src ) (6.8) If E < dx Then E = E + dy2 E = E + dy2 - dx2 y = y + sy C dst C src, α src alpha = alpha + dalpha Next x ' m m 1 dalpha = da / dy ' E = dx2 x = x0 alpha = a0 For y = y0 To y1 Step sy If x < xmin(y) Or xmin(y) = 0 Then xmin(y) = x amin(y) = alpha If x > xmax(y) Or xmax(y) = 0 Then xmax(y) = x amax(y) = alpha If E < dy Then E = E + dx2 E = E + dx2 - dy2 x = x + sx alpha = alpha + dalpha Next y ScanlinewithAlpha 図 6.5 不透明度を考慮したピクセル値の計算 DrawPixelWithAlpha ' Sub DrawPixelWithAlpha(x, y, alpha, sr, sg, sb) ' color_buffer color_buffer = ColorBufferSheetname + CStr(BackBufferID) ' dc dc = Worksheets(color_buffer).Cells(y, x).interior.color ' dc RGB ' dc = dr + dg * db * 256 * 256 dr = dc Mod 256 dg = Int(dc / 256) Mod 256 db = Int(dc / 65536) ' r = sr * alpha + dr * (1 - alpha) g = sg * alpha + dg * (1 - alpha) b = sb * alpha + db * (1 - alpha) ' Worksheets(color_buffer).Cells(y, x).interior.color = RGB(r, g, b) DrawPixelWithAlpha C = C src α src + C dst (1 α src ) DrawTriangleWithAlpha C dst C src src C 6.5 '' 2
3 Sub DrawTriangleWithAlpha(x0, y0, x1, y1, x2, y2, a, r, g, b) ' Dim xmin(256) As Integer Dim xmax(256) As Integer Scanline x0, y0, x1, y1, xmin, xmax Scanline x1, y1, x2, y2, xmin, xmax Scanline x2, y2, x0, y0, xmin, xmax ' ymin = WorksheetFunction.Min(y0, y1, y2) ymax = WorksheetFunction.Max(y0, y1, y2) For y = ymin To ymax For x = xmin(y) To xmax(y) DrawPixelWithAlpha x, y, a, r, g, b Next x Next y DrawTriangleWithAlpha ( 6.6) Main_DrawTetraHedron WithAlpha '' Sub Main_DrawTetrahedronWithAlpha() ' 2 BackBufferID = 2 color_buffer1 = ColorBufferSheetname + CStr(1) color_buffer2 = ColorBufferSheetname + CStr(2) depth_buffer = DepthBufferSheetname CreateFrameBuffer color_buffer1, 1, 11 CreateFrameBuffer color_buffer2, 1, 11 CreateFrameBuffer depth_buffer, 1, 11 =0.5=0.5 (a) 奥から赤 青の順で描画した場合 =0.5=0.5 (b) 奥から青 赤の順で描画した場合図 6.6 半透明三角形パッチの描画順序 ClearFrameBuffer color_buffer1 ClearFrameBuffer color_buffer2 ClearDepthBuffer depth_buffer ' Worksheets("Transformation").Range("C5").Value = Worksheets("Transformation").Range("D5").Value = ' Dim TriangleID(4) TriangleID(1) = 4 TriangleID(2) = 2 TriangleID(3) = 1 TriangleID(4) = Excel x 50 y 20 3 ' Dim alpha(4) alpha(1) = 0.8 alpha(2) = 0.6 alpha(3) = 0.7 alpha(4) = 0.9 ' For i = 1 To 4 Set Triangle = Range("Connections").Rows(TriangleID(i)) ' 1
4 index1 = Triangle.Cells(1, 1) x1 = Round(Range("ProjectedVertices").Cells(index1, 1)) y1 = Round(Range("ProjectedVertices").Cells(index1, 2)) ' 2 index2 = Triangle.Cells(1, 2) x2 = Round(Range("ProjectedVertices").Cells(index2, 1)) y2 = Round(Range("ProjectedVertices").Cells(index2, 2)) ' 3 index3 = Triangle.Cells(1, 3) x3 = Round(Range("ProjectedVertices").Cells(index3, 1)) y3 = Round(Range("ProjectedVertices").Cells(index3, 2)) ' r = Range("Colors").Cells(TriangleID(i), 1) g = Range("Colors").Cells(TriangleID(i), 2) b = Range("Colors").Cells(TriangleID(i), 3) ' a = alpha(triangleid(i)) r, g, b ' DrawTriangleWithAlpha x1, y1, x2, y2, x3, y3, a, ' DrawLine x1, y1, x2, y2, 0, 0, 0 DrawLine x2, y2, x3, y3, 0, 0, 0 DrawLine x3, y3, x1, y1, 0, 0, 0 Next Excel,, (2011 ) 4
5 課題 CG ExcelCG CG 3.1.xls CG 5
コンピュータ概論
4.1 For Check Point 1. For 2. 4.1.1 For (For) For = To Step (Next) 4.1.1 Next 4.1.1 4.1.2 1 i 10 For Next Cells(i,1) Cells(1, 1) Cells(2, 1) Cells(10, 1) 4.1.2 50 1. 2 1 10 3. 0 360 10 sin() 4.1.2 For
Excel Excel Excel = Excel ( ) 1
10 VBA / 10 (2016 06 21 ) Excel Excel Excel 20132 20 = 1048576 Excel 201316 100 10 (2016 06 21 ) 1 Excel VBA Excel Excel 2 20 Excel QR Excel R QR QR BLASLAPACK 10 (2016 06 21 ) 2 VBA VBA (Visual Basic
B 5 (2) VBA R / B 5 ( ) / 34
B 5 (2) VBAR / B 5 (2014 11 17 ) / 34 VBA VBA (Visual Basic for Applications) Visual Basic VBAVisual Basic Visual BasicC B 5 (2014 11 17 ) 1 / 34 VBA 2 Excel.xlsm 01 Sub test() 02 Dim tmp As Double 03
SCORE−‹Šp‡Ì”è‹ø‡«Ver3
2 Step 0 Step 1 Step 1 Step 2 Step 3 Step 4 Step 5 Step1 3 Step 2 Step 2-1 Step 2-2 Step3 Step4 Step2 4 5 Step 3 Step 3-1 Step 3-2 Step 3-3 Step5 6 Step 3-4 Step3 Step5 7 8 Step 4 Step 4-1 9 Step4 Step
Excel Excel Excel 20132 20 = 1048576 Excel 201316 100 III 7 (2014 11 18 ) 1
III 7 VBA / III 7 (2014 11 18 ) Excel Excel Excel 20132 20 = 1048576 Excel 201316 100 III 7 (2014 11 18 ) 1 Excel VBA Excel Excel 2 20 Excel QR Excel R QR QR BLASLAPACK III 7 (2014 11 18 ) 2 VBA VBA (Visual
P-12 P-13 3 4 28 16 00 17 30 P-14 P-15 P-16 4 14 29 17 00 18 30 P-17 P-18 P-19 P-20 P-21 P-22
1 14 28 16 00 17 30 P-1 P-2 P-3 P-4 P-5 2 24 29 17 00 18 30 P-6 P-7 P-8 P-9 P-10 P-11 P-12 P-13 3 4 28 16 00 17 30 P-14 P-15 P-16 4 14 29 17 00 18 30 P-17 P-18 P-19 P-20 P-21 P-22 5 24 28 16 00 17 30 P-23
D0020.PDF
n 3 X n Y n = Z n 17 1995 300 n n 2 3 2 a b c c 2 a 2 b 2 600 2000 322 3 15 2 3 580 3 1 5 4 3 2 1 300 2 1 2 1 1 ExcelVBA 2 VBA 1 VBA 2 API Sleep ExcelVBA 2 100 60 80 50 ExcelVBA API Sleep 3 100 60 (80
取扱説明書[d-01G]
![取扱説明書[d-01G]](/thumbs/40/20690255.jpg "取扱説明書[d-01G]")
d-01g 1 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 T 18 1 2 19 3 1 2 4 3 4 20 21 1 2 3 4 22 1 T 2 T 1 T 2 T 23 1 T 1 2 24 25 1 2 26 1 T 27 1 2 3 1 2 3 28 29 30 1 2 1 2 31 1 2 3 32 1 2 3 4 5 1 2 3 4 33 1
2 X Y Y X θ 1,θ 2,... Y = f (X,θ 1,θ 2,...) θ k III 8 ( ) 1 / 39
III 8 (3) VBA, R / III 8 (2013 11 26 ) / 39 2 X Y Y X θ 1,θ 2,... Y = f (X,θ 1,θ 2,...) θ k III 8 (2013 11 26 ) 1 / 39 Y X 1, X 2,..., X n Y = f (X 1, X 2,..., X n,θ 1,θ 2,...) (y k, x k,1, x k,2,...)
ii
Excel VBA VBA 2002 ii CONTENTS 1 2 3 4 5 6 7 8 9 10 1 2 2 EXVBA2_2002 1-2 1-2.xls 12 Sub () Dim FstValue(6) As Integer Dim NextValue(6) As Integer Dim TtlValue(6) As Integer Dim i As Integer Set WS =
コンピュータ概論
5.1 VBA VBA Check Point 1. 2. 5.1.1 ( bug : ) (debug) On Error On Error On Error GoTo line < line > 5.1.1 < line > Cells(i, j) i, j 5.1.1 MsgBox Err.Description Err1: GoTo 0 74 Visual Basic VBA VBA Project
2X Y Y X θ 1, θ 2,... Y = f(x, θ 1, θ 2,...) θ k III 8 (2013 05 28 ) 1 / 39
III 8 (3) VBA, R / III 8 (2013 05 28 ) / 39 2X Y Y X θ 1, θ 2,... Y = f(x, θ 1, θ 2,...) θ k III 8 (2013 05 28 ) 1 / 39 Y X 1, X 2,..., X n Y = f(x 1, X 2,..., X n, θ 1, θ 2,...) (y k, x 1,k, x 2,k,...)
D0120.PDF
12? 1940 Stanislaw Ulam John von Neumann Cellular Automaton 2 Cellular Automata 1 0 1 2 0 1 A 3 B 1 2 3 C 10 A B C 1 ExcelVBA 1 1 1 1 0 1 1 B7 BD7 road1 B8 BD31 board 0 Road1 50 board 0 1 0 1 Excel 2 2
橡Taro9-生徒の活動.PDF
3 1 4 1 20 30 2 2 3-1- 1 2-2- -3- 18 1200 1 4-4- -5- 15 5 25 5-6- 1 4 2 1 10 20 2 3-7- 1 2 3 150 431 338-8- 2 3 100 4 5 6 7 1-9- 1291-10 - -11 - 10 1 35 2 3 1866 68 4 1871 1873 5 6-12 - 1 2 3 4 1 4-13
ホームページ (URL) を開く 閉じる 益永八尋 VBA からホームページを開いたり 閉じたりします ホームページを開くはシート名 HP_Open で操作し ホームページを閉じるはシート名 "HP_Close" で操作します ホームページを開く方法はいくつかありますがここでは 1 例のみを表示します なお これは Web から入手したサンプルプログラムから使い勝手が良いように修正 追加したものです
NEXT 1 2 3 1 2 3 4 5 6 1 2 1 2 1 1 1 1 2 3 1 2 3 4 5 6 1 2 3 4 1 2 3 4 5 6 1 2 3 4 5 1 2 3 1 1 2 1 2 3 4 5 6 7 1 2 3 1 2 1 2 3 4 5 6 7 8 9 1 1 1 2 1 2 1 2 3 4 5 6 1 2
001 No.3/12 1 1 2 3 4 5 6 4 8 13 27 33 39 001 No.3/12 4 001 No.3/12 5 001 No.3/12 6 001 No.3/12 7 001 8 No.3/12 001 No.3/12 9 001 10 No.3/12 001 No.3/12 11 Index 1 2 3 14 18 21 001 No.3/12 14 001 No.3/12
Microsoft Word - 課題1_2.doc
課題 7-2 手作業でデータを作るのは面倒なので, 以下のようなデータ生 成のプログラムを作成します Public nodeno As Integer ' 節点番号 Public elemno As Integer ' 要素番号 Sub gennode(xnode, Ynode, BX, BY, FX, FY) nodeno = nodeno + 1: ii = nodeno + 1 With Worksheets("
1. 2001 10 2 480 2003 8 1.6 5 2. 90 3. 4. 5. 5 60 6. 1 2 2 2 4 5 5 6 6 6 7 10 10 10 12 12 12 14 14 15 15 60 15 17 17 18 2001 10 2 480 2003 8 1.6 5 1 1.8 3.6 1 6.8 1.5 3 3 5 6065 70 5 1.22004 1 1 2002 4
STEP1 STEP3 STEP2 STEP4 STEP6 STEP5 STEP7 10,000,000 2,060 38 0 0 0 1978 4 1 2015 9 30 15,000,000 2,060 38 0 0 0 197941 2016930 10,000,000 2,060 38 0 0 0 197941 2016930 3 000 000 0 0 0 600 15
P072-076.indd
3 STEP0 STEP1 STEP2 STEP3 STEP4 072 3STEP4 STEP3 STEP2 STEP1 STEP0 073 3 STEP0 STEP1 STEP2 STEP3 STEP4 074 3STEP4 STEP3 STEP2 STEP1 STEP0 075 3 STEP0 STEP1 STEP2 STEP3 STEP4 076 3STEP4 STEP3 STEP2 STEP1
1
1 2 3 4 5 6 7 8 9 0 1 2 6 3 1 2 3 4 5 6 7 8 9 0 5 4 STEP 02 STEP 01 STEP 03 STEP 04 1F 1F 2F 2F 2F 1F 1 2 3 4 5 http://smarthouse-center.org/sdk/ http://smarthouse-center.org/inquiries/ http://sh-center.org/
平成20年5月 協会創立50年の歩み 海の安全と環境保全を目指して 友國八郎 海上保安庁 長官 岩崎貞二 日本船主協会 会長 前川弘幸 JF全国漁業協同組合連合会 代表理事会長 服部郁弘 日本船長協会 会長 森本靖之 日本船舶機関士協会 会長 大内博文 航海訓練所 練習船船長 竹本孝弘 第二管区海上保安本部長 梅田宜弘
![Œ{Ł¶/1ŒÊ −ªfiª„¾ [ 1…y†[…W ]](/thumbs/50/26134150.jpg "Œ{Ł¶/1ŒÊ −ªfiª„¾ [ 1…y†[…W ]")
D0050.PDF
Excel VBA 6 3 3 1 Excel BLOCKGAME.xls Excel 1 OK 2 StepA D B1 B4 C1 C2 StepA StepA Excel Workbook Open StepD BLOCKGAME.xls VBEditor ThisWorkbook 3 1 1 2 2 3 5 UserForm1 4 6 UsorForm2 StepB 3 StepC StepD
DVIOUT-講
005-10-14 1 1 [1] [] [3] [4] (a + b) = a +ab + b [5] (a + b) 3 a 3 +a b + ab + a b +ab + b 3 a 3 +3a b +3ab + b 3 [6] (a + b) 4 (a + b) 5 [7] technology expand((a+b) n n =?) [8] technology n =6, 7, 8,
Microsoft Word - VBA基礎(3).docx
上に中和滴定のフローチャートを示しました この中で溶液の色を判断する部分があります このような判断はプログラムではどのように行うのでしょうか 判断に使う命令は IF 文を使います IF は英語で もし何々なら という意味になります 条件判断条件判断には次の命令を使います If 条件式 1 Then ElseIf 条件式 2 Then ElseIf 条件式 3 Then 実行文群 1 実行文群 2 実行文群
証券協会_p56
INDEX P.02-19 P.20-31 P.32-34 1 STEP1 STEP2 STEP3 STEP4 P.03-06 P.07-10 P.11-12 P.11-14 P.15-16 P.15-18 P.19 202 STEP 1 3 4 5 10 25 200 30 1,000 2,500 20 30 40 50 60 5 1 80.4 356.7 66.3 461.7 452.7 802.7
dx dt = f x,t ( ) t
MATLAB 1. 2. Runge-Kutta 3. 1. 2. 3. dx dt = f x,t ( ) t dx( t) dt = lim Δt x( t + Δt) x( t) Δt t = nδt n = 0,1,2,3,4,5, x = x( nδt) n Δt dx ( ) dt = f x,t x n +1 x n Δt = f ( x,nδt) n 1 x n = x 0 n =
PowerPoint プレゼンテーション
演習課題レッスン (1) '(1) ワークシートどうしのやりとり ' ワークシート 請求書 1 から ワークシート データ収集 にデータを転記しましょう Sub example01() ' 請求書番号 ( 請求書 1のE2からデータ収集のA2へ ) Worksheets(" データ収集 ").Range("A2").Value = Worksheets(" 請求書 1").Range("E2").Value
情報基礎Ａ
情報基礎 A 第 10 週 プログラミング入門 マクロ基本文法 4 1 配列 FOR~NEXT 全眞嬉 東北大学情報科学研究科システム情報科学専攻情報システム評価学分野 http://www.dais.is.tohoku.ac.jp/~jinhee/jyoho-19.html 6 人分の合計を計算 2 socre(0) socre(1) socre(2) socre(3) socre(4) socre(5)
1
1 2 3 4 5 6 7 8 9 10 A I A I d d d+a 11 12 57 c 1 NIHONN 2 i 3 c 13 14 < 15 16 < 17 18 NS-TB2N NS-TBR1D 19 -21BR -70-21 -70-22 20 21 22 23 24 d+ a 25 26 w qa e a a 27 28 -21 29 w w q q q w 30 r w q!5 y
Lesson 1 1 EXVBA2000 Lesson01 Lesson01.xls 2
Excel2000VBA L e a r n i n g S c h o o l 1 Lesson 1 1 EXVBA2000 Lesson01 Lesson01.xls 2 3 Module1:(General)- Public Sub () Dim WS As Object Dim DiffDate As Integer Dim MaxRows As Integer, CopyRows As Integer
untitled
186 17 100160250 1 10.1 55 2 18.5 6.9 100 38 17 3.2 17 8.4 45 3.9 53 1.6 22 7.3 100 2.3 31 3.4 47 OR OR 3 1.20.76 63.4 2.16 4 38,937101,118 17 17 17 5 1,765 1,424 854 794 108 839 628 173 389 339 57 6 18613
untitled
1. 3 14 2. 1 12 9 7.1 3. 5 10 17 8 5500 4. 6 11 5. 1 12 101977 1 21 45.31982.9.4 79.71996 / 1997 89.21983 41.01902 6. 7 5 10 2004 30 16.8 37.5 3.3 2004 10.0 7.5 37.0 2004 8. 2 7 9. 6 11 46 37 25 55 10.
立ち読みページ
Chapter STEP1 74 STEP 75 STEP 91 STEP4 100 105 Chapter 1 P.75 P.79 P.8 4 P.84 5 P.85 6 P.91 7 P.96 8 P.97 9 P.100 10 P.10 11 P.10 1 P.104 1 STEP 1 1 1 4 5 6 7 8 9 74 STEP 1 1 75 STEP UP 1 1 1 4 5 6 7 8
N88 BASIC 0.3 C: My Documents 0.6: 0.3: (R) (G) : enterreturn : (F) BA- SIC.bas 0.8: (V) 0.9: 0.5:
BASIC 20 4 10 0 N88 Basic 1 0.0 N88 Basic..................................... 1 0.1............................................... 3 1 4 2 5 3 6 4 7 5 10 6 13 7 14 0 N88 Basic 0.0 N88 Basic 0.1: N88Basic
.NETプログラマー早期育成ドリル ～VB編 付録 文法早見表～
.NET プログラマー早期育成ドリル VB 編 付録文法早見表 本資料は UUM01W:.NET プログラマー早期育成ドリル VB 編コードリーディング もしくは UUM02W:.NET プログラマー早期育成ドリル VB 編コードライティング を ご購入頂いた方にのみ提供される資料です 資料内容の転載はご遠慮下さい VB プログラミング文法早見表 < 基本文法 > 名前空間の定義 Namespace
研究紀要 第５号
3 4 5 6 7 8 a s d f a 9 10 s d a 11 12 s d f g 13 h j a d s 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 a 35 s 36 a 37 s 38 a 39 s 40 a 41 s d 42 f 43 44 46 47 48 49 50 a s d as d 51
8.3 ( ) Intrinsic ( ) (1 ) V v i V {e 1,..., e n } V v V v = v 1 e v n e n = v i e i V V V V w i V {f 1,..., f n } V w 1
83 ( Intrinsic ( (1 V v i V {e 1,, e n } V v V v = v 1 e 1 + + v n e n = v i e i V V V V w i V {f 1,, f n } V w 1 V w = w 1 f 1 + + w n f n = w i f i V V V {e 1,, e n } V {e 1,, e n } e 1 (e 1 e n e n
MQTT V3.1 プロトコル仕様
1999 d digit = X MOD 128 X = X DIV 128 // if there are mre digits t encde, set the tp bit f this digit if ( X > 0 ) digit = digit OR 0x80 endif 'utput' digit while ( X> 0 ) multiplier = 1 value = 0
2005 DE-9PF-N DE-9SF-N DA-15PF-N DA-15SF-N DB-25PF-N DB-25SF-N DC-37PF-N DC-37SF-N DD-50PF-N DD-50SF-N DE-9PF-N DC-37PF-N DA-1
25 U S SB M M 9 9 P P 0.2 ML ML E RS232C A 15 15 15 UL 25 S U UL RS232C 9PM 9PM E A 0.2 X 0000000 3,342 120 180 300 3,370 120 180 300 3,361 120 180 300 4,664 164 210 551 4,626 164 210 551 6,064 226 290
倉庫番
倉庫番 VB 2005 63 プログラムの概要 其の昔 一世を風靡し世界中に愛好家の居るパズルゲーム 倉庫番 で有る 荷物 ( 蛸 ) を押して ( 引く事は出来ない ) 所定の場所 ( 壺 ) に納める単純明快な物で有る 猶 一度クリアした面は 自由に再度プレイする事が出来るが 新たな面には 前の面をクリアしないと進む事は出来ない 一般的に 実用プログラムに比較するとゲームプログラムは 高度なテクニックを要求される事が多い
, ,279 w
No.482 DEC. 200315 14 1754,406 100.0 2160,279 w 100 90 80 70 60 50 40 30 20 10 28.9 23.8 25.0 19.3 30.4 25.0 29.5 80.7 75.0 75.0 70.5 71.1 69.6 76.2 7 8 9 10 11 12 13 23.2 76.8 14 14 1751,189 100.0 2156,574
untitled
Tylor 006 5 ..........5. -...... 5....5 5 - E. G. BASIC Tylor.. E./G. b δ BASIC.. b) b b b b δ b δ ) δ δ δ δ b b, b ) b δ v, b v v v v) ) v v )., 0 OPTION ARITHMETIC DECIMAL_HIGH INPUT FOR t TO 9 LET /*/)
AccessVBA−‹ŠpŁÒ-flO“Z
Microsoft Access 1 2 Private Sub After5days_Click( ) msg = Date + 5 MsgBox mag End Sub 3 Me.Filter = " =' " & Me! & "'" 4 5 Private Sub _Click() If IsNull(Me!) Then MsgBox " " Me!.SetFocus Me!.Dropdown
ケミカルエンジニアのためのExcelを用いた化学工学計算法
VBA 7.1 f ()= ( f ( )) y = f ()(1) y = f ( )( ) + f ( ) (1) 1 1 1 = f ( ) f ( ) (2) 1 n = = y = f() y = () 1 n+1 = n (f( n )f( n )) 1.7 1 2 log()2 145 7.2 f ( ) 1-1 -1 f ( ) (3) (4) 34 5 1 1) ( ) ( ) '(
1 2 2 4 4 6 8 20 51 60 61 64 65 65 67 69 69 70 72 12 104,007 13.9 40.7 34.6 2030 16 1 21 1 16 1 1 1979 1979 25 30 12 25 2 60 2 2 3 16 1 1 1/2500 1979 16 9 4 5 16 11 16 12 6 7 3,214 146,390 977 30.4% 39,658
Gmech08.dvi
145 13 13.1 13.1.1 0 m mg S 13.1 F 13.1 F /m S F F 13.1 F mg S F F mg 13.1: m d2 r 2 = F + F = 0 (13.1) 146 13 F = F (13.2) S S S S S P r S P r r = r 0 + r (13.3) r 0 S S m d2 r 2 = F (13.4) (13.3) d 2
D0090.PDF
400. 1 1 1 3 500g 180cm A A 0g 500g 500g 500g 0.2 0.3 cm 500g 1kg 12 2 4 2 1 2 1 500g 500g 500g 2 A FreeFall 2 VBEditor 1 1 Option Explicit Declare Sub Sleep Lib "kernel32" (ByVal dwmilliseconds As Long)