您的位置: 首页 » 法律资料网 » 法律法规 »

烟台市著名人物档案管理办法

时间:2024-07-23 12:59:08 来源: 法律资料网 作者:法律资料网 阅读:8391
下载地址: 点击此处下载

烟台市著名人物档案管理办法

山东省烟台市人民政府


烟台市著名人物档案管理办法

(2004-03-30)


第一章 总 则
第一条 为了弘扬烟台市著名人物为我市经济建设和社会发展做出的突出贡献,维护著名人物的历史地位,激励教育后人向先进模范人物学习,促进两个文明建设,依据《中华人民共和国档案法》、《山东省档案条例》、《烟台市档案管理办法》的规定,烟台市档案馆决定成立“名人档案库”,专门收藏烟台市著名人物的档案资料。为加强和规范著名人物档案资料的收集、管理和利用,特制定本办法。
第二条 本办法所称著名人物(简称名人,下同)是指在某一学科、领域、行业做出过重大贡献,产生较大影响,并得到社会和历史认可的历代烟台籍或在烟台境内长期工作活动过的非烟台籍的著名人物。主要包括:
(一)担任过副地级以上党政领导职务或相应级别的领导人;
(二)被授予少将以上军衔或担任过副军职以上领导职务的军人;
获中央军委英模荣誉称号的英模人物,其他具有一定社会影响的著名军人;
(三)全国、全省劳模、“五一”劳动奖章获得者,具有重要影响和名望的企业家;
(四)担任中国科学院院士、中国工程院院士以及在某项科学技术领域有突出成就的专家、学者,国家或者最高科学技术奖获得者;
(五)在国内外有重要影响、成就突出的文学家、艺术家、教育家;
(六)奥运会、亚运会奖牌获得者,及其他重大国际国内体育比赛项目冠军、亚军及在国内外知名度较高的运动员、教练员;
(七)著名社会活动家,宗教界著名人士,著名民间艺(匠)人;
(八)长期在烟台工作活动过的著名华侨领袖,著名外籍华人;
(九)对国家和社会有突出贡献、在国内外有重要影响的其他著名人士。
第三条 本办法所指的名人档案是指名人在长期的工作、学习、生活中形成的,具有保存、利用价值的,不同载体的各种文字、声像材料和实物。
第四条 名人档案工作实行统一领导、分级管理的原则,确保名人档案的完整、安全与有效利用。
烟台市档案行政管理部门负责全市名人档案工作的规划、管理、监督和指导。

第二章 收 集
第五条 名人档案的收集原则:名人在工作、学习和生活中形成的,真实反映其一生经历和贡献的,具有查考、利用价值的各种载体的材料均应收集归档。
第六条 名人档案的收集内容:
(一)反映名人经历及其主要活动的传记、回忆录、履历表等;
(二)反映名人职务活动的文章、报告、演讲稿、工作日记等;
(三)反映名人成就的作品及研究成果;
(四)社会对名人研究、评价的资料;
(五)与名人有直接关系的各类证书、奖章、信函、谱牒、纪念品等;
(六)反映名人活动的照片、录像带、录音带、光盘等;
(七)名人口述的历史资料;
(八)名人收藏的图书、资料及其他具有历史和纪念意义的物品;
(九)其他有保存价值的档案资料。
第七条 名人档案的收集形式:
(一)依据《中华人民共和国档案法》、《山东省档案条例》、《烟台市档案管理办法》及其他法规进行收集;
(二)有关单位依据国家规定向市档案馆移交名人档案;
(三)档案所有者向市档案馆捐赠、寄存或出售名人档案资料;
(四)对其他档案馆、有关部门保存的名人档案进行复制或交换;
(五)对散存在市内外的名人档案进行征购、复制或交换;
(六)市档案馆与档案所有者商定的其他收集方式。
第八条 市档案馆收集名人档案时应与移交单位或个人办理交接手续,填制清单一式两份,市档案馆与移交单位或个人各执一份。
第九条 单位、个人向市档案馆移交、捐赠名人档案时,市档案馆向移交、捐赠者颁发移交或捐赠证书。
第十条 向市档案馆寄存的名人档案,市档案馆与档案所有者或其代理人签订寄存协议,并颁发寄存证书。
第十一条 名人档案所有者向市档案馆出售名人档案,市档案馆要与出售人签订购买协议。

