MATLAB代做  | MATLAB代寫  | MATLAB有償編程
首 頁
當前位置:MATLAB代做|MATLAB代寫|MATLAB有償編程matlab源碼參考源碼matlab方面
基于MATLAB編程的衛星軌道動態仿真源碼程序        [↓跳到下載地址]
官方主頁:源碼共享網站:www.kggbzb.tw

聯系方式:客服QQ:1747812398 買代碼源碼軟件站,歡迎咨詢

運行環境:Win9X/2000/XP/2003/

源碼語言:簡體中文

源碼類型:源碼程序 - 參考源碼 - matlab方面

推薦星級:

更新時間:2016-04-07 21:40:53

源碼簡介

clear;clc;close all;
   a=26560;
    e=0.02;
    E=[0:0.1:2*pi];
    x=a*(cos(E)-e);
    y=a*sqrt((1-e^2))*sin(E);
    z=0*E;
    TimeNow=0;
    global SatellitePosition
    SatellitePosition=ones(24,4);
    figure(1);
    DrawEarth(0);
    hold on;
   
DtoR=2*pi/360;
 A1=[32.8 92.8 152.8 212.8 272.8 332.8 ];
 DrawSatelliteOrbit;
 Ctable=[10 50 160 260 ;
    80 180 220 320 ;
    10 130 250 340;
    50 150 170 300;
    100 210 310 340 ;
    140 150 240 350;];
   Wx=ones(1,1);Wy=ones(1,1);Wz=ones(1,1);
   simple=1;
   for k=1:6
       A=A1(k)*DtoR;
       B=55*DtoR;
     for m=1:4
           C=Ctable(k,m)*DtoR+TimeNow*2*pi/24;
           x=a*(cos(C)-e);
           y=a*sqrt((1-e^2))*sin( C);
           z=0*C;
           R3=[cos(A)  -sin(A)  0;
                sin(A)  cos(A) 0;
                 0        0     1;];
    R1=[1         0    0;
        0       cos(B)  -sin(B);
        0       sin(B) cos(B);];
    R2=[cos(C) -sin(C) 0;
        sin(C) cos(C) 0;
        0          0  1;];
    L1=length(E);
    R312=R3*R1*R2;
    Ans=R312*[x;y;z;];
    Wx=[Wx Ans(1,:)];
    Wy=[Wy Ans(2,:)];
    Wz=[Wz Ans(3,:)];
    x1=Ans(1,:);
    y1=Ans(2,:);
    z1=Ans(3,:);
    DrawSatellite(x1,y1,z1,k);
    temp=k*m;
    SatellitePosition(temp,:)=[x1 y1 z1 1]
   hold on;
  
end
end

EarthCenterPos=[0 0 0];
UserPosition=[6400 0 0];
for k=1:24
Temp=SatellitePosition(k,1:3)-UserPosition;
Dist1=Temp*Temp';
Temp=UserPosition-EarthCenterPos;
Dist2=Temp*Temp';
Temp=SatellitePosition(k,1:3)-EarthCenterPos;
Dist3=Temp*Temp';
JiaoJiao=acos((Dist1+Dist2-Dist3)/2/sqrt(Dist1)/sqrt(Dist2));
if(JiaoJiao<=pi/2)
    SatellitePosition(k,4)=0;
end
end
figure(2)
DrawEarth(0);
hold on;
DrawEarth(0);
hold on;
DrawSatelliteOrbit;
for k=1:24
    if(SatellitePosition(k,4)==1)
        TempX=SatellitePosition(k,1);
        TempY=SatellitePosition(k,2);
        TempZ=SatellitePosition(k,3);
        DrawSatellite(TempX,TempY,TempZ,1);
    end
end
TempX=UserPosition(1);
TempY=UserPosition(2);
TempZ=UserPosition(3);
Cube=50;
BoxPlot3(TempX,TempY,TempZ,Cube,Cube,3*Cube,3);
hold on;
SatellitePosition=[SatellitePosition;UserPosition 0];
%CalUserPos=CalculateUserPosition(SatellitePosition);
%[m,n]=size(CalUserPos);
%% TempX=CalUserPos(k,1);
   
   % TempY=CalUserPos(k,2);
    %TempZ=CalUserPos(k,3);
    %Cube=50;
    %BoxPlot3(TempX,TempY,TempZ,Cube,Cube,3*Cube,3);
    %hold on;
    %end


提 示:本站所有源碼只提供瀏覽,需要定制的朋友可以聯系在線客服!
注意:價格根據項目的難易程度來定價格業務咨詢

基于MATLAB編程的衛星軌道動態仿真源碼程序 --下載地址

注意:為避免不必要的誤會,本站項目里的源碼只公開部分需要的聯系在線客服

本站長期招聘程序代寫高手,歡迎加入華南地區matlab團隊

想創業卻沒有經驗的人

無論你是否有過網上開店的經驗,都可以隨時聯系在線客服,建立自己獨立的網站
想開網店卻不知道如何入手

淘寶創業成本低而且風險小,如果想開淘寶店的朋友可以聯系在線客服。
想兼職創業,卻不擅長交際與服務的人

在家創業月入5000元。網站程序+百套群發工具+網賺資料+域名+空間+本站終身代理資格,這樣你網賺的條件全具備了。每天3小時管理、推廣、收錢。
缺乏能快速贏利型產品的人

導入多種最新流行營銷軟件+網賺教程,讓入駐者輕松加盟、復制有效成交技巧、快速賺錢。

源碼評論評論內容只代表網友觀點,與本站立場無關!

   評論摘要(共 0 條,得分 0 分,平均 0 分) 查看完整評論

瀏覽說明

* 本站所有源碼全部公開,隨時隨地瀏覽!
* MATLAB軟件如用于商業用途,請購買正版!
* 如果您發現下載鏈接錯誤,請點擊報告錯誤謝謝!
* 站內提供的所有軟件包含破解及注冊碼均是由網上搜集,若侵犯了你的版權利益,敬請來信通知我們!
Copyright © 2008-2014 www.kggbzb.tw. All Rights Reserved.
頁面執行時間:250.00000 毫秒
安微25选5开奖号