M1:=
MA
(
c
,
5
);M2:=
MA
(
c
,
10
);
M3:=
MA
(
c
,
20
);
M4:=
MA
(
c
,
30
);
M1SJ:=M1-
REF
(M1,
1
);
M2SJ:=M2-
REF
(M2,
1
);
M3SJ:=M3-
REF
(M3,
1
);
M4SJ:=M4-
REF
(M4,
1
);
SS:=
IF
(M1SJ>
0
,
11
,
0
)+
IF
(M2SJ>
0
,
22
,
0
)+
IF
(M3SJ>
0
,
30
,
0
)+
IF
(M4SJ>
0
,
37
,
0
);
SS/
100
,
POINTDOT
,
COLORWHITE
,
PRECISION2
;
if
(SS=
100
or
SS=
63
,SS,
0
)+
if
(SS=
0
or
SS=
37
,SS-
100
,
0
),
LINETHICK0
,
PRECISION0
;
STICKLINE
(
1
,
if
(SS=
100
or
SS=
63
,SS,
0
)+
if
(SS=
0
or
SS=
37
,SS-
100
,
0
) ,
0
,
15
,
0
);
if
(SS=
89
or
SS=
78
or
SS=
70
,SS,
0
),
STICK
,
colormagenta
,
PRECISION0
,
LINETHICK0
;
STICKLINE
(
1
,
if
(SS=
89
or
SS=
78
or
SS=
70
,SS,
0
),
0
,
15
,
0
,
colormagenta
);
if
(SS=
11
or
SS=
22
or
SS=
30
,SS-
100
,
0
),
STICK
,
colorgreen
,
PRECISION0
,
LINETHICK0
;
STICKLINE
(
1
,
if
(SS=
11
or
SS=
22
or
SS=
30
,SS-
100
,
0
),
0
,
15
,
0
);
if
(SS=
67
,
70
,
0
),
colorwhite
,
PRECISION0
,
LINETHICK0
;
STICKLINE
(
1
,
if
(SS=
67
,
70
,
0
),
0
,
15
,
0
);
if
(SS=
59
,
45
,
0
),
colorwhite
,
PRECISION0
,
LINETHICK0
;
STICKLINE
(
1
,
if
(SS=
59
,
45
,
0
),
0
,
15
,
0
);
if
(SS=
52
,
20
,
0
),
colorwhite
,
PRECISION0
,
LINETHICK0
;
STICKLINE
(
1
,
if
(SS=
52
,
20
,
0
),
0
,
15
,
0
);
if
(SS=
33
,-
70
,
0
),
colorwhite
,
PRECISION0
,
LINETHICK0
;
STICKLINE
(
1
,
if
(SS=
33
,-
70
,
0
),
0
,
15
,
0
);
if
(SS=
41
,-
45
,
0
),
colorwhite
,
PRECISION0
,
LINETHICK0
;
STICKLINE
(
1
,
if
(SS=
41
,-
45
,
0
),
0
,
15
,
0
);
if
(SS=
48
,-
20
,
0
),
colorwhite
,
PRECISION0
,
LINETHICK0
;
STICKLINE
(
1
,
if
(SS=
48
,-
20
,
0
),
0
,
15
,
0
);
100
,
POINTDOT
,
colorgreen
,
PRECISION0
;
-
100
,
POINTDOT
,
colorgreen
,
PRECISION0
;