第三章 整理与鉴定
第十二条 名人档案的整理原则是:遵守名人档案形成的客观规律,保持文件材料之间的内在联系,真实反映名人工作、学习和生活的本来面貌,便于保管和利用。
第十三条 名人档案的整理办法:
(一)名人档案的整理应当分类清楚,组卷合理,排列有序,装订整齐;
(二)以名人划分全宗,全宗内采用问题?年代分类法;
(三)名人档案按类组卷。根据每类档案材料的多少,结合其形成时间组成一个或若干个案卷。组卷应当遵循文件材料的形成规律,保持文件材料之间的有机联系;
(四)案卷内档案材料和案卷的整理,参照《山东省文书档案工作规范》执行;
(五)名人档案中的照片、影片、录像带、录音带的整理,参照国家规范执行。
第十四条 市档案馆应成立专家组对征集到的名人档案进行鉴定审查。

第四章 保 管
第十五条 名人档案的保管期限应确定为永久。
第十六条 烟台市档案馆内设名人档案库,专门保管全市名人档案。
第十七条 烟台市档案馆应定期检查名人档案的保存状况,对破损、变质的档案及时修复或复制。
第十八条 档案部门应建立名人档案数量、质量统计制度,每年对档案的接收、调阅等情况进行登记、统计。

第五章 权益与责任
第十九条 名人档案形成者或捐赠者有权了解名人档案的整理、保管、利用情况,对该档案享有优先利用权,并可对档案中不宜向社会开放的部分提出限制利用的意见,档案馆应当维护其合法权益。
第二十条 名人档案形成者或捐赠者须将新形成或新发现的档案资料,及时送交市档案馆,保持名人档案资料的完整与安全。

第六章 利 用
第二十一条 档案形成者或捐赠者要求保密或限制使用的,市档案馆将严格按照接收、捐赠手续或寄存协议,在对外提供利用时进行保密或限制使用;上述手续、协议中无明确保密或限制使用条款的,市档案馆将按国家规定向社会提供利用。
第二十二条 利用名人档案的单位和个人,应当确保档案完整与安全,不得拆取卷内文件,不得在案卷上涂改、批注、加字、勾画和剪裁,不得私自复制。
第二十三条 名人档案的利用形式:
(一) 向有关单位提供名人档案;
(二) 与有关单位或个人联合开展名人档案学术研究;
(三) 配合宣传教育及其他纪念活动,举办名人档案展览;
(四) 为专家、学者的研究提供咨询与服务。

第七章 奖励与处罚
第二十四条 市档案馆对在名人档案工作中做出显著成绩,或者捐献重要、珍贵档案的,应依据《中华人民共和国档案法》的规定给予奖励,并颁发证书。
第二十五条 对故意损毁、涂改、伪造或者擅自复制、提供、公布、出卖名人档案的责任人员,根据档案的价值、数量和情节轻重,依据《中华人民共和国档案法》和《山东省档案条例》的规定给予处罚。造成损失的,应当按照规定赔偿损失。构成犯罪的,依法追究刑事责任。

第八章 附 则
第二十六条 本办法由烟台市档案馆负责解释。
第二十七条 本办法自颁发之日起施行。



关于全面推进农村金融产品和服务方式创新的指导意见

中国证券监督管理委员会 中国保险监督管理委员会 中国人民银行中国银行业监督管理委员会


关于全面推进农村金融产品和服务方式创新的指导意见

银发〔2010〕198号


中国人民银行上海总部,各分行、营业管理部、省会(首府)城市中心支行、副省级城市中心支行;各省(自治区、直辖市)银监局、证监局、保监局;国家开发银行、各政策性银行、国有商业银行、股份制商业银行,中国邮政储蓄银行:

