marseric_888的博客

捷联惯性导航系统的惯性器件直接固联在载体上,这就给捷联系统的软件设计提 出了有别于平台惯性导航系统的特殊问题"本文主要研究基于等效旋转矢量法的捷联 惯导算法及其仿真" 本文的主要研究工作如下: 1.针对捷联系统中惯性器件大多采用增量形式的数据输出,论述了适合增量形 式数据处理的捷联惯导算法基本理论"基本理论包括欧拉角算法!方向余弦算法!四 元数算法和等效旋转矢量算法"同时对各算法的计算量和精度进行了对比" 2.以东北天坐标系为导航坐标系,详细推导了捷联惯性导航系统的数字迭代算 法"主要包括姿态更新算法!速度更新算法和位置更新算法"同时详细分析了捷联惯 导系统的误差源" 3.利用MATLAB建立了捷联惯导数学仿真模型,根据本科生捷联惯导实验平台的 要求,完成了半实物仿真系统的软硬件设计,仿真结果表明系统工作稳定可靠,达到 预期效果"

C51实现I2C总线的应用研究 介绍了I2C 总线的的性能和特点, 并详细的分析了它的工作原理, 给出了它在51 单片机上与E E PROM 连接 的具体应用和相应的C51 程序。

一个BBS的源代码 ' #################### ' # # ' # 常用函数 # ' # # ' #################### Function SqlStr( NormalString ) SqlStr = Replace( NormalString , "'" , "''" ) End Function Function FormStr( NormalString ) FormStr = Replace( NormailString , """" , """""" ) End Function Function CheckEmail( Email ) Dim MailIsRight Dim Mail Dim MailLength Dim AtPosition Dim LastPointPosition Mail = Email AtPosition = InStr( Mail , "@" ) LastPointPosition = InStrRev( Mail , "." ) MailLength = Len( Mail ) MailIsRight = True If AtPosition <= 1 OR AtPosition = MailLength Then MailIsRight = False If LastPointPosition <= 1 OR LastPointPosition = MailLength Then MailIsRight = False If AtPosition > LastPointPosition - 2 Then MailIsRight = False CheckEmail = MailIsRight End Function Function GetID( StringID ) Dim TempID TempID = StringID Do While Not IsNumeric( Left( TempID , 1 ) ) If Len( TempID ) > 1 Then TempID = Mid( TempID , 2 ) Else TempID = "" Exit Do End If Loop GetID = TempID End Function ' #################### ' # # ' # 变量说明 # ' # #