发现Excel的VBA功能真是批量处理的一把利刃,工作中小试牛刀了一把,将Excel中度分秒形式的坐标批量处理成十进制度形式,处理完后用于GIS展点制图. 原Excel数据如下: VBA代码如下: Sub Coorder() Dim Longitude, Latitude As String, arr Dim num As Integer Dim LongColIdx As Integer Dim latColIdx As Integer LongColIdx = latColIdx = num
using System; using System.Collections.Generic; using System.Linq; using System.Text; namespace ConsoleApplication1 { /// <summary> /// 公用的特殊函数 /// </summary> public class SpecialFunctions { #region 构造函数 /// <summary> /// 构造函数 /// </s
public String trandu2m(double d) { //gisoracle 编号 try { //double dd = Convert.ToDouble(str); String str = "" + d; int p = str.indexOf("."); int dt = Integer.parseInt(str.substring(0, p)); d = d - dt; double M = d * 60; int mt = (int) M
#必须是u类型==================u==================== by gisoracle def dmstod(dms): #arcpy.AddMessage("======================gisoracle==========="+dms+"==============================") try: p = dms.find('°') if p<0: return str(dms) #arcpy.
设置n为字符串s的长度.("我是个小仙女") 设置m为字符串t的长度.("我不是个小仙女") 如果n等于0,返回m并退出.如果m等于0,返回n并退出.构造两个向量v0[m+1] 和v1[m+1],串联0..m之间所有的元素. 2 初始化 v0 to 0..m. 3 检查 s (i from 1 to n) 中的每个字符. 4 检查 t (j from 1 to m) 中的每个字符 5 如果 s[i] 等于 t[j],则编辑代价cost为 0:如果 s[i] 不等于
题意: 给定一个n(n<=50)的无向图,问最小删去几个点,可以使得这个图不连通 解法: 1. 基本概念 (1)一个具有 N 个顶点的图,在去掉任意 K-1 个顶点后 (1<=K<=N) 所得的子图仍连通,而去掉 K 个顶点后的图不连通则称 G 是连通的, 那么K 称作图 G 的点连通度 (2)相应地如果至少去掉 K 条边使这个图不连通,则 K 成为图的边连通度 2. 求解思路 对于求解边联通度的问题,为每条边赋权值为1,然后求确定一点作为源点,枚举此点外的每个点作为汇点求最大流