农村金融服务是党和政府联系农村、农民的重要纽带。2008年10月,人民银行和银监会在中部六省和东北三省组织开展了加快推进农村金融产品和服务方式创新试点。一年多来,试点工作取得明显成效,试点实践证明,加快推进农村金融产品和服务方式创新,是全面改进和提升农村金融服务、加强信贷结构调整的重要抓手,是新形势下缓解农村和农民贷款难、促进城乡公共金融服务均等化和支持社会主义新农村建设的有效手段。为贯彻落实党的十七届三中全会、中央农村工作会议和《中共中央国务院关于加大统筹城乡发展力度进一步夯实农业农村发展基础的若干意见》(中发〔2010〕1号)文件精神,抓紧落实2010年《政府工作报告》中提出的切实改善农村金融服务的有关任务,人民银行、银监会、证监会、保监会决定在全国范围内推进农村金融产品和服务方式创新工作。现提出如下意见:

一、突出创新重点,着力满足符合“三农”实际特点的金融服务需求

(一)大力发展农户小额信用贷款和农村微型金融。鼓励和引导金融机构通过零售、批发等多种方式着力扩大农村小额贷款投放,积极发展农户小额信用贷款和农户联保贷款,鼓励开发多样化小额信用贷款产品,努力满足农民多元化信贷需求、支持农民工返乡就业创业和大学生“村官”创业富民。积极扩大农户小额信用贷款和农户联保贷款的覆盖面,努力满足农村商业、服务业、流通业、小手工业和建筑业等专业化、市场化的资金需求。着力研究和解决农村弱势群体的金融服务需求,让更多的农村中低收入人群能够享受到现代化金融服务。

(二)有效满足发展现代农业和扩大农村消费的资金需求。对符合信贷条件的科研、农资、种养、加工、仓储、运输、营销等整个现代农业产业链和相关农村服务业贷款,要加快审批,及时投放。多方面拓宽有实力、有条件的大型农业产业化龙头企业和农村专业合作组织的融资渠道,加大对跨国涉农贸易和农业投资、海外生产加工基地和营销网络建设的支持力度。积极做好“万村千乡市场”、农村商品配送体系建设、农村社会化服务和农村信息化建设等配套金融服务工作,为农民扩大消费提供融资便利。

(三)切实加强对农业农村基础设施建设的信贷支持。有条件的地方要建立健全涉农中长期信贷投放的激励机制,鼓励和引导银行业金融机构特别是政策性银行围绕农田水利基本建设、农业综合开发、统筹城乡发展、农业商品基地建设等重点领域,针对各类农村基础设施项目的信贷需求特点,创新涉农信贷管理模式,完善涉农信贷管理制度,切实加大信贷投放,积极提供多元化融资便利。

(四)探索开展农村土地承包经营权和宅基地使用权抵押贷款业务。在城镇化和农业产业化程度高的地区,金融部门要积极支持和配合当地党委和政府组织推动的农村土地承包经营权流转和农房用地制度改革,按照依法自愿有偿原则,在不改变土地集体所有性质、不改变土地用途和不损害农民土地承包权益的前提下,探索开展相应的抵押贷款试点,丰富“三农”贷款增信的有效方式和手段。

(五)积极推动和做好集体林权制度改革与林业发展金融服务工作。深入贯彻落实《中国人民银行 财政部 银监会 保监会林业局关于做好集体林权制度改革与林业发展金融服务工作的指导意见》(银发〔2009〕170号)精神,在加快完善集体林权制度改革配套制度建设的基础上,全面推进林权抵押贷款业务,探索多种贷款偿还方式,加快涉林信贷产品的开发研究,培育一批有市场竞争优势、产业关联度大、带动力强的林业品牌企业和品牌产品,提高林业产业规模化经营水平,带动中小林业企业发展。

(六)加快推进农村金融服务方式创新。涉农银行业金融机构要结合地方实际,改进金融服务流程,完善贷款营销模式,推动农村金融服务方式多样化、多元化。积极开展农户贷款流程再造,促进农户贷款业务流程标准化、规范化,切实提高审批效率,有效控制信贷风险。鼓励银行业金融机构采取信贷员包村服务、金融辅导员制度、“贷款+技术”等方式,大力推动信贷服务方式创新。

二、拓宽金融服务范围,合理运用多样化的金融工具管理和分散农业行业风险

