- 1、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
C大地主题解算代码
表设计器样式
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
namespace 大地主题解算
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
double e1, c, L1, B1, A1, S, L2, B2;
private void button1_Click(object sender, EventArgs e)
{
double d1, f1, m1,dB,dL,dA,M,N,V,dB0,dA0,dL0,Am,Bm,Lm,n2,t2,s1,c1,A21;
if (radioButton1.Checked)
{
e1 = 0.006738525414683;
c = 6399698.9017827110;
}
else if(radioButton2.Checked)
{
e1 = 0.006739501819473;
c = 6399596.6519880105;
}
else if(radioButton3.Checked)
{
e1 = 0.00673949674227;
c = 6399593.6258;
}
d1 = (int)(double.Parse(T1.Text));
f1 = (int)((double.Parse(T1.Text)-d1)*100);
m1 = (int)(((double.Parse(T1.Text)-d1)*100-f1)*100);
B1 = (d1 * 3600 + f1 * 60 + m1);
d1 = (int)(double.Parse(T2.Text));
f1 = (int)((double.Parse(T2.Text) - d1) * 100);
m1 = (int)(((double.Parse(T2.Text) - d1) * 100 - f1) * 100);
L1 = (d1 * 3600 + f1 * 60 + m1);
d1 = (int)(double.Parse(T3.Text));
f1 = (int)((double.Parse(T3.Text) - d1) * 100);
m1 = (int)(((double.Parse(T3.Text) - d1) * 100 - f1) * 100);
A1 = (d1 * 3600 + f1 * 60 + m1);
V=Math.Sqrt(1+e1*Math.Pow(Math.Cos(B1/206265),2));
S = double.Parse(T4.Text);
N=c/V;
M=c/Math.Pow(V,3);
t2=Math.Tan(B1/206265)*Math.Tan(B1/206265);
n2=e1*Math.Pow(Math.Cos(B1/206265),2);
dB0 = 206265 / M * S * Math.Cos(A1/206265);
dL0 = 20265 / N * S * Math.Sin(A1/206265) / Math.Cos(B1/2
您可能关注的文档
最近下载
- 川西致密储层水平井分段压裂工艺技术.pdf VIP
- 燃气行业十五五工作规划.docx
- 高等学校毕业生档案转递单.docx VIP
- 12S8 河北省12系列建筑标准设计图集 排水工程.pdf VIP
- 2025年上半年高中《语文》教师资格证笔试试题及答案解析.docx VIP
- 学校最小应急单元应急预案.docx VIP
- 2025呼和浩特市文化旅游投资集团第一批招聘42名工作人员考试模拟试题及答案解析.docx VIP
- 2024电力线路跨越电气化铁路施工防护技术规范.docx VIP
- 2025年(部编教材)小学三年级上册《道德与法治》各单元测试题及答案.pdf VIP
- 国家中小学智慧教育平台的应用培训.pptx VIP
文档评论(0)