怎么准确的画y=x2(平方)的曲线?

发表于2005-07-22 4271人浏览 13人跟帖总热度:10

筑龙币+0

yitian519

扫码加入筑龙学社 · 建筑设计微信群

为您优选精品资料，扫码免费领取

0
+1
0

[查看我的收藏]
+1

分享至

分享到微信朋友圈 ×

打开微信"扫一扫"，扫描上方二维码
请点击右上角按钮，选择

举报点评(0) 点赞(0)

fzfzfz1968

发表于2005-07-23 | 只看该作者

楼

以下是引用coolman327在2005-7-23 0:40:00的发言：现在就复制Ｃ里面所有的坐标！！！然后在ＣＡＤ里面输入曲线的命令 S...

可以把图放大一些，看的更直观

举报点评(0) 点赞(0)

fzfzfz1968

发表于2005-07-23 | 只看该作者

楼

是的，我觉得把小数取的太多，这个文件一下子好象就大了很多啊，前面取位到0.00000001时电脑死机了，从新来过取到0.001才马马乎乎的可以画了，就这还有好几百K啊

举报点评(0) 点赞(0)

yitian519

发表于2005-07-24 | 只看该作者

楼

这么说来,cad是无法精确的画出
这种函数了

举报点评(0) 点赞(0)

fzfzfz1968

发表于2005-07-24 | 只看该作者

楼

把这个程序复制到CAD命令里去可以根据你需要的精度画这个图
(defun c:tt_line ()
(princ "n在命令行中输入命令：")
(princ "n函数y= X^2曲线")
(setvar "osmode" 0)
(Setvar "cmdecho" 0)
(princ "n请指定X的定义域:")
(setq tt_mt (getreal "n请指定X轴的最小单位:"))
(setq tt_mt (abs tt_mt))
(setq tt_x_min (getint "n请指定X的最小值:"))
(setq tt_x_max (getint "n请指定X的最大值:"))
(while (<= tt_x_max tt_x_min)
(princ "n最大值必须大于且不等于最小值!")
(setq tt_x_min (getint "n请指定X的最小值:"))
(setq tt_x_max (getint "n请指定X的最大值:"))
)
(setq tt_nsp (/ (- tt_x_max tt_x_min) tt_mt))
(Setq nn 0)
(setq aaa (atoi (rtos tt_nsp 2 0)))
(Setq pt_x tt_x_min)
(command "line")
(repeat aaa
(Setq pt_x (+ nn pt_x))
(setq pt_y (* pt_x pt_x))
(setq pt (list pt_x pt_y))
(setq nn tt_mt)
(command pt)
)
(command "")
(command "line" ppy1 "0,0" ppx1 "")
(command "text" "J" "TR" ppx1 "" "" "x" "")
(command "text" "J" "TR" ppy1 "" "" "y" "")
(princ)
)

举报点评(0) 点赞(0)