Code/Resource
Windows Develop
Linux-Unix program
Internet-Socket-Network
Web Server
Browser Client
Ftp Server
Ftp Client
Browser Plugins
Proxy Server
Email Server
Email Client
WEB Mail
Firewall-Security
Telnet Server
Telnet Client
ICQ-IM-Chat
Search Engine
Sniffer Package capture
Remote Control
xml-soap-webservice
P2P
WEB(ASP,PHP,...)
TCP/IP Stack
SNMP
Grid Computing
SilverLight
DNS
Cluster Service
Network Security
Communication-Mobile
Game Program
Editor
Multimedia program
Graph program
Compiler program
Compress-Decompress algrithms
Crypt_Decrypt algrithms
Mathimatics-Numerical algorithms
MultiLanguage
Disk/Storage
Java Develop
assembly language
Applications
Other systems
Database system
Embeded-SCM Develop
FlashMX/Flex
source in ebook
Delphi VCL
OS Develop
MiddleWare
MPI
MacOS develop
LabView
ELanguage
Software/Tools
E-Books
Artical/Document
GET_RHO.M
Package: easy.zip [view]
Upload User: sfyaiting
Upload Date: 2009-10-25
Package Size: 320k
Code Size: 1k
Category:
GPS develop
Development Platform:
Matlab
- function [tcorr,rho,X_ECEF] = get_rho(tR_RAW,pseudorange,Eph,X_receiver)
- %GET_RHO Calculation of distance in ECEF system between
- % satellite and receiver at time tR_RAW given the
- % ephemeris Eph.
- %Kai Borre 04-01-96
- %Copyright (c) by Kai Borre
- %$Revision: 1.0 $ $Date: 1997/09/23 $
- % Initial assigment of constants
- vlight = 299792458; % vacuum speed of light in m/s
- Omegae = 7.292115147e-5; % rotation rate of the earth in rad/s
- %signal sended time=signal received time-signal transmission time
- tx_RAW = tR_RAW-pseudorange/vlight;
- %time correction acording to system time
- toc = Eph(21);
- dt = check_t(tx_RAW-toc);
- tcorr = (Eph(2)*dt + Eph(20))*dt + Eph(19);
- tx_GPS = tx_RAW-tcorr;
- dt = check_t(tx_GPS-toc);
- tcorr = (Eph(2)*dt + Eph(20))*dt + Eph(19);
- tx_GPS = tx_RAW-tcorr;
- % satellite position
- X = satpos(tx_GPS, Eph);
- %geometric range
- rho = norm(X-X_receiver(1:3));
- %satellite coordinates into inertial coordinate system
- omegatau = Omegae*rho/vlight;
- R3 = [ cos(omegatau) sin(omegatau) 0;
- -sin(omegatau) cos(omegatau) 0;
- 0 0 1];
- X_ECEF = R3*X;
- %geometric range acording to inertial coordinate system
- rho = norm(X_ECEF-X_receiver(1:3));
- %%%%%%%%% end get_rho.m %%%%%%%%%