weixin_40112836的博客

原创 coord软件的一些操作

方法：首先把6°带进行高斯反算计算出该点的经度，在计算该点在3°带中的中央子午线；然后设置换带计算参数；最后把6°带换带计算成3°带。DX(米)=-204.590365。DY(米)=-507.801558。T(秒)=-0.61606132。将38度带对应中央经度输入。这里需要先求出经纬度坐标。，因此6°带中央经度为。，再求出3°带对应带号。

原创 git和github速成课

视频学习。

原创 优劣解距离法TOPSIS——清风老师

TOPSIS方法的基本流程和思想

原创 【vba】数据分类

使用多种vba方法实现分列操作

原创 【vba】打开文件夹对里面的excel文件进行批处理

vba批量操作excel中数据

原创 arcgis加载谷歌地图和天地图

acrgis加载谷歌地图和天地图

原创 arcgis pro3.0安装中文包

arcgis pro安转和中文安装包

原创 【vba】按比例拆分单元格

vba按合并单元格个数按比例拆分数值

原创 arcgis加载经纬度信息并导入91地图

arcgis+91地图

原创 层次分析法AHP——清风老师

层次分析分析法AHP

原创 【孙兴华vba第一季】E10&E11——一键汇总各分表数据成总表

vba一键汇总各分表数据成总表

原创 【孙兴华vba第一季】E7&E8-批量提取工作表名字并修改-个人解法

推荐孙老师的vba课程《跟着孙兴华学习Excel VBA 第一季》题目：批量提取工作表名字并修改这一节其实和批量指定删除工作表相似老师解法提取工作表名称Sub GetShtName() Dim sht As Worksheet, i As Long i = 1 'i初始值为1 With Columns(1) .ClearContents '清除A列内容 .NumberFormat = "@" '设置单元格格式为文本 End .

原创 【孙兴华vba第一季】E5&E6-生成工作表超链接-个人解法

推荐孙老师的vba课程《跟着孙兴华学习Excel VBA 第一季》题目：生成带超链接的工作表目录老师解法Sub ml() Dim sht As Worksheet, i&, strShtName$ Columns(1).ClearContents '清空A列数据 Cells(1, 1) = "目录" '第一个单元格写入标题"目录" i = 1 '将i的初值设置为1. For Each sht In Worksheets '循环当前工作簿的每个工.

原创 【孙兴华vba第一季】E3&E4-提取工作表名称并指定删除-个人解法

推荐孙老师的vba课程《跟着孙兴华学习Excel VBA 第一季》题目：删除指定工作表基本思路为获取工作表名称，然后在对应名称后面写入删除，最后进行批量删除老师解法获取工作表名称写入第一列Sub GetShtByVba() Dim sht As Worksheet, k As Long Application.ScreenUpdating = False k = 1 Range("a:b").Clear '清空数据 Range("a:a").Num.

原创 【孙兴华vba第一季】E2-批量删除工作表-个人解法

推荐孙老师的vba课程《跟着孙兴华学习Excel VBA 第一季》题目：删除所有工作表老师解法Sub DelShet() '删除所有工作表 Dim sht As Worksheet Application.ScreenUpdating = False '关屏幕刷新 Application.DisplayAlerts = False '关警告信息 On Error Resume Next For Each sht In Worksheets .

原创 【孙兴华vba第一季】E1-批量创建新工作表-个人解法

推荐孙老师的vba课程《跟着孙兴华学习Excel VBA 第一季》题目：批量创建工作表老师解法Sub NewSht() Dim shtActive As Worksheet, sht As Worksheet Dim i As Long, strShtName As String On Error Resume Next '当代码出错时继续运行 Set shtActive = ActiveSheet For i = 2 To shtActive.Cells.

原创 【html】head标签中的meta标签

head中有关于meta的常用设置，比如定义网页关键词、网页作者、网页描述、网页刷新时间、网页对不同设备的自适应。Define keywords for search engines:<meta name="keywords" content="HTML, CSS, JavaScript">Define a description of your web page:<meta name="description" content="Free Web tutorials f

