CurrentNX = TOX
                 CurrentNY = TOY
               Next TOX
            Else
               Call PXYTOGraphic(PointX(2), PointY(2), 1, 2, CircleTime)
               Call PXYTOGraphic(PointX(3), PointY(3), 2, 3, CircleTime)
               Call PXYTOGraphic(PointX(0), PointY(0), 3, 4, CircleTime)
               Call PXYTOGraphic(X, Y, 4, 1, CircleTime)
            End If
         ElseIf SPXY = 2 Then
            If Y - CurrentNY > 0 Then
               For TOX = StartX To X Step -1
                 TOY = -(CurrentNR ^ 2 - (TOX - CurrentNI) ^ 2) ^ 0.5 + CurrentNJ
                   Call DrawLine(CurrentNX, CurrentNY, TOX, TOY)
                 CurrentNX = TOX
                 CurrentNY = TOY
               Next TOX
            Else
              Call PXYTOGraphic(PointX(3), PointY(3), 2, 3, CircleTime)
              Call PXYTOGraphic(PointX(0), PointY(0), 3, 4, CircleTime)
              Call PXYTOGraphic(PointX(1), PointY(1), 4, 1, CircleTime)
              Call PXYTOGraphic(X, Y, 1, 2, CircleTime)
            End If
         ElseIf SPXY = 3 Then
            If Y - CurrentNY > 0 Then
               For TOX = StartX To X
                 TOY = (CurrentNR ^ 2 - (TOX - CurrentNI) ^ 2) ^ 0.5 + CurrentNJ
                   Call DrawLine(CurrentNX, CurrentNY, TOX, TOY)
                 CurrentNX = TOX
                 CurrentNY = TOY
               Next TOX
            Else
               Call PXYTOGraphic(PointX(0), PointY(0), 3, 4, CircleTime)
               Call PXYTOGraphic(PointX(1), PointY(1), 4, 1, CircleTime)
上一篇:企业物流系统规划及合理化研究
下一篇:用于生物柴油制备的微波炉搅拌装置设计

含集中质量的刚柔耦合机械臂系统动力学仿真

机械加工仿真技术研究【1839字】

数控技术发展趋势智能化数控系统【1672字】

3DVia Composer动画模拟工程机械的研究【2387字】

12000HP油服船海水冷却系统监控与仿真开发

ADAMS直列6缸柴油机虚拟样...

Matlab12000HP油服船电站系统监测与仿真开发

承德市事业单位档案管理...

志愿者活动的调查问卷表

AT89C52单片机的超声波测距...

中国学术生态细节考察《...

公寓空调设计任务书

神经外科重症监护病房患...

C#学校科研管理系统的设计

国内外图像分割技术研究现状

医院财务风险因素分析及管理措施【2367字】

10万元能开儿童乐园吗,我...