1.绘制多边形。
defun c:dbx()
(setq p1(getint"输入多边形的边数：")
(setq p2(getpoint"输入多边形中心点：")
(setq r(getint "输入圆的半径：")
(command "polygon" p1 p2 "i" r ""
(command)
运行结果：命令： dbx
输入多边形的边数：6
输入多边形中心点：
输入圆的半径：30
2.求两点间的距离和方位角。
defun c:jlfwj()
(setq p1(getpoint"输入第一点：")
(setq p2(getpoint"输入第二点：")
(setq jl(distance p1 p2))
(setq fwj(angle p1 p2))
运行结果： (setq p1(getpoint"输入第一点：")
(setq p2(getpoint"输入第二点：")
$ (setq jl(distance p1 p2))
(setq fwj(angle p1 p2))
$ jl
$ fwj
3.创建图层。
defun c:tc()
(setq mc(getstring"输入新建图层名称：")
(command "layer" "m" mc "c" 1 ""
(command)
运行结果：命令： 'vlide
命令：命令： tc
输入新建图层名称：dd
4.求线段外一点到线段的距离。
defun c:dxjl()
(setq p1(getpoint"输入线段第一点：")
(setq p2(getpoint"输入线段第二点：")
(setq p3(getpoint"输入线段外一点：")
(setq s1(distance p1 p2))
(setq s2(distance p3 p2))
(setq s3(distance p1 p3))
(setq s(/ s1 s2 s3) 2))
(setq m(sqrt(* s (-s s1) (s s2) (s s3)))
(setq d(/ 2 m) s1))
运行结果：命令：
命令： dxjl
输入线段第一点：
输入线段第二点：
输入线段外一点：284.761
命令：命令： 'vlide
命令：5.求三角形面积。
defun c:sjxmj()
(setq a(getreal"输入三角形第一个边长：")
(setq b(getreal"输入三角形第二个边长：")
(setq c(getreal"输入三角形第三个边长：")
(setq s(/ a b c ) 2))
(setq mj(sqrt (*s (-s a) (s b) (s c)))
运行结果：命令：
命令： sjxmj
输入三角形第一个边长：28
输入三角形第二个边长：35
输入三角形第三个边长：24
命令：6.求线段中点。
defun c:zd()
(setq p1(getpoint"输入第一点：")
(setq p2(getpoint"输入第二点：")
(setq x1(car p1) x2(car p2) y1(cadr p1) y2(cadr p2))
(setq x3(/ x1 x2) 2) y3(/ y1 y2) 2))
(setq p3(list x3 y3))
运行结果：$ (setq p1(getpoint"输入第一点：")
(setq p2(getpoint"输入第二点：")
$ (setq x1(car p1) x2(car p2) y1(cadr p1) y2(cadr p2))
(setq x3(/ x1 x2) 2) y3(/ y1 y2) 2))
(setq p3(list x3 y3))
$ p3
网络编程作业
1.多个tcp客户端连接一个tcp服务器，服务器只要读到客户端数据，将数据 给其他客户端，然后tcp客户端收到数据后打印。该服务器是tcp广播服务器，请用循环服务器实现 提示 服务端在acept函数会返回客户端文件描述符clientfd，将每一个客户端的文件描述符，添加到client文件描述符数组里...
网络编程作业
1 客户端程序接收用户输入的数字，然后将用户输入的内容发送给服务器端，服务器端判断客户端发送的数字是否是质数，并将判断的结果反馈给客户端，客户端根据服务器端的反馈显示判断结果。注意判断用户输入的合法性。2 分别使用tcp方式和udp方式，实现将客户端输入的阿拉伯数字转换为中文大写数字。3 设计一个简...
网络编程作业
网络编程大作业。学号 姓名 班级 指导老师 进程是应用程序的执行实例，每个进程是由私有的虚拟地址空间 数据和其他各种系统资源组成，进程在运行过程中创建的资源随着进程的终止而被销毁，所使用的系统资源在进程终止时被释放或关闭。线程是进程内部的一个执行单元系统创建好进程后，实际上就启动执行了该进程的主执行...