原创 png文件批量重命名

背景代码# -*- coding: utf-8 -*-"""Created on Mon Dec 6 21:39:03 2021@author: Administrator"""import ospath = r"C:\Users\Administrator\Downloads"files = os.listdir(path)for file in files: # print(file) if file.endswith(".png"): #判断是否为pn

原创 利用python判断路径下文件夹是否为空

import os def findFile(path): files=os.listdir(path) #查找路径下的所有的文件夹及文件 for filee in files: f=str(path+filee) #使用绝对路径 if os.path.isdir(f): #判断是文件夹还是文件 if not os.listdir(f): #判断文件夹是否为空 print(str(filee)) else:

转载 工作簿中工作表拆分

要求：将excel工作簿中的每一个工作表另存为一个以该工作表名命名的独立文件Sub saveworkbook()'将sheet工作表批量另存为独立的工作簿，并命名成sheet表的名称 Application.ScreenUpdating = False '关闭屏幕更新 Dim ff As String '定义字符变量 ff = ThisWorkbook.Path & "\xxx文件" '指定建立新的工作簿保存到的路径 If Len(Dir(ff, vbDirectory))

原创 【Mysql】修改密码

个人使用了以下两种方法：set password for 用户名@localhost = password('xxxxxx'); mysqladmin -u用户名 -p旧密码 password 新密码都无法修改，使用下面方法则可以：set password for 'root'@'localhost' = 'xxxxxx';

原创 【spss】列联表crosstabs

定义列联表（contingency table）是观测数据按两个或更多属性（定性变量）分类时所列出的频数表。 它是由两个以上的变量进行交叉分类的频数分布表。算例数据目的不同学校之间升学率是否存在差别？计算过程这里“计数”使用的是总数，而不是由一个个个案构成的原始数据，首先需要对个案进行加权。个案加权列联表分析计算结果通过卡方检验结果来看，其双侧近似P值远大于0.05，说明其结果没有显著性差异。...

原创 【vba】时间数据按照位置进行汇总

数据情况要求分表汇总代码Public Sub fenlei()Dim i, a, b, c, d, e As IntegerDim arra = 2b = 2c = 2d = 2e = 2row_num = Cells(Rows.Count, 3).End(xlUp).Rowarr = Range("b3:i3")Worksheets.Add.Name = "长虹湖-进水口"Worksheets.Add.Name = "长虹湖-出水口"Worksheets.Add.

原创 【UOS统信】安装谷歌浏览器

自带浏览器UOS自带的浏览器感觉功能比较少，想改用平常用的google浏览器。安装过程下载google浏览器的.deb包进入terminal，cd到.deb文件所在位置

原创 【python】一些Unconventional操作

推导式列表推导式list1 = [i for i in range(10)]# [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]元组推导式tuple1 = (i for i in range(10)) # generatorfor i in tuple1: print(i, end = " ")# 0 1 2 3 4 5 6 7 8 9 字典推导式dict1 = {"a":10,"B":20,"C":True,"D":"hello world","e":"python教程

原创 【python】numpy中的轴/axis