(七)有效扩大抵押担保范围,加强涉农信贷风险管理。鼓励涉农银行业金融机构根据当地的“三农”金融需求,在国家现行法律允许、财产权益归属清晰、风险有效管理控制的前提下,完善涉农担保贷款业务操作流程,健全涉农贷款担保财产的评估、管理、处置制度,不断创新基于多种信息获取方式上的贷款技术,积极探索建立有效的信用风险分散转移机制,因地制宜、灵活多样创新信用模式和扩大贷款抵押担保物范围。建立健全政府扶持、多方参与、市场运作的农村信贷担保机制,鼓励有条件的地方设立涉农担保资金或成立涉农担保公司。

(八)充分发挥银行间债券市场在有效分散和管理农业风险方面的积极作用。支持符合条件的经营稳健、管理科学、市场有前景的优质涉农中小企业发行短期融资券、中小企业集合票据等非金融企业债务融资工具,进一步拓宽支持“三农”发展的直接融资渠道。加快发展农业高科技企业的高收益债券,引导农业企业通过资本市场融资。

(九)加强涉农信贷与涉农保险的合作,综合发挥银保服务“三农”的功能作用,完善农村金融服务体系,支持农村经济又好又快发展。保险公司要不断提升农业保险覆盖面和渗透度,积极探索开展涉农贷款保证保险。银行业金融机构要将涉农保险投保情况作为授信要素,鼓励借款人对贷款抵押物进行投保。研究拓展涉农保险保单质押的范围和品种。继续探索发展吸收银行和保险公司参与的多种形式或组合方式的农村信用共同体。

(十)鼓励农产品生产经营企业进入期货市场开展套期保值业务,充分运用期货交易机制规避市场风险。推动期货业经营机构积极开展涉农业务创新,逐步拓展农产品期货交易品种,为农村经济发展服务。

三、加强政策协调配合,营造有利于农村金融创新的配套政策环境

(十一)综合运用多种货币政策工具,拓宽涉农信贷资金来源。鼓励有条件的地方安排一定的再贷款额度,专门用于支持银行业金融机构开展农村金融产品和服务方式创新业务;适当调剂再贴现规模,专门用于支持开展农村金融产品和服务方式创新的银行业金融机构办理涉农企业商业汇票再贴现。

(十二)做好农村地区支付结算工作,提高农村支付结算服务水平。充分发挥农村信用社在农村支付结算服务中的主导作用。加快推进农村地区支付服务基础设施建设,逐步扩展和延伸支付清算网络在农村地区的辐射范围。大力推广非现金工具支付,减少农村地区现金使用。继续加强和完善支付结算业务代理制,促进城乡支付结算服务的互补发展。

(十三)加强农村信用体系建设,改善农村金融生态环境。积极主动配合地方政府或在地方政府的支持指导下,组织各涉农金融机构,灵活采取群众喜闻乐见的多种形式加大农村地区信用法制与信用知识宣传力度。推进农户电子信用档案建设,积极开展农户信用评价工作。加快农村中小企业信用体系建设,探索建立农民专业合作社等农村经济组织的信息采集与信用评价机制。

(十四)改善和实施鼓励创新的市场准入政策。对农村金融产品和服务方式创新取得明显成效的银行业金融机构,支持其优先设立村镇银行等新型农村金融机构、跨区域兼并重组,并在网点布局调整方面实施市场准入绿色通道,对风险可控的新业务实行备案制。对于支农成效显著、风险控制能力强、推动农村金融产品和服务方式有特色的农村信用社,不将支农再贷款纳入存贷比监管指标考核,优先将其改制为农村银行类机构。

(十五)发挥财政性资金对金融资源的杠杆拉动作用。在有条件的试点地区,鼓励地方政府通过增加财政贴息资金、增加担保公司和再担保公司资本金注资或设立风险补偿基金等多种方式,建立涉农贷款风险补偿制度。建立和完善考核制度及奖励机制,鼓励县域内各金融机构法人和各金融机构的分支机构将新增存款主要留在当地使用。
四、把握创新工作原则,确保农村金融产品和服务方式创新取得实效

(十六)务求实效。农村金融创新不能为创新而创新,不能不顾政策规定和风险而盲目创新,要坚持从实际出发,要坚持财务可持续,让管用、有效的农村金融产品和服务更多一些,为农村和农民多干实事、好事。

