墨卡托投影去除边界格点坐标值

沐雨淋觞

萌新第一次发帖，Fortran编程也不是太过于精通。有错误以及需要改进的地方感谢告知修改。

这是一个以赤道作为x轴原点、定义初始坐标点然后计算初始坐标点到x轴间除却边界的经纬度程序，其中初始坐标点可以设置为北纬或南纬，北纬为正、南纬为负，东经为正、西经为负。以及从坐标轴到初始坐标点纬度的地图放大系数。



如果纬向格点设置过多，会有所提示。


当然，格点数量不能设置小于或等于1，同时初始坐标点纬度不能为90°。

emm。。。。其中还有什么没有考虑到的望告知。

附上源代码图

huihuang

做的很好，加油哦

沐雨淋觞

很抱歉，中心格点理解错了，这是计算除去边界格点（即定义的原始坐标点的经纬度、标准纬度的22°，以及最右边的经度格点）后剩余的格点坐标。