Download presentation
Presentation is loading. Please wait.
1
Northrop Grumman RQ-4 Global Hawk
ロメオ・マルーセル・クルニアワン 1TE15720S
2
諸元 Wingspan: feet (39.8 meters) Length: 47.6 feet (14.5 meters) Height: 15.3 feet (4.7 meters) Maximum speed: 391 mph (629 km/h; 340 kn) Cruise speed: 357 mph (575 km/h; 310 kn) Unmanned Surveillance Aircraft
3
作画の元とした三面図
4
作画の元とした三面図
5
作画結果
6
作画結果
7
作画結果
8
作画結果
9
作画結果
10
プログラミング 回転と移動平衡と 拡大・縮小の仕方 は行列の掛け算で 使います。 まず、回転と移動と 拡大・縮小の行列 を一つずつ作る。
!Angle rotation for each axis! pi = atan(1.0) * aa1 = 0.5 * pi aa2 = 0.0 * pi aa3 = 0.0 * pi !Rotation qnd Parallel Shift! do i= 1, do j= 1, if (i == j) then a1(i, j) = a2(i, j) = a3(i, j) = a4(i, j) = a5(i, j) = a6(i, j) = else a1(i, j) = a2(i, j) = a3(i, j) = a4(i, j) = a5(i, j) = a5(i, j) = end if end do end do a1(2,2) = a1(2,2) * cos(aa1) a1(3,3) = a1(3,3) * cos(aa1) a1(2,3) = a1(2,3) - sin(aa1) a1(3,2) = a1(3,2) + sin(aa1) a2(1,1) = a2(1,1) * cos(aa2) a2(3,3) = a2(3,3) * cos(aa2) a2(1,3) = a2(1,3) + sin(aa2) a2(3,1) = a2(3,1) - sin(aa2) a3(1,1) = a3(1,1) * cos(aa3) a3(2,2) = a3(2,2) * cos(aa3) a3(1,2) = a3(1,2) - sin(aa3) a3(2,1) = a3(2,1) + sin(aa3) a4(1,4) = a4(1,4) a4(2,4) = a4(2,4) a4(3,4) = a4(3,4) a5(1,4) = a5(1,4) a5(2,4) = a5(2,4) a5(3,4) = a5(3,4) a6(1,1) = a6(1,1) * a6(2,2) = a6(2,2) * a6(3,3) = a6(3,3) * 1.0
11
プログラミング そして、点の行 列が出来たら、 回転と移動と拡 大・縮小の行列 はSubroutineで 行列掛け算す る。
!Matrices Multiplication! subroutine mm(m1, m2, a, b, c, m3) implicit none real(4), dimension(a,b), intent(IN) :: m1 real(4), dimension(b,c), intent(IN) :: m2 real(4), dimension(a,c), intent(OUT) :: m3 integer, intent(IN) :: a, b, c integer :: x, y, z m3= do x= 1, a do y= 1, c do z= 1, b m3(x,y) = m3(x,y) + m1(x,z) * m2(z,y) end do end do end do end subroutine !Calculation! call mm(a4, a3, 4, 4, 4, b1) call mm(b1, a2, 4, 4, 4, b2) call mm(b2, a1, 4, 4, 4, b3) call mm(b3, a5, 4, 4, 4, b4) call mm(b4, c1, 4, 4, 765, cc1) call mm(a6, cc1, 4, 4, 765, c2) c2= abs(c2) call mm(a1, a2, 4, 4, 4, bb1) call mm(bb1, a3, 4, 4, 4, bb2) call mm(bb2, r1, 4, 4, 15, rr1) call mm(a6, rr1, 4, 4, 15, r2) r2 = abs(r2)
12
参考ウェブ: Sheets/Display/Article/104516/rq-4-global-hawk/ 4_Global_Hawk Hawk hawk/page/3/
Similar presentations
© 2024 slidesplayer.net Inc.
All rights reserved.