(十七)因地制宜。要立足当地的省情、县情、乡情和村情,根据当前农村经济社会发展变化趋势和当地“三农”金融需求,积极探索、创新可操作性强的金融产品与服务方式,让农业、农村和农民能够得到更高效、更便捷、更实惠的金融服务,加快推进农业发展方式转变。

(十八)协同配合。农村金融创新要注重财税政策、监管政策、货币政策和农村保险业发展的协调配套,通过多项政策的组合形成合力,进一步调动和激发金融机构参与农村金融市场的内在积极性和创造性,引导更多的金融资源投向“三农”。

(十九)风险可控。坚持市场化和政策扶持相结合的原则,以市场化为导向,以政策扶持为支撑,健全和完善正向激励机制,在审慎稳健开展金融创新的同时,合理分散金融风险,科学防范法律风险,坚决严控道德风险,有效防控操作风险。

五、加快探索和构建推动农村金融产品和服务方式创新的长效机制

(二十)大力发展和培育富有竞争性的多层次农村金融市场。加快做实中国农业银行“三农金融事业部”,充分发挥政策性银行在支持“三农”发展中的积极作用,继续推进农村信用社深化改革。鼓励和引导商业银行和社会资金投资设立村镇银行、贷款公司和农村资金互助社等新型农村金融机构以及小额贷款公司。鼓励国家控股的大型银行和其他金融机构采取有效措施开办农村金融业务,积极参与农村金融市场竞争,引导更多信贷资金投向农村。鼓励研发设计水平高、抗风险能力强的金融机构设立农村金融产品创新的专门机构。

(二十一)积极建立和完善推动农村金融产品和服务方式创新的工作协调机制。人民银行各分支机构和银监会、证监会、保监会派出机构要参照《中国人民银行中国银行业监督管理委员会关于加快推进农村金融产品和服务方式创新的意见》(银发〔2008〕295号)要求,加强合作,密切配合,牵头建立推动创新的跨部门工作协调机制,加强与发展改革、财政、税务、农业等部门的协作配合,努力协调落实相关配套政策,加强政策指导和创新管理,保证农村金融产品和服务方式创新工作的有序、有力、有效开展。

(二十二)加强创新工作的信息沟通和监测评估。要在摸清底数、做实基础的同时,进一步加强沟通交流,相互学习借鉴,及时总结交流创新的好经验、好做法。加强创新工作的动态信息反映,定期编发创新工作简报。加强创新工作的信贷政策导向效果评估,做好农村金融专题研究和深层次分析。

(二十三)培养和锻炼创新型农村金融人才。要加强涉农银行业金融机构人才队伍建设,加强业务培训和金融法制教育,调动基层创新积极性。注重培育具有涉农金融业务开拓创新能力、熟悉农村金融市场的高素质人才队伍。

(二十四)更加注重做好政策宣传解释工作。要加大政策宣传解释力度,通过多种新闻媒体,面向社会广泛报道农村金融产品和服务方式创新的工作动态、成效经验和先进典型,为推动农村金融产品和服务方式创新创造良好的舆论环境,让农村金融创新得到更多的关注和更好的发展。

中国人民银行 银 监 会

证 监 会 保 监 会

二〇一〇年五月十九日

关于统一图幅理论面积与图斑椭球面积计算要求的通知

国土资源部


关于统一图幅理论面积与图斑椭球面积计算要求的通知

(国土调查办发〔2008〕32号)


各省、自治区、直辖市第二次土地调查领导小组办公室,国土资源厅(国土环境资源厅、国土资源局、国土资源和房屋管理局、房屋土地资源管理局),解放军土地管理局、新疆生产建设兵团国土资源局:


面积计算是第二次土地调查的一项重要内容,国务院第二次全国土地调查领导小组办公室组织有关专家,依据《第二次全国土地调查技术规程》,对图幅理论面积与图斑椭球面积计算公式进行了细化,明确了面积计算方法,统一了公式中的有关参数,现将《图幅理论面积与图斑椭球面积计算公式及要求》予以印发,请各地严格遵照执行。



附:图幅理论面积与图斑椭球面积计算公式及要求



二〇〇八年三月二十七日

