对多个中心点类似于圆锥曲线的拟合vb程序（For multiple center points similar to the conic curve fitting vb program）.doc

对多个中心点类似于圆锥曲线的拟合vb程序（For multiple center points similar to the conic curve fitting vb program） 版本5.00 VB开始。中形成Form1 背景色= H00FFFFFF 标题=“Form1” ClientHeight = 10950 ClientLeft = 165 ClientTop = 855 ClientWidth = 10950 图标= Form1.frx :0000 LinkTopic =“Form1” ScaleHeight = 10950 ScaleWidth = 10950 StartUpPosition = 3的窗口缺省 VB开始。行么 X1 = 0 X2 = 10920 10920日元= Y2 = 10920 结束 VB开始。行Line1 X1 = 10920 X2 = 10920 日元= 0 Y2 = 10920 结束 VB开始。标签Label2 背景色= H00FFFFFF 身高= 495 左= 1800 TabIndex = 1 顶级= 0 宽度= 3975 结束 VB开始。标签Label1 背景色= H00FFFFFF 身高= 495 左= 0 TabIndex = 0 顶级= 0 宽度= 1695 结束 VB开始。菜单On_Draw 标题= 开始(o)” 结束 VB开始。菜单End_commd 标题= 结束(e)” 结束 VB开始。菜单fresh_con 标题= 刷新(f)” 结束 VB开始。菜单scaline 标题= 坐标轴(郑清奎)” 结束 VB开始。菜单Point_Con 标题= 描点密度(我)” 结束 VB开始。菜单Range_con 标题= 切合约限(设计)” 结束 VB开始。菜单Plot_lenth 标题= 描点直径(研发)” 结束 VB开始。菜单print_cen 标题= 标出中心(拟定) 结束 VB开始。菜单centre_con 标题= 中心点和半径(英文)” 结束 VB开始。菜单number_con 标题= 中心个数(n)” 结束 结束 属性VB_Name =“Form1 属性VB_GlobalNameSpace = False 属性VB_Creatable = False VB_PredeclaredId = True属性 属性VB_Exposed = False 昏暗的R为单 昏暗的Cas_e1单身 昏暗的Cas_e2单身 昏暗的Vun()作为单一 昏暗的这些单() 暗Kkey为整数 昏暗的Pk为整数 昏暗的Num单身 昏暗的柔成一个 公共函数Dstns(X为单个，Y为单个，a为单一，b为单一)为单个 Dstns = Sqr((X - a)*(X - a)+(Y - b)*(Y - b)) 结束函数 私人潜艇centre_con_Click() 模糊W为整数，为整数 昏暗的生态学者作为字符串 R =瓦尔(InputBox(“请输入半径”、“系统提示”,“4”)) W =消息框(“是否切换中心点?”,vbYesNo + vbInformation”是否切换中心点?”) 如果W= 对于W=0到Num 生态学者= InputBox(“请输入坐标”,“系统提示”) =InStr(1，斯特里，“，”) 如果欺骗=0或欺骗=Len(斯特里) 对话框“请重新输入!” 退出子 如果 Vun(W)=Val(左(斯，1)) 乌恩(W)=Val(右(斯特里，Len(斯特里)) 下一个W Kkey = 1 对话框“切换完成! oo ^ ^” 如果 终止子 私人潜艇End_commd_Click() 结束 终止子 私人潜艇Form_Load() ρ= 0.5 R = 4 Cas_e1 = 0.15 Cas_e2 = 1.5 Num = 3 ReDim Vun(Num)单身 ReDim这些(Num)单身 Vun(0)=1:Uun(0)=1 Vun(1)=2:Uun(1)=3 Vun(2)=-4:Uun(2)=1 Vun(3)=3:Uun(3)=6 Kkey = 0 Pk = 0 终止子 私人潜艇fresh_con_Click() Cls 终止子 私人潜艇number_con_Click() Num = Abs(Val(InputBox(“请输入中心个数”,“系统提示”,“4”))) 如果Num大于0 Num=Num-1 ReDim Vun(Num)单身 ReDim这些(Num)单身 对话框“重置完成! oo ^ ^请点击”中心点和半径”输入各中心坐标” 如果 终止子 私人潜艇On_Draw_Click() 暗Ml，长，Mn，长，Lko为整数 我是单身，J是单身 昏暗的检查作为单个 调暗Key1作为布尔值，Ke