91av视频/亚洲h视频/操亚洲美女/外国一级黄色毛片 - 国产三级三级三级三级

  • 大小: 1.75MB
    文件類(lèi)型: .rar
    金幣: 2
    下載: 0 次
    發(fā)布日期: 2023-09-02
  • 語(yǔ)言: 其他
  • 標(biāo)簽: c#??

資源簡(jiǎn)介

地球重力場(chǎng),計(jì)算地球各個(gè)地方重力,適用于大地測(cè)量專(zhuān)業(yè)

資源截圖

代碼片段和文件信息

using?System;
using?System.Collections.Generic;
using?System.ComponentModel;
using?System.Data;
using?System.Drawing;
using?System.Linq;
using?System.Text;
using?System.Windows.Forms;
using?System.IO;

namespace?EGM1996
{
????public?partial?class?Form1?:?Form
????{
????????public?Form1()
????????{
????????????InitializeComponent();
????????}
????????double[]?C?=?new?double[361?361];
????????double[]?S?=?new?double[361?361];//用于存放球諧系數(shù)
????????double[]?P?=?new?double[361?361];//用于存放球諧系數(shù)
????????double[]?dP?=?new?double[361?361];//用于存放球諧系數(shù)

????????double[]?L2?=?new?double[20?2];//用于存放經(jīng)緯度
????????string[]?L3?=?new?string[20];//用于存放經(jīng)緯度


????????double?a?=?6378137.0000;//橢球長(zhǎng)半軸
????????double?e2?=?0.0066943799013;//橢圓第一偏心率
????????double?GM?=?3.986004415E14;//地球引力常數(shù)
????????double?H?=?0;




????????int?h?=?0;//確定階數(shù)

????????public?double?DMS2Rad(double?x)
????????{
????????????int?z?=?0;
????????????if?(x?>?0)
????????????{
????????????????z?=?1;
????????????????x?=?x?*?z;
????????????}
????????????else
????????????{
????????????????z?=?-1;
????????????????x?=?x?*?z;
????????????}

????????????x?=?x?*?10000;

????????????double?m?=?x?%?100;
????????????x?=?(x?-?m)?/?100;

????????????double?f?=?x?%?100;
????????????x?=?(x?-?f)?/?100;

????????????double?d?=?x;
????????????x?=?(d?+?f?/?60?+?m?/?3600)?*?Math.PI?/?180;

????????????return?x?*?z;
????????}

????????//大地轉(zhuǎn)地心
????????public?double?DDDX(double?B?double?R?double?N?double?H?double?e2)
????????{
????????????double?Y?=?(N?*?(1?-?e2)?+?H)?*?Math.Sin(B);
????????????double?phi?=?Math.Asin(Y?/?R);
????????????return?phi;

????????}

????????//求勒讓德函數(shù)
????????public?void?LRD(double[]?P?double[]?dP?double?phi?int?N)
????????{
????????????P[0?0]?=?1.0;?P[1?0]?=?Math.Sqrt(3)?*?Math.Sin(phi);?P[1?1]?=?Math.Sqrt(3)?*?Math.Cos(phi);

????????????dP[0?0]?=?0.0;?dP[1?0]?=?Math.Sqrt(3)?*?Math.Cos(phi);?dP[1?1]?=?-Math.Sqrt(3)?*?Math.Sin(phi);

????????????for?(int?i?=?2;?i?????????????{
????????????????for?(int?j?=?0;?j?<=?i;?j++)
????????????????{
????????????????????if?(j?==?i)
????????????????????{
????????????????????????double?n1?=?0.0?n2?=?0.0;
????????????????????????n1?=?(2?*?i?+?1);?n2?=?2?*?i;
????????????????????????P[i?j]?=?Math.Sqrt((n1?/?n2))?*?Math.Cos(phi)?*?P[i?-?1?j?-?1];
????????????????????????dP[i?j]?=?Math.Sqrt((n1?/?n2))?*?(Math.Cos(phi)?*?dP[i?-?1?j?-?1]?-?Math.Sin(phi)?*?P[i?-?1?j?-?1]);

????????????????????}
????????????????????else?if?(j?==?i?-?1)
????????????????????{
????????????????????????double?n3?=?0.0?n4?=?0.0;
????????????????????????n3?=?4?*?i?*?i?-?1;?n4?=?i?*?i?-?j?*?j;
????????????????????????P[i?j]?=?Math.Sqrt((n3?/?n4))?*?Math.Sin(phi)?*?P[i?-?1?j];
????????????????????????dP[i?j]?=?Math.Sqrt((n3?/?n4))?*?(Math.Sin(phi)?*?dP[i?-?1?j]?+?Math.Cos(phi)?*?P[i?-?1?j]);

????????????????????}
????????????????????else?if?(j?!=?i?

?屬性????????????大小?????日期????時(shí)間???名稱(chēng)
-----------?---------??----------?-----??----

?????文件???????5612??2012-10-21?12:23??EGM1996\EGM1996\Properties\Resources.resx

?????文件????????249??2012-10-21?12:23??EGM1996\EGM1996\Properties\Settings.settings

?????文件???????1364??2012-10-21?12:23??EGM1996\EGM1996\Properties\AssemblyInfo.cs

?????文件???????2864??2012-10-21?12:23??EGM1996\EGM1996\Properties\Resources.Designer.cs

?????文件???????1092??2012-10-21?12:23??EGM1996\EGM1996\Properties\Settings.Designer.cs

?????文件???????3760??2012-10-21?12:32??EGM1996\EGM1996\EGM1996.csproj

?????文件????????490??2007-07-21?01:33??EGM1996\EGM1996\bin\Debug\EGM1996.vshost.exe.manifest

?????文件??????14328??2013-03-16?21:40??EGM1996\EGM1996\bin\Debug\EGM1996.vshost.exe

?????文件??????18432??2012-11-25?18:32??EGM1996\EGM1996\bin\Debug\EGM1996.exe

?????文件??????34304??2012-11-25?18:32??EGM1996\EGM1996\bin\Debug\EGM1996.pdb

?????文件????????180??2012-10-22?19:42??EGM1996\EGM1996\obj\Debug\EGM1996.Form1.resources

?????文件????????180??2012-10-21?12:32??EGM1996\EGM1996\obj\Debug\EGM1996.Properties.Resources.resources

?????文件??????18432??2012-11-25?18:32??EGM1996\EGM1996\obj\Debug\EGM1996.exe

?????文件????????564??2013-03-16?21:40??EGM1996\EGM1996\obj\Debug\EGM1996.csproj.FileListAbsolute.txt

?????文件????????847??2012-10-22?19:42??EGM1996\EGM1996\obj\Debug\EGM1996.csproj.GenerateResource.Cache

?????文件??????34304??2012-11-25?18:32??EGM1996\EGM1996\obj\Debug\EGM1996.pdb

?????文件????????488??2012-10-21?12:23??EGM1996\EGM1996\Program.cs

?????文件???????6012??2012-10-22?19:42??EGM1996\EGM1996\Form1.resx

?????文件??????10915??2012-10-22?19:43??EGM1996\EGM1996\Form1.Designer.cs

?????文件??????14825??2012-10-23?13:59??EGM1996\EGM1996\Form1.cs

?????文件????????911??2012-10-21?12:23??EGM1996\EGM1996.sln

????..A..H.?????13824??2013-03-16?21:40??EGM1996\EGM1996.suo

?????文件????5619962??2012-08-30?10:57??EGM1996\egm96.gfc

?????文件????????542??2012-10-14?22:01??EGM1996\jwd.txt

?????文件???????1045??2012-10-23?13:59??EGM1996\1.txt

?????目錄??????????0??2012-10-21?12:23??EGM1996\EGM1996\obj\Debug\TempPE

?????目錄??????????0??2012-10-21?13:15??EGM1996\EGM1996\obj\Debug\Refactor

?????目錄??????????0??2012-10-21?12:23??EGM1996\EGM1996\bin\Debug

?????目錄??????????0??2012-10-21?12:23??EGM1996\EGM1996\obj\Debug

?????目錄??????????0??2012-10-21?12:23??EGM1996\EGM1996\Properties

............此處省略7個(gè)文件信息

評(píng)論

共有 條評(píng)論