图幅理论面积与图斑椭球面积计算公式及要求

一、 图幅理论面积计算公式
(1)
式中:
a—椭球长半轴(单位:米),α—椭球扁率,b—椭球短半轴(单位:米)。
е²﹦(a²﹣b²)/a²。
A﹦1﹢(3/6)е²﹢(30/80)е4﹢(35/112)е6﹢(630/2304)е8。
B﹦ (1/6)е²﹢(15/80)е4﹢(21/112)е6﹢(420/2304)е8。
C﹦ (3/80)е4﹢ (7/112)е6﹢(180/2304)е8。
D﹦ (1/112)е6﹢ (45/2304)е8。
E﹦ (5/2304)е8。
ΔL—图幅东西图廓的经差(单位:弧度)。
(B2﹣B1)—图幅南北图廓的纬差(单位:弧度),Bm﹦(B1﹢B2)/2。

二、椭球面上任意梯形面积计算公式
(2)
其中:A,B,C,D,E 为常数,按下式计算:
е²﹦(a²﹣b²)/a²
A﹦1﹢(3/6)е²﹢(30/80)е4﹢(35/112)е6﹢(630/2304)е8
B﹦ (1/6)е²﹢(15/80)е4﹢(21/112)е6﹢(420/2304)е8
C﹦ (3/80)е4﹢ (7/112)е6﹢(180/2304)е8
D﹦ (1/112)е6﹢(45/2304)е8
E﹦ (5/2304)е8
式中:a—椭球长半轴(单位:米),b—椭球短半轴(单位:米);
ΔL—图块经差(单位:弧度); (B2﹣B1)—图块纬差(单位:弧度)
Bm﹦(B1﹢B2)/2。

三、高斯投影反解变换( )模型
(若坐标不带带号,则不需减去带号×1000000;)



+中央子午线经度值(孤度) (3)
式中:

公式说明:若坐标为没有带号前缀格式,则不需减去带号×1000000;若坐标为有带号前缀格式,则需减去带号×1000000。

四、计算用到的常数、椭球参数
在计算图幅理论面积与任意图斑椭球面积时,有关常数及保留的位数按给定数值计算。
常数:
π﹦3.14159265358979
206264.8062471
80椭球常数:
= 6378140 = 1/ 298.257
= 6356755.29
= 6.69438499958795E-03
= 6.73950181947292E-03
= 6399596.65198801
相关常数:
k0 = 1.57048687472752E-07
k1 = 5.05250559291393E-03
k2 = 2.98473350966158E-05
k3 = 2.41627215981336E-07
k4 = 2.22241909461273E-09

五、计算中的取位及要求
① 高斯投影反解变换后的B,L以秒为单位,保留到小数点后6位,四舍五入。
② 采用计算机计算时,所有变量数据类型均要定义为双精度。
③ 面积计算结果以平方米为单位,保留一位小数,四舍五入。
④ 各种比例尺标准分幅图经差、纬差见表1。
⑤ 在用大地坐标生成标准分幅图框时,要求在每条边框线的整秒处插入加密点。
表1 各种比例尺标准分幅图经差、纬差表
比例尺 1:100万 1:50万 1:25万 1:10万 1:5万 1:2.5万 1:1万 1:5千
经差 6º 3º 1º30′ 30′ 15′ 7′30″ 3′45″ 1′52.5″
纬差 4º 2º 1º 20′ 10′ 5′ 2′30″ 1′15″

