(defun c:22 (/ YC R FC FH A RA B EB REB C EC REC RLA RLB FDA FDB FDC FDD RLD RLDA FRLDA FRLDD FFD RREB DEL XD DEL)
(ETEND 300)
(if (> UF_estimate 0)
(progn
(setq YC (getpoint "输入圆心:"))
(setq R (getdist "\n 输入半径:"))
(setq FC (getdist "\n 输入弧长:"))
(setq FH (getdist "\n 输入弧版厚度:"))
2022-01-10 21:28:11
4KB
1
Delphi画线段 直线和矩形圆形，可以画一些简单的几何图形，还可清除图形和删除图形，复制到剪贴板、打开、保存文件等。在操作方面，可用“方向键”滚动画面，用鼠标右键选择图形、移动，选中后可以用左键进行画线、拉伸。
2022-01-10 11:42:01
137KB
1
delphi 窗体上画任意方向带箭头的直线全套源码，程序启动后在主窗体直接用鼠标左键拖动可画出任意方向的带箭头的直线。
2022-01-10 11:24:49
165KB
1
背景：
用python画AR模型的时序图。
结果：
代码：
import numpy as np
import matplotlib.pyplot as plt
AR(1)的时序图：x[t]=a*x[t-1]+e
num = 2000
e = np.random.rand(num)
x = np.empty(num)
平稳AR(1)
a = -0.5
x[0] = 2
for i in range(1,num):
x[i] = a*x[i-1]+e[i]
plt.subplot(321,title = AR({0}):x[t]={1}*x[t-1]+e
2022-01-08 15:19:04
96KB
1