ndarray是numpy的根基，而ndarray数据所具有的重要属性就是axis，如果把ndarray比喻成一个空间几何体，那么axis就是这个几何体的骨架。从上图可以看出axis是从0开始的，一般来说，n维的数据axis的数目为n-1。在numpy里面有一个moveaxis的操作：import numpy as npa = np.ones((2,3,4),dtype=np.int16))a"""array([[[1, 1, 1, 1], [1, 1, 1, 1],

原创 【delphi】实现键盘上0-9数字输入

每个键盘上的按键都对应一个代码，要实现只输入数字的功能，须知道数字对应的代码，见附录；OnKeyDown, OnKeyUp, OnKeyPress皆可以；代码：// 这里以KeyPress为例procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin If not(key in ['0'..'9']) then Begin Key:= #0; // #0 表示没有输入 Me.

原创 【delphi】实现超链接

先引用ShellAPI单元uses ShellAPI ; 代码中bai使du用ShellExecute函数来实现zhiShellExecute(0,'open','website',nil,nil,SW_SHOWNORMAL)； 设置Image的Cursor属性设为crHandPoint ；// 省略uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdC.

原创 计算机——晶体管

原创 r及rstudio安装ggvegan问题

一、问题描述ggvegan是内置ggplot工具，用于更加美观展示vegan分析结果的可视化工具。目前只发布在github上。使用作者推荐的remote方法和下载zip文件都不能成功安装。主要报错：Downloading GitHub repo gavinsimpson/ggvegan@HEADError in utils::download.file(url, path, method = method, quiet = quiet, : 无法打开URL'https://api

原创 WPS无法加载EndNote加载项

问题描述WPS2019通过“开发工具-加载项”加载路径C:\Program Files\Common Files\ResearchSoft\Cwyw\19\EndNote Cwyw.dll无法加载解决方法复制一下文件到x86路径下再加载，即可成功。文件链接https://kdocs.cn/l/cglBCpJBaXYJ[金山文档] ResearchSoft.zip...

原创 qimme linux学习mv问题

背景：虚拟机里共享文件夹，计算好的数据打算移入共享文件夹，报错。报错信息：mv: cannot create regular file `/home/qiime/Desktop/Shared_Folder/test.zip': Protocol error一开始以为是权限问题，后面发现是由于win端文件夹权限问题，打开win端共享文件夹，更改其属性为完全控制即可解决。...

原创 死囚犯枪决问题——python实现

问题：假如有100名犯人，现在报数为奇数的枪毙，偶数的存活，请问，最后第几名犯人可以存活？...代码：l = [i for i in range(1,101)]while len(l) > 1: for i in l: if l.index(i) % 2 == 0: l[l.index(i)] = 0 for each in l: if each == 0: l.remove(each

原创 关于特征值和特征向量的一道例题

我们接下来计算第二、三、四....已婚女性和单身女性的数量，使用matlab求解如下：function result = MorD(n) % 计算n年后结婚和离婚人数 % 离婚结婚率矩阵 A=[0.7,0.2;0.3,0.8]; % 人口矩阵 b=[8000;2000]; for i=1:n fprintf('第%d年的结婚和离婚人数分别为：', i) result = A^i*b endend

原创 linux常用命令解读

目录ls -l命令ls -l 命令

原创 主成分分析PCA的一点思考

目录1. 认识PCA2. 计算原理3. 计算方法4. 结果分析5. 主成分分析使用误区6. 主成分分析结果聚类1. 认识PCA本质：降维比如生产一件衣服，需要测量衣长、肩宽、袖长、袖宽诸多指标，可以综合为1~2指标，比如高矮的指标，胖瘦的指标。2. 计算原理3. 计算方法4. 结果分析5. 主成分分析使用误区即：使用主成分分析进行排名比较。6. 主成分分析结果聚类7. 致谢谢谢清风老师，.

原创 兰色幻想vba-3

题目一Public Sub test1() Dim row_num As Integer, col_num As Integer row_num = Range("c4").CurrentRegion.Rows.Count col_num = Range("c4").CurrentRegion.Columns.Count Range("a1") = Rang...

原创 兰色幻想vba-作业1

代码如下：Public Sub copy_table() Sheets("日报表模板").Visible = True Sheets("日报表模板").Copy after:=Sheets(Sheets.Count) Set sh = ActiveSheet sh.Name = CStr(Sheets.Coun...

原创 <VBA>从多张工作簿（workbooks）中多张工作表（worksheets）同一位置提取数据

数据：N张工作簿，每张工作簿里又有M张工作表，每张工作表的同一位置Cells(2,16)有需要的数据，想讲这些数据汇总到一张新的表格。新建一张“汇总.xlsm”，并打开，新建sub()过程； 依次打开工作簿； 源码如下：Public Sub Data()Dim i As IntegerDim j As IntegerFor i = 1 To Workbooks.Count...