六、任意图斑椭球面积计算方法
任意封闭图斑椭球面积计算的原理:将任意封闭图斑高斯平面坐标利用高斯投影反解变换模型,将高斯平面坐标换算为相应椭球的大地坐标,再利用椭球面上任意梯形图块面积计算模型计算其椭球面积,从而得到任意封闭图斑的椭球面积。
1、计算方法:
任意封闭区域总是可以分割成有限个任意小的梯形图块,因此,任意封闭区域的面积 ,式中Si为分割的任意小的梯形图块面积(i=1,2,…n)用公式(2)计算。
求封闭区域(多边形如图1)ABCD的面积 ,其具体方法为:
(1)对封闭区域(多边形)的界址点连续编号(顺时针或逆时针)ABCD,提取各界址点的高斯平面坐标A(X1,Y1),B(X2,Y2),C(X3,Y3),D(X4,Y4);
(2)利用高斯投影反解变换模型公式(3),将高斯平面坐标换算为相应椭球的大地坐标A(B1,L1),B(B2,L2),C(B3,L3),D(B4,L4);
(3)任意给定一经线L0(如L0=60°),这样多边形ABCD的各边AB、BC、CD、DA与L0就围成了4个梯形图块(ABB1A1、BCC1B1、CDD1C1、DAA1D1);
(4)由于在椭球面上同一经差随着纬度升高,梯形图块的面积逐渐减小,而同一纬差上经差梯形图块的面积相等,所以,将梯形图块ABB1A1按纬差分割成许多个小梯形图块AEiFiA1,用公式(2)计算出各小梯形图块AEiFiA1的面积Si,然后累加Si就得到梯形图块ABB1A1的面积,同理,依次计算出梯形图块BCC1B1、CDD1C1、DAA1D1的面积(注:用公式(2)计算面积时,B1、B2分别取沿界址点编号方向的前一个、后一个界址点的大地纬度,ΔL为沿界址点编号方向的前一个、后一个界址点的大地经度的平均值与L0的差);
(5)多边形ABCD的面积就等于4个梯形图块(ABB1A1、BCC1B1、CDD1C1、DAA1D1)面积的代数和。

图1 椭球面上任意多边形计算面积
则任意多边形ABCD的面积P为:
P=ABCD= BCC1B1+ CDD1C1+ DAA1D1- ABB1A1
2、计算要求
① 利用图形坐标点将高斯坐标系下的几何图形反算投影到大地坐标系,进行投影变换。
② 任意指定一条经线L0,从选定多边形几何形状的起始点开始,沿顺时针方向依次计算相邻两点构成的线段,以及两点到指定经线的平行线构成的梯形面积。将该梯形沿纬度变化方向(Y轴)进行切割,至少需切割为2个部分。
③ 计算过程中应顺同一方向依坐标点逐个计算相邻两点连线与任意经线构成的梯形面积,坐标点不得有遗漏。若多边形包含内多边形(洞),则该多边形面积为外多边形面积减去所有内多边形面积之和。
④ 计算所有梯形面积的代数和即为该多边形的面积。
七、算法伪代码描述
为了确保编程使用的参数、算法一致,保证不同软件计算的椭球面积一致,我们用算法伪代码描述的方法对编程进行统一,在利用计算机编制椭球面积计算软件时,计算参数与计算顺序应严格按照以下代码执行。
1、参数说明
双精度类型:
圆周率值:PI = 3.14159265358979
中央经线:CenterL
RHO = 206264.8062471

A:ParamA
B:ParamB
C:ParamC
D:ParamD
E:ParamE

Const ZERO As Double = 0.000000000001

80椭球常数

椭球长半轴:aRadius = 6378140
椭球短半轴:bRadius = 6356755.29
椭球扁率:ParaAF = 1/ 298.257
椭球第一偏心率:ParaE1 = 6.69438499958795E-03
椭球第二偏心率:ParaE2 = 6.73950181947292E-03
极点子午圈曲率半径:ParaC = 6399596.65198801

k0:Parak0 = 1.57048687472752E-07
k1:Parak1 = 5.05250559291393E-03
k2:Parak2 = 2.98473350966158E-05
k3:Parak3 = 2.41627215981336E-07
k4:Parak4 = 2.22241909461273E-09

2、算法描述

初始化参数

Double e;
Double a;

e = ParaE2;
ParaC = aRadius / (1 - ParaAF);

ParamA = 1 + (3 / 6) * e + (30 / 80) * Power(e, 2) + (35 / 112) * Power(e, 3) + (630 / 2304) * Power(e, 4);

ParamB = (1 / 6) * e + (15 / 80) * Power(e, 2) + (21 / 112) * Power(e, 3) + (420 / 2304) * Power(e, 4);

ParamC = (3 / 80) * Power(e, 2) + (7 / 112) * Power(e, 3) + (180 / 2304) * Power(e, 4);
ParamD = (1 / 112) * Power(e, 3) + (45 / 2304) * Power(e, 4);

