|
|
EDA365欢迎您登录！
您需要 登录 才可以下载或查看，没有帐号？注册
x
基于matlab GPS卫星仿真
9 [9 c+ B( T3 ^0 x) i6 @( r! N( f4 u* R8 [+ q
一、部分源代码
) Q; ^) p# D$ e+ B0 `) ?- 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
9 H0 S, k" f- h. Z D+ F5 s
D# ]5 G% D/ K% K
$ t5 ~, C$ k+ I% P2 U
! z7 x; |7 m3 t二、运行结果
4 N- n0 z- j( X9 s. S$ o# J
4 J0 ~. x6 R- Y4 ^0 h
6 B7 V/ {. _4 E9 N3 a1 \, }) t9 w2 u6 I* k2 ]
1 c& W8 b4 Y N4 k$ }, j7 s% ^
. c9 d1 K: Q/ C+ P
2 ~, k+ {9 q; d+ o# G
; H2 P9 x/ \; _0 ^* m) L+ M+ N
; w& }2 z; _5 g8 c) y- F
|
|
/1 
发表于 2021-9-29 14:34
收藏
淘帖
支持！
反对！