LISP经典程序

1、版 次 C/0页 码 第 1 页 共 4 页产品防护管理程序修订日期 2006-11-20文件编号 QP/SYM-75-P04 生效日期 2006-12-01宁波舜宇模具有限公司版权 未经同意不得复印宁波舜宇模具有限公司NINGBO SUNNY MOULD CO.，LTD 程 序 文 件发放范围：总经理、管理者代表、财务部、注塑市 场 部、注塑生产部、采购部、 质保部编制 审核 会签 批准注塑生产部 财务部 质保部 产品研发中心 总经理注塑市场部 采购部 管理部修订次数 版本修订日期生效日期 更 改 内 容 修订1 B/0 06-1-10 06-1-10 从 ISO9001 转换到 ISO/TS16949. 韦毓2 B/1 06-8-15 06-8-20 1。

2、2.1set 与 get 函数 12.2callback 函数 .32.3 元胞数 组 42.4 结 构数组 62.5 矩 阵操作 102.6 字符串操作 132.7 判断函数使用大全 172.11 打开外部程序 212.11 程序运行时间 232.14 动画 242.12 动画 252.23 显示多行内容 272.24 uitable 使用 .272.27 鼠标操作 282.28 键盘操作 282.32 粘贴板 292.1set 与 get 函数set(edit_handle,String,my value!); %String为Edit控件的属性%2.1-1%创建figure对象hfig=figure(1); %创建坐标轴对象，指定其父对象为figure 1haxes1=axes(parent,hfig);prop.Color=b;prop.FontSize=12;set(haxes1,prop);。

3、1，编写程序，判断给定的某个年份是否是闰年。闰年的判断规则如下：（1）若某个年份能被 4 整除但不能被 100 整除，则是闰年。（2）若某个年份能被 400 整除，则也是闰年。import java.util.Scanner;class Bissextilepublic static void main(String arge)System.out.print(“请输入年份“);int year; /定义输入的年份名字为“year”Scanner scanner = new Scanner(System.in);year = scanner.nextInt();if (year3000)System.out.println(“年份有误，程序退出！“);System.exit(0);if (year%4=0)else System.out.println(year+“ is not 。

4、实验一：判断一个数 X 的正，负数，还是零。 （假设是正数，输出+ ，是负数，输出- ，是零，输出 This is a zore !）DATA SEGMENTX DB 10CR EQU 0DHLF EQU 0AHW DB This is a zore!,CR,LF,$ZHENG DB +,CR,LF,$FU DB -,CR,LF,$DATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATASTART:MOV AX,DATAMOV DS,AXMOV AL,XAND AL,ALJZ L1 SHL AL,1JC L3JMP L2L1: MOV DX,OFFSET WMOV AH,9INT 21HJMP L4L2: MOV DX,OFFSET ZHENGMOV AH,9INT 21HJMP L4L3: MOV DX,OFFSET FUMOV AH,9INT 21HJMP L4L4: MOV AH,4CHINT 21HCODE ENDSEND STA。

5、【程序 1】题目：有 1、2、3、4 个数字，能组成多少个互不相同且无重复数字的三位数？都是多少？1.程序分析：可填在百位、十位、个位的数字都是 1、2、3、4。组成所有的排列后再去掉不满足条件的排列。 2.程序源代码：#include “stdio.h“#include “conio.h“main()int i,j,k;printf(“n“);for(i=1;iint main()int bai,ge,shi,num=0;for(bai=1;bai#includeint main()int n, x,y;for(n=1;n2) /*如果是闰年且月份大于 2,总天数应该加一天*/sum+;printf(“It is the %dth day.“,sum);getch(); Me:#includeint nian(int year,int month);i。

6、你平时可以尝试写一些实际的小程序，比如说模拟“计算器” 等，也可以多读一些经典的程序 附：经典程序 30 【程序 1】 题目：有 1、2、3 、4 个数字，能组成多少个互不相同且无重复数字的三位数？都是多少？1.程序分析：可填在百位、十位、个位的数字都是 1、2、3、4。组成所有的排列后再去 掉不满足条件的排列。 2.程序源代码： main() int i,j,k; printf(“n“); for(i=1;i2)/*如果是闰年且月份大于 2,总天数应该加一天 */ sum+; printf(“It is the %dth day.“,sum); = 【程序 5】 题目：输入三个整数 x,y,z，请把这三个数由小到大输。

7、第第 2 章章 基本逻辑控制基本逻辑控制CPU输出单元停止 I0.2启动 I0.1东西人行道红 Q1.3东西人行道绿 Q1.2南北人行道红 Q1.1南北人行道绿 Q1.0东西主车道红 Q0.7东西主车道黄 Q0.6东西主车道直行绿Q0.5东西主车道左转绿Q0.4南北主车道红 Q0.3南北主车道黄 Q0.2南北主车道直行绿Q0.1南北主车道左转绿Q0.0图 2-1 交通信号灯控制 PLC 配置示意图工控技术实用子程序PLC20 10 13 40 4345 55 58 85 8890 （秒）Q1.0Q1.1Q0.7Q0.6Q0.5Q0.4Q1.2Q1.3Q0.3Q0.2Q0.1Q0.0I0.1图 2-2 交通信号灯系统正常工作时序图第 2 章 基本逻辑控制3I0.1M0.2Q0.1Q0.2T。

8、 深圳市高标电子科技有限公司 ISO9001：2008深 圳 市 高 标 电 子 科 技 有 限 公 司工 程 部 IE 工 作 程 序文件编号 QP-ENG-01 生效日期 2010-1-1版 本 A/0 页 次 第 1 页共 5 页制 定 人 : 审 查 : 核 准 : 未 经 批 准 不 准 翻 印深圳市高标电子科技有限公司 ISO9001：2008编 号 QP-ENG-01 页 次 第 2 页 共 5 页制 定 部 门 工 程 部工 程 部 IE 工 作 程 序版 次 A/0深圳市高标电子科技有限公司 ISO9001：20081. 目 的 ：为了合理高效的保障生产工艺的建立，特制定本程序加以规范工程 IE 操作流程，确保公司产品能及时有序的生产.2。

9、-【程序1】题目：古典问题：有一对兔子，从出生后第3个月起每个月都生一对兔子，小兔子长到第三个月后每个月又生一对兔子，假如兔子都不死，问每个月的兔子总数为多少？1.程序分析： 兔子的规律为数列 1,1,2,3,5,8,13,212.程序源代码：main()long f1,f2;int i;f1=f2=1;for(i=1;ik，但n能被 k整除，则应打印出k的值，并用n 除以k的商,作为新的正整数你n,重复执行第一步。(3)如果n 不能被k 整除，则用k+1作为k的值,重复执行第一步。2.程序源代码：/* zheng int is divided yinshu*/main()int n,i;printf(“nplease input a number:n“);scan。

10、经典按键扫描程序核心算法:unsigned char Trg;unsigned char Cont;void KeyRead( void )unsigned char ReadData = PINB0xff; / 1Trg = ReadData / 2Cont = ReadData; / 3完了。有没有一种不可思议的感觉？当然，没有想懂之前会那样，想懂之后就会惊叹于这算法的精妙！下面是程序解释:Trg(triger)代表的是触发，Cont(continue)代表的是连续按下。1:读 PORTB 的端口数据，取反，然后送到 ReadData 临时变量里面保存起来。2:算法 1，用来计算触发变量的。一个位与操作，一个异或操作，我想学过 C语言都应该懂吧？Trg 为全局变量，其它程序可。

11、C 程序设计经典程序举例1、 判断素数（循环、利用算法减少运算次数）例：1159 ：质因数分解正整数 n 是两个不同质数的乘积，试求出其中较大的。#include #include int main() long long n,big; int small; int root,i,j; scanf(“%lld“, for(small=2;small #include int starti,startj; int endi,endj;/定义迷宫起止点 int success=0; /用于判断是否成功通路 int main() int visit(int i,int j,int maze10); int i,j; int n,m; int maze1010; scanf(“%d %d“, for(i=1;iint used16=0;/是否使用判断 int result16=0;/打印结果 void proc(。

12、项目里经常处理按键消抖, 本来这个消抖的过程是与具体按下的键无关的, 可以前的代码总是在消抖的同时处理具体的按键值, 再加上长按 短按 组合键混在一起, 成一锅粥. 最近在一个项目中痛下决心, 想弄个通用版本的, 这样下个项目只要将文件包含一下, 处理具体按键值就可以了, 不必再关心消抖部分的代码了. 另外还发现, 这样做可以同时做出几套不同的按键处理方式. 思路是: 按照面向过程的编程方式, 将数据与过程分离. 把和按键状态相关的东西统统塞到结构里, 把消抖的代码放在一个函数中. /key.h 头文件- #ifndef _KEY_H #define _KEY_H #de。

13、【程序 1】 题目：有 1、2、3、4 个数字，能组成多少个互不相同且无重复数字的三位数？都是多少？1.程序分析：可填在百位、十位、个位的数字都是 1、2、3、4。组成所有的排列后再去 掉不满足条件的排列。 2.程序源代码： main() int i,j,k; printf(“n“); for(i=1;i2)/*如果是闰年且月份大于 2,总天数应该加一天*/ sum+; printf(“It is the %dth day.“,sum); = 【程序 5】 题目：输入三个整数 x,y,z，请把这三个数由小到大输出。 1.程序分析：我们想办法把最小的数放到 x 上，先将 x 与 y 进行比较，如果 xy 则将 x 与y 的值进行交换，。

14、LISP人工智能程序语言LISP人工智能程序语言2010年06月11 日LISP的由来 LISP是一种计算机的表处理语言,是函数型语言。它是LIST Processing 的缩写,是研究人工智能的有力工具。 LISP 最初是作为书写字符与表的递归函数的形式系统出现的,1958年由美国麻省理工学院(MIT)的AI小组提出(要为问答系统设计一种语言),1960年由 MIT的John.McCarthy教授(麦卡西教授,举世闻名的计算机科学家,图灵奖获得者,后为美国斯坦福大学教授)整理成统称为LISP1.0的形 式发表,然后开始流行于AI界.以后陆续出现了LISP1.5(1962 年),LISP1.6,MACLISP,INTERLISP,COMMON。

15、CAD 中画缓和曲线，首先复制本文后面的源程序保存至 cad 安装目录的 SUPPORT 文件夹，保存类型为.lsp 可以随便复制一个 SUPPORT 文件夹内的 lsp 文件，然后替换本文的程序。 打开 CAD 后，输入 appload 回车，找到你保存的缓和曲线 lsp 程序，点击加载，然后就可以画缓和曲线了。 首先，要画出缓和曲线的两条直线，然后输入 HH 回车，按提示完成缓和曲线。注：本程序，缓和曲线段拟合长度为 0.4m，如需更改拟合长度，将程序的第 8 行(repeat (FIX(/ Ls 0.4)及 9 行(setq l (+ l (/ Ls (FIX(/ Ls 0.4)中的 0.4 修改即可。;多义线摹拟缓和曲。

16、CAD 展点程序 lisp 2009 年 02 月 17 日 星期二 01:08 P.M.（1）依网上资源文件修改的：CAD 展点程序把下文保存到文本文件中，扩展名改为.lsp,按数据格式要求准备好数据点文件。在 CAD 中加载 lsp 文件。运行命令：kszd;LISP 展点程序 ;展 1000 点：在 HP(AMD Athlon64 3000+ 256MB)电胶上仅耗时 0.142 秒； ; 在金利(Geleron(R) CPU 2.40GHz 256MB)电胶上耗时 0.882 秒 ;数据文件格式为：每一点的数据（点号、X、Y、H）为一行，用逗号或空格作为分隔符，即 ;点号 1 X1 Y1 H1 或者 点号 1, X1, Y1, H1 ;点号 2 X2 Y2 H2 或者 点号 2, X2, 。

17、超经典 CAD lisp 程序集锦如果您使用 AutoCAD,下面的内容对您一定有帮助。在某些方面能大大提高您的工作效率。下面的程序均以源程序方式给出，您可以使用、参考、修改它。bg.lsp - 表格自动生成 asc.lsp - 将文本文件内容写入图中，字符是单个的 wf.lsp - 将图中字符写入磁盘 exstr.lsp - 将字符串分解成单字 pgtxt.lsp - 将字符合成字符串 pb.lsp - 通过给出长度将字符串分成两个串 cht.lsp - 直接修改文字内容或块属性 ct.lsp - 对数字串进行加减 chh.lsp - 直接修改文字高度 chhw.lsp - 直接修改文字高宽比(针对 PKPM 软件将字符定位点。

18、坐标提取lisp程序 2010 05 17 20 50 07 分类 工程 标签 字号大中小订阅 该程序主要用于CAD点 point 三维坐标提取 并将数据输出为CASS软件中使用的数据格式 输出格式 点号 测量Y值 测量X值 测量Z值 例 1 100 3244 1232 433 25 2010 05 17 命令 plzbsc defun c plzbsc princ n选择所需输出的点 point。

19、1.计算所有线段总长度(加载后只需框选所有线段便可得出这些线段的总长度) (defun c:LL ()(setvar “cmdecho“ 1)(setq en (ssget (list (0 . “spline,arc,line,ellipse,LWPOLYLINE“)(setq i 0)(setq ll 0)(repeat (sslength en)(setq ss (ssname en i)(setq endata (entget ss)(command “lengthen“ ss “)(setq dd (getvar “perimeter“)(setq ll (+ dd ll)(setq i (1+ i)(princ “所选线条总长为：“)(princ ll)(princ)2.标注所有线段(加载后只需框选所有线段便可得标注这些线段) (defun c:LLL ()(COMMAND “UCS“ “)(setvar “cmd。

20、;一、绘制地形图符号1.点状符号对于点状符号,其位置固定, 数量较多 ,且一般都带有一定的标注, 可逐个制作属性块图元,单独插入。2.线状符号利用 AutoCAD 中强大的线型定义。3.面状符号由充填符号在面域内按一定的排列方式组合而成。目前 Auto CAD 在建筑设计、工程施工放样得到广泛应用, Auto CAD 在工程测量上的应用,大大减少手算坐标的工程量或帮助人们复核手算坐标的准确性。(1)删除未选择对象(defun c:sd()(princ“n 选择要保留对象:“)(setq SS(ssget) ss1(ssget“X“)(command“erase“ss1“r“ss“zoom _e);end;(2)画圆弧型铁路;输。