ParamE = (5 / 2304) * Power(e, 4);

参数初始化结束

中央经线转换为弧度
CenterL = TransDegreeToArc(CenterL)

选定本初子午线为参考经线
StandardLat = 0

For 起始点 To 倒数第二点

由高斯坐标反解计算经纬度值
ComputeXYGeo (PntColl.Point(i).y, PntColl.Point(i).x, B, L, CenterL)
ComputeXYGeo (PntColl.Point(i + 1).y, PntColl.Point(i + 1).x, B1, L1, CenterL)
将经纬度转换为弧度值
B = B / RHO
L = L / RHO
B1 = B1 / RHO
L1 = L1 / RHO

计算梯形面积
Double AreaVal;//梯形面积值
Double lDiference ;//经差
Double bDiference; //纬差
Double bSum;//纬度和
Double ItemValue(5);//计算变量

bDiference = (B1 - B0);

bSum = (B1 + B0) / 2;

lDiference = (L1 + L) / 2;

ItemValue(0) = ParamA * Sin(bDiference / 2) * Cos(bSum);
ItemValue(1) = ParamB * Sin(3 * bDiference / 2) * Cos(3 * bSum);
ItemValue(2) = ParamC * Sin(5 * bDiference / 2) * Cos(5 * bSum);
ItemValue(3) = ParamD * Sin(7 * bDiference / 2) * Cos(7 * bSum);
ItemValue(4) = ParamE * Sin(9 * bDiference / 2) * Cos(9 * bSum);
AreaVal = 2 * bRadius * lDiference * bRadius * (ItemValue(0) - ItemValue(1) + ItemValue(2) - ItemValue(3) + ItemValue(4));

areaSum = areaSum + AreaVal;
Next

End Sub

3、高斯坐标反解算法

Public Sub ComputeXYGeo(x As Double, y As Double, B As Double, L As Double, center As Double)

Dim y1 As Double
Dim bf As Double

y1 = y - 500000

Dim e As Double

e = Parak0 * x

Dim se As Double

se = Sin(e)
bf = e + Cos(e) * (Parak1 * se - Parak2 * Power(se, 3) + Parak3 * Power(se, 5) - Parak4 * Power(se, 7))

Dim v As Double
Dim t As Double
Dim N As Double
Dim nl As Double
Dim vt As Double
Dim yn As Double
Dim t2 As Double
Dim g As Double

g = 1

t = Tan(bf)
nl = ParaE1 * Power(Cos(bf), 2)
v = Sqr(1 + nl)
N = ParaC / v
yn = y1 / N
vt = Power(v, 2) * t
t2 = Power(t, 2)
B = bf - vt * Power(yn, 2) / 2 + (5 + 3 * t2 + nl - 9 * nl * t2) * vt * Power(yn, 4) / 24 - (61 + 90 * t2 + 45 * Power(t2, 2)) * vt * Power(yn, 6) / 720

B = TransArcToDegree(B)

Dim cbf As Double

cbf = 1 / Cos(bf)
L = cbf * yn - (1 + 2 * t2 + nl) * cbf * Power(yn, 3) / 6 + (5 + 28 * t2 + 24 * Power(t2, 2) + 6 * nl + 8 * nl * t2) * cbf * Power(yn, 5) / 120 + center
L = TransArcToDegree(L)
End Sub

弧度转换为度
Public Function TransArcToDegree(arc As Double) As Double
Dim degree As Double
Dim min As Double
Dim sec As Double
Dim ret As Double
Dim tmp As Double
ret = arc * 180 / PI
degree = FormatValue(ret, 100, 100)
tmp = (ret - degree) * 60
min = FormatValue(tmp, 100, 100)
sec = (tmp - min) * 60
//秒保留到小数点后6位,四舍五入
sec = Format(sec, "####.000000") 'FormatValue(sec, 10000000, 100)
TransArcToDegree = degree * 3600 + min * 60 + sec
End Function

Private Function FormatValue(inputVal As Double, precsion As Long, scaleNum As Long) As Double
FormatValue = (Int(inputVal * precsion) - Int(inputVal * precsion) Mod scaleNum) / precsion
End Function