卫星轨道matlab源码

卫星轨道matlab源码，已验证，调试成功，很好的代码，希望大家喜欢

function DrawSatelliteOrbit
clear all;
a=26560;%a卫星椭圆轨道半长轴
e=0.02;%e椭圆的偏心率
E=[0:0.1:2*pi];
x=a*（cos（E）-e）;
y=a*sqrt（（1-e^2））*sin（E）;
z=0*E;
DtoR=2*pi/360;
A1=[32.8 92.8 152.8 212.8 272.8 332.8];%卫星星座数据
for k=1:6
    A=A1（k）*DtoR;%升交点的经度
    B=55*DtoR;%轨道倾角
    C=pi/100;%近地点的幅角
        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];
    x1=Ans（1:）;
    y1=Ans（2:）;
    z1=Ans（3:）;
    plot3c（x1y1z1k）;
    hold on;
    axis equal;
%     axis off;
    grid on;
end

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        866  2010-03-11 21:01  卫星轨道\DrawSatelliteOrbit.m

     文件        426  2009-12-01 09:15  卫星轨道\plot3c.m

     目录          0  2010-03-12 18:32  卫星轨道

----------- ---------  ---------- -----  ----

                 1292                    3