AutoCAD 二次开发 AutoLISP画图 题目:和的平方、极坐标四叶曲线、阿基米德螺旋线
2023-03-07 09:08:35 时间
我的GIS/CS学习笔记:https://github.com/yunwei37/ZJU-CS-GIS-ClassNotes <一个浙江大学本科生的计算机、地理信息科学知识库 >
写入下列三道题的LISP程序,并在实习报告中对运行结果截图,简略描述程序思路。
1、 有的两位数具有一种有趣的性质:该数的平方分成两个两位数,它们的和等于该数本身。例如:552=3025,而55=30+25,编程,找出具有这样性质的全部两位数
(defun c:xinzhi ( / n n1 n2 s) ;该数的平方分成两个两位数,它们的和等于该数本身。
(setq n 10)
(while (<= n 99) (setq n1 (/ ( * n n ) 100))
(setq n2 ( - ( * n n ) (* n1 100)))
(setq s (+ n1 n2))
(if (= s n) (princ (strcat "\n" (rtos n)))
) ;if_end
(setq n (+ n 1))
) ;while_end
(princ)
) ;end
效果:
2、 编程,画极坐标方程R=1+2cos(2θ)在[0, 2π]内的曲线
(command "pline" ) ;画极坐标方程R=1+2cos(2θ)在[0, 2π]内的曲线
(setq n 0)
(repeat 3600
(command (polar (list 0 0) (/ n 57.3) ( + 1 ( * 2 ( cos ( * 2 (/ n 57.3) ) ) ) ) ))
(setq n ( + 0.1 n))
)
(command)
3、 编程,绘制阿基米德螺旋线
(command "pline" ) ;绘制阿基米德螺旋线
(setq n 0)
(repeat 1000
(command (polar (list 0 0) (/ n 57.3) n))
(setq n (1+ n))
)
(command)
相关文章
- 芯片设计-如何在缺少 CAD 团队的情况下进行异常日志分析
- 预览:Amazon Lookout for Metrics,一项用于监控企业运行状况的异常检测服务
- 新 – VPC Reachability Analyzer
- 手把手教你如何部署企业级云存储网盘
- 使用 Glue 和 Athena 分析 AWS 服务日志
- AWS Audit Manager 简化了审计准备工作
- 新增 – Amazon Elastic Kubernetes Service (EKS) 上的 Amazon EMR
- re:Invent 2020 博客直播:基础设施主题演讲
- 新增功能– Amazon ElastiCache 对 Redis 6 的支持
- 筹备中 — 澳大利亚墨尔本的 AWS 区域
- 现在可在 AWS Marketplace 上购买专业服务
- AWS License Manager 中的托管授权简化了客户和 ISV 的许可证跟踪和分发
- 新增功能 – AWS 架构完善的工具中的 SaaS Lens
- 使用 Amazon CloudWatch Lambda 见解提高运营可见性
- 即将推出 — 2020 年将再推出 3 个 AWS Local Zones,2021 年将再推出 12 个
- re: Invent 2020 — 12 月 1 日(星期二)的预公告
- Amazon Lookout Vision – 新的机器学习服务简化了制造缺陷检测
- Amazon Connect – 现在更智能、与第三方工具的集成度更高
- AWS Panorama 设备:将计算机视觉应用程序引入 Edge
- Amazon Monitron 是一项简单且经济高效的服务,可实现预测性维护