
Sub BuildUserCoordinate()
Dim RX: Scale
RX = MinX + ScaleWidth / ScaleHeight * (MaxY - MinY)
Scale (MinX - (RX - MinX) * 0.02, MaxY + (MaxY - MinY) * 0.05) _
-(RX + (RX - MinX) * 0.08, MinY - (MaxY - MinY) * 0.05)
End Sub
Sub GetdRdS()
Dim MaxL, M1, M2, K1, K2, I, J
For I = 1 To AllE
For J = 1 To 4
M1 = El(J, I):
If J < 4 Then M2 = El(J + 1, I)
If J = 4 Then M2 = El(1, I)
If (Co(1, M1) - Co(1, M2)) ^ 2 + (Co(1, M1) - Co(1, M2)) ^ 2 > MaxL Then
MaxL = (Co(1, M1) - Co(1, M2)) ^ 2 + (Co(2, M1) - Co(2, M2)) ^ 2
K1 = M1: K2 = M2
End If
Next J
Next I
M1 = Abs(Co(1, K1) - Co(1, K2))
M2 = Abs(Co(2, K1) - Co(2, K2))
M1 = ScaleX(M1, vbUser, vbPixels)
M2 = ScaleY(M2, vbUser, vbPixels)
MaxL = Sqr(M1 ^ 2 + M2 ^ 2)
dR = 1.9 / MaxL: dS = dR
End Sub
Sub ZoneTempColor()
Dim I: AllZ = 8
For I = 1 To AllZ + 1
T(I) = MinT + (I - 1) * (MaxT - MinT) / AllZ
Next I
C(1) = RGB(0, 220, 0): C(2) = RGB(0, 180, 0)
C(3) = RGB(0, 200, 255): C(4) = RGB(0, 100, 255)
C(5) = RGB(0, 0, 250): C(6) = RGB(255, 255, 0)
C(7) = RGB(255, 150, 0): C(8) = RGB(255, 0, 0)
End Sub
Sub PlotColorContour()
Dim EX(1 To 8), EY(1 To 8), ET(1 To 8), I, J
Cls
Screen.MousePointer = 11
For I = 1 To AllE