520,椭圆封头变成爱心
520到了,非洲大草原上,雨季过后,又到了动物们交配的季节,城市里,春心萌动的青年男女,也纷纷表达自己的爱意。
作为压力容器设计人员,今天教大家如何用压力容器中最常见的标准椭圆封头做成一个爱心。
第一步:在CAD中绘制一个标准的椭圆封头
第二步:去掉椭圆的直边,只保留椭圆内表面:
第三步:对椭圆内表面线做镜像:
第四步:将椭圆分别复制旋转45°和-45°。
第5步:将多余的线剪切掉,得到心形
第6步:填充颜色,选择双渐变色,红红的~黄黄的,象征以后生活红红火火,开车顺顺利利。
最终成品如下:
送我一个椭圆封头,还你一颗爱心,知识点学到了吗,会了就赶紧分享吧。
心形线
1650年,斯德哥尔摩的街头,52岁的笛卡尔邂逅了18岁的瑞典公主克里斯汀。之后笛卡尔成为了瑞典的小公主克里斯汀的数学老师。
公主的数学在笛卡尔的悉心指导下突飞猛进,他们之间也开始变得亲密起来。笛卡尔向她介绍了他研究的新领域——直角坐标系。通过它,代数与几何可以结合起来,也就是日后笛卡尔创立的解析几何学的雏形。
在笛卡尔的带领下,克里斯汀走进了奇妙的坐标世界,她对曲线着了迷。每天的形影不离也使他们彼此产生了爱慕之心,他们进入了热恋。
国王知道后大怒,下令马上将笛卡尔处死。在克里斯汀的苦苦哀求下,国王将他放逐回国,公主被软禁在宫中。
当时,欧洲大陆正在流行黑死病。身体孱弱的笛卡尔回到法国后不久,便染上重病。在生命进入倒计时的那段日子,他日夜思念的还是街头偶遇的那张温暖的笑脸。他每天坚持给她写信,盼望着她的回音。然而,这些信都被国王拦截下来,公主一直没有收到他的任何消息。
在笛卡尔给克里斯汀寄出第十三封信后,他永远地离开了这个世界。此时,被软禁在宫中的小公主依然徘徊在皇宫的走廊里,思念着远方的情人。
这最后一封信上没有写一句话,只有一个方程:r=a(1-sinθ)。
国王看不懂,以为这个方程里隐藏着两个人不可告人的秘密,便把全城的数学家召集到皇宫,但是没有人能解开这个函数式。他不忍看着心爱的女儿每天闷闷不乐,便把这封信给了她。拿到信的克里斯汀欣喜若狂,她立即明白了恋人的意图,找来纸和笔,着手把方程图形画了出来,一颗心形图案出现在眼前,克里斯汀不禁流下感动的泪水,这条曲线就是著名的“心形线”。
这是一个极坐标形式的函数,其中a为参数,不同的取值可以得到不同的图像。那么它的样子是什么样子的呢?
光看方程想象非常困难,我决定要还是画出来看看吧,这样直观点,代码放在后面:
在Autocad中运行后,图形如下:
经过美颜滤镜瘦脸,一颗红扑扑黄橙橙的心呼之欲出:
在直角坐标里,y=1-sinx是一个太普通不过的函数,但是若将之看成极坐标函数,则得到一个非常漂亮的曲线,所以说情人眼里出西施。
爱上你
就像弧度变成角度
突然心有了铠甲
两颗心来个合影,茄子~~~:
源代码如下,有兴趣的朋友可以复制后,在cad中运行一下:
;;;;;;;;;;心型曲线r=a(1-sinθ)
(defun c:heart(/ a alf n ip seet p1 i detalf)
(vl-load-com)
(setq a 100.0);极轴模
(setq alf 1.0);角度增量为1°
(setq n 360);循环360次
(setvar "cmdecho" 0)
(setq ip (getpoint " n 请输入爱心插入点:"))
(command "osmode" 0)
(command "pline")
(setq p1 (polar ip 0 a))
(command "non" p1)
(setq i 1)
(repeat n
(setq detalf (* i alf ))
(setq r (* a (- 1.0 (sin (/ (* pi detalf) 180)))))
(setq p1 (polar ip (/ (* pi detalf) 180) r))
(command "non" p1)
(setq i (+ i 1))
)
(command "")
(print)
)
心形的方程有很多,下面再用描点法绘制一个3D的心形,看着这个红扑扑的心,有动心吗?
每层都是一颗心,
如果你愿意一层一层一层的剥开我的心
你会鼻酸你会流泪
3D的心动
源码如下,有兴趣的朋友可以尝试一下:
-
Origin(Pro):学习版的窗口限制【数据绘图】 2020-08-07
-
如何卸载Aspen Plus并再重新安装,这篇文章告诉你! 2020-05-29
-
AutoCAD 保存时出现错误:“此图形中的一个或多个对象无法保存为指定格式”怎么办? 2020-08-03
-
OriginPro:学习版申请及过期激活方法【数据绘图】 2020-08-06
-
CAD视口的边框线看不到也选不中是怎么回事,怎么解决? 2020-06-04
-
教程 | Origin从DSC计算焓和比热容 2020-08-31
-
如何评价拟合效果-Origin(Pro)数据拟合系列教程【数据绘图】 2020-08-06
-
Aspen Plus安装过程中RMS License证书安装失败的解决方法,亲测有效! 2021-10-15
-
CAD外部参照无法绑定怎么办? 2020-06-03
-
CAD中如何将布局连带视口中的内容复制到另一张图中? 2020-07-03