- 博客(22)
- 资源 (1)
- 收藏
- 关注
RSS订阅原创 求两个圆交点的坐标-解析表达式推导及编程
最开始用增量搜索法计算，这是一种暴力求解方法，不精确，不稳定。我做学生时，面对这么复杂的式子，内心是崩溃的，是完全没信心计算出来的。2+Dx+Ey+F=0，（1）-（2）求出x=a*y+b （3）算例1在CAD中验证（有舍入误差）
2023-07-13 17:25:59
2380
2原创 Django文件上传、下载(显示)，文件链接保存到数据库
在django框架下，将文件（不限类型）上传到服务器media目录，文件名（链接）保存到数据库的uploaded_file字段中，在网页上显示该文件名，点击时可以显示该文件（图片）或下载到本地打开。
2022-05-09 12:03:57
1187
原创 Python动态规划背包问题 暴力搜索与动态规划一维数组 时间对比
from typing import ( List,)import timedef weight_capacity(weights: List[int], max_capacity: int) -> int: for b in weights: if b>max_capacity: weights.remove(b) n=len(weights) a=[0]*n
2022-03-03 16:28:57
819
原创 VBA实现KMP和LCS算法
程序界面从上图可以看出，LCS的解在某些情况下并非唯一的，下面的程序将用二种方法生成LCS串，可以得到上述2种不同的结果。Private Sub CommandButton1_Click() ''2021-1-24 KMP Dim S, T As String Dim i, j, n, m As Integer Dim Nexj() As Integer '' S = InputBox("输入源字符串S:")'' T = InputBox("请输入待查找的字符串T")
2022-01-26 09:34:26
624
原创 VBA+EXCEL单元格相对位置表达 及EXCEL的舍入误差问题
若已知某单元格及另外一个单元格的相对它的位置，则可以采用如下的表达方法：cells(i,j).offset(0,3)=“单元格内容” 。 SheetA.Cells(i, sC) = zCD SheetA.Cells(i, sC).Offset(0, 5) = sLB & "类"十进制 1/3=0.3333333333333,无穷无尽。EXCEL数值有二进制存储也存在“除不尽的问题”，用有限的位数表达无限的循环小数，必然会产生舍入误差。如a=2.3 表达成了 b=2.1999999999
2021-11-23 15:59:18
628
原创 VBA like 内容中含通配符*，如何转义
若like后面的匹配模式中含有通配符本身，如星号* ，需要用 【*】表示如 “10~20*Ⅲ” 采用以下的表达式可以匹配到。 If ACol Like "*0[*]*" Then '' 包含通配符*的情况：[*] 表示 mL = Split(ACol, "*") sCD = mL(0) sLB = mL(1)...
2021-11-23 15:41:25
2422
原创 VBA userForm中控件的访问方法，值传递方法
VBA userForm的用法以pickFcxForm为例（userForm）以pickFcxForm为例（userForm）窗体内的代码：Public bCancel As Boolean ''窗体内的全局变量Private Sub CommandButton1_Click() ''确定 Dim xBLC As Integer On Error GoTo ERR1 xBLC = Val(pickFcxForm.TextBox1.Text) On Error
2021-11-23 15:26:34
2627
原创 2021-06-16人脸动态追踪face.LBPHFaceRecognizer()完整可运行
以下代码主要来源于网络，但经过自己调试，也碰到了很多坑，一一解决后写出来供大家参考！'''调用opencv的库实现人脸识别学习openCV 2021-6-16'''import cv2import numpy as npimport osimport shutil#采集自己的人脸数据def generator(data): ''' 打开摄像头，读取帧，检测该帧图像中的人脸，并进行剪切、缩放 生成图片满足以下格式： 1.灰度图，后缀为 .png
2021-06-16 17:37:21
1116
原创 SQLite
SQLite Developer/WritterMay you do good and not evil. #愿你行善不作恶。May you find forgiveness for yourself and forgive others. #愿你能够原谅自己和别人。May you share freely, never taking more than you give. #愿你自由分享，从不索取大于付出。The code segments====while( (c = Utf8Read(z
2021-05-06 09:12:49
92
原创 CAD dxf组码 Xdata 写入和读取
Dim x2, y2 As Double Dim DataType(0 To 1) As Integer Dim Data(0 To 1) As Variant For Each acEnt In acSSet ''根据x,y查找实体，并打上xData标记 DataType(0) = 1001: Data(0) = "DrillLabel" DataType(1) = 1000: Data(1) = TS(i).kh acEnt.SetXD...
2020-09-16 10:06:44
1632
原创 2020-09-16
CAD图块顺序编号问题 Type TEXT123 ''专为权设计 2019-8 x As Double y As Double Quan As Double '' 根据不同规则计算的权重End Type Dim i, j, n, k, SP As Integer Dim MinX, MaxX, MinY, MaxY As Double ''记录左上，右下范围 Dim TempT As TEXT123 D
2020-09-16 09:28:30
117
原创 VBA打开一个EXCEL文件并在二个文件之间来回操作的代码
程序在一个EXCEL表中，设为SheetA，打开一个EXCEL文件后增加一个工作表，设为SheetB。还要用到一张基价表，设为SheetC,下面的代码展示了如何打开EXCEL文件，并进行三者之间的操作，希望给有此需求的人予帮助。对某张表进行操作，只需冠以词头SheetX即可。 Dim strDeskTop, LB, SD, CX As String ''类别，深度 标识 查询 Dim SheetA, SheetB, SheetC As Worksheet Dim ZBFileName
2020-09-02 14:20:58
2407
原创 VBA按深度、类别分类统计，截取定长算法。
勘察收费标准，按岩土类别和深度共有54档收费基价，深度9档，岩土等级6类，下面的代码是解决这个问题的核心算法。While d1 < d2Select Case d1Case Is < 10If d2 <= 10 Thenth = d2 - d1 ''厚度d1 = d2 ''起点=端点，结束Elseth = 10 - d1d1 = 10End IfSD = “10”Case Is < 20If d2 <= 20
2020-09-02 11:41:05
271
原创 VBA往EXCEL的单元格中写入公式
在VBA+EXCEL编程模式中，可能需要往EXCEL表中写入公式，下面的代码可以给你一点帮助。''Address采用相对地址，这样COPY到其它位置后，公式还可以使用。Dim strRange as string ........... strRange = "(" & Cells(9, i).Address(RowAbsolute:=False, ColumnAbsolute:=False) & ":" & Cells(r - 1
2020-09-02 11:22:25
4665
encryption.exe
2008-05-25
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人