Northrop Grumman RQ-4 Global Hawk ロメオ・マルーセル・クルニアワン 1TE15720S
諸元 Wingspan: 130.9 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
作画の元とした三面図
作画の元とした三面図
作画結果
作画結果
作画結果
作画結果
作画結果
プログラミング 回転と移動平衡と 拡大・縮小の仕方 は行列の掛け算で 使います。 まず、回転と移動と 拡大・縮小の行列 を一つずつ作る。 !Angle rotation for each axis! pi = atan(1.0) * 4.0 aa1 = 0.5 * pi aa2 = 0.0 * pi aa3 = 0.0 * pi !Rotation qnd Parallel Shift! do i= 1, 4 do j= 1, 4 if (i == j) then a1(i, j) = 1.0 a2(i, j) = 1.0 a3(i, j) = 1.0 a4(i, j) = 1.0 a5(i, j) = 1.0 a6(i, j) = 1.0 else a1(i, j) = 0.0 a2(i, j) = 0.0 a3(i, j) = 0.0 a4(i, j) = 0.0 a5(i, j) = 0.0 a5(i, j) = 0.0 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) + 0.0 a4(2,4) = a4(2,4) + 0.0 a4(3,4) = a4(3,4) + 0.0 a5(1,4) = a5(1,4) - 0.0 a5(2,4) = a5(2,4) - 250.0 a5(3,4) = a5(3,4) - 400.0 a6(1,1) = a6(1,1) * 1.0 a6(2,2) = a6(2,2) * 2.0 a6(3,3) = a6(3,3) * 1.0
プログラミング そして、点の行 列が出来たら、 回転と移動と拡 大・縮小の行列 は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=0.0 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)
参考ウェブ： http://www.af.mil/About-Us/Fact- Sheets/Display/Article/104516/rq-4-global-hawk/ https://en.wikipedia.org/wiki/Northrop_Grumman_RQ- 4_Global_Hawk http://www.sdmodo.org/users/SDAM/GlobalHawk/ http://bagera3005.deviantart.com/art/Northrop-RQ-4-Global- Hawk-128260294 https://www.youtube.com/watch?v=zn9dQAKqc94 https://theaviationist.com/tag/northrop-grumman-rq-4-global- hawk/page/3/