绘图程序

开发平台：

Visual Basic

Module1.bas：源码内容

							Attribute VB_Name = "Module1"
Public r3 As Single, r2 As Single, r1 As Single, k As Integer, L0 As Single, R5 As Single, s7 As Single, H7 As Single
Public xp As Single, yp As Single, x2 As Single, y2 As Single, x5 As Single, y5 As Single, x6 As Single, y6 As Single
Public θ As Single, δ As Single, φ As Single, ω1 As Single, ω2 As Single, WL5 As Single, α As Single, D1x As Single, D1y As Single
Public D2x As Single, D2y As Single, D3x As Single, D3y As Single, D4x As Single, D4y As Single, D5x As Single, D5y As Single
Public αL5 As Single, jL5 As Single, j1L5 As Single, j2L5 As Single, Δφ As Single, β As Single, s67 As Single, VL7 As Single
Public VL67 As Single, q1L7 As Single, qL7 As Single, q2L7 As Single, αL7 As Single, αL67 As Single, qL67 As Single, q2L67 As Single
Public V7 As Single, α7 As Double, q7 As Single, q17 As Single, q27 As Double, b As Single, TI As Single, Q As Single, q1L67
Public s1w As Single, s1h As Single, s3w As Single, s3h As Single, s6w As Single, s6h As Single, s7w As Single, s7h As Single
Public cir1 As Single, cir2 As Single, Dig As Single, Dig1 As Single, Digc As Single, Digs As Single, DigT As Single
Public Dg1 As Single, Dg2 As Single, Dg3 As Single, Dg4 As Single, Dg5 As Single, Dg6 As Single
Public G1 As Single, G2 As Single, G3 As Single, G4 As Single, G5 As Single, G6 As Single, G7 As Single, G0 As Single, G8 As Single
 
 Public zx As Integer, zy As Integer
 Public hqx As Single
 Public i As Integer, kk As Single, yy As Single, oo As Integer
 Public cds As Single, zdf As Single
 Public ss As Single, sc As Single

						