!EDIT BY WENJINGL ,qIut|C*
!DATE 2015-1-15 4+Y9":<
INPUT “PLEASE INPUT FREQUENCY”,flag1 $Zj3#l:rK
FRE = flag1 o`nJJ:Cxq-
INPUT “PLEASE INPUT MTF”,flag2 C\*0621
MTF = flag2 1~S''[
SETVECSIZE(1000) fo e)_
GRAPHICS nMOXy\&mI
FORMAT 2.2 ;oOv~YB7H
FLDX(1)=0 G%T<wKD<
FLDY(1)=MAXF() ODKS6E1{
UPDATE E0eZal],
GETMTF FRE,0,1,2,1,1 1n#{c5T
IF (VEC1(0)>=MTF) mzcxq:uZ5
COLOR 2 Y r8gKhv W
ELSE Fu65VLKh
IF (VEC1(0)<MTF)THEN COLOR 4 8O0]hz
IF (VEC1(0)<0.1)THEN COLOR 5 nbBox,zW
ENDIF RggO|s+0;
GTEXT XMAX()/2-300,YMAX()/2+1500,0,VEC1(0) Zig3WiD&
IF (VEC1(1)>=MTF) /KhY,G'Z
COLOR 2 v>5TTL~?
ELSE !X1
KOG
IF (VEC1(1)<MTF)THEN COLOR 4 Lt{&v^y
IF (VEC1(1)<0.1)THEN COLOR 5
CL5t6D9Qi
ENDIF 5G=fJAG
GTEXT XMAX()/2-300,YMAX()/2+1650,0,VEC1(1) >~uKkQ_p
FLDX(1)=0 c22L]Sxo
FLDY(1)=MAXF()*0.7 E :UJ"6
UPDATE LHs^Xo18
GETMTF FRE,0,1,2,1,1 |^O3~!JP(>
IF (VEC1(0)>=MTF) VW:Voc
COLOR 2 Se[>z(
ELSE =j8g6# 'u
IF (VEC1(0)<MTF)THEN COLOR 4 L7N>p4h]Xj
IF (VEC1(0)<0.1)THEN COLOR 5 QPW+L*2
ENDIF +Rq]_sDu
GTEXT XMAX()/2-300,YMAX()/2+1000,0,VEC1(0) 4qyPjAG
IF (VEC1(1)>=MTF) C`\yc_b9Pf
COLOR 2 2Iq*7n:v0
ELSE [L?WM>]%
IF (VEC1(1)<MTF)THEN COLOR 4 }LX.gm
IF (VEC1(1)<0.1)THEN COLOR 5 cLIeo{H
ENDIF !lI1jb"
GTEXT XMAX()/2-300,YMAX()/2+1150,0,VEC1(1) !uhh_3RH
FLDX(1)=0 KXcE@q9
FLDY(1)=MAXF()*0.5 i7`/"5I
UPDATE (~^KXJ{->
GETMTF FRE,0,1,2,1,1 $~T|v7Y%
IF (VEC1(0)>=MTF) ORt)sn&~d
COLOR 2 tA-p!#V<k1
ELSE 4iJ4g% ]
IF (VEC1(0)<MTF)THEN COLOR 4 rM20Y(|
IF (VEC1(0)<0.1)THEN COLOR 5 ?IR+OCAA
ENDIF ":L d}~>
GTEXT XMAX()/2-300,YMAX()/2+500,0,VEC1(0) d4LH`@SUZ-
IF (VEC1(1)>=MTF) yXro6u?rC
COLOR 2 \m+;^_;5GW
ELSE 4x" je
IF (VEC1(1)<MTF)THEN COLOR 4 =Ct$!uun
IF (VEC1(1)<0.1)THEN COLOR 5 u7
{R; QKw
ENDIF n;r
W
GTEXT XMAX()/2-300,YMAX()/2+650,0,VEC1(1) *4g:V;L
FLDX(1)=0 nc:K!7:
FLDY(1)=MAXF()*0.3 uD:tT~
UPDATE W<H<~wf#
GETMTF FRE,0,1,2,1,1 &FDWlrGg
IF (VEC1(0)>=MTF) UeaHH]U
COLOR 2 %Pk@`t (3
ELSE 0V'XE1h
IF (VEC1(0)<MTF)THEN COLOR 4 ?YnB:z*eV
IF (VEC1(0)<0.1)THEN COLOR 5 G V% @A
ENDIF i",oPz7
GTEXT XMAX()/2-300,YMAX()/2+150,0,VEC1(0) 8o,"G}Hjk
IF (VEC1(1)>=MTF) =Ka :i>
COLOR 2 0lpUn74F
ELSE :Q>{Y
IF (VEC1(1)<MTF)THEN COLOR 4 ptTp63+
IF (VEC1(1)<0.1)THEN COLOR 5 D=~3N
ENDIF G\
/L.T
GTEXT XMAX()/2-300,YMAX()/2+300,0,VEC1(1)
FLDX(1)=MAXF()*0.3 <s5s<q2
FLDY(1)=0 b IZi3GmRF
UPDATE 7G23D
GETMTF FRE,0,1,2,1,1 U_5\FM
IF (VEC1(0)>=MTF) FMAt6HfU
COLOR 2 sT>l ?L
ELSE uG4Q\,R
IF (VEC1(0)<MTF)THEN COLOR 4 ./}W3
IF (VEC1(0)<0.1)THEN COLOR 5 RGLi#:0_.x
ENDIF 5}`e"X
GTEXT XMAX()/2-900,YMAX()/2-500,0,VEC1(0) iIU>:)i
IF (VEC1(1)>=MTF) s6_[H
COLOR 2 >('Z9<|r:
ELSE NV9H"fI
IF (VEC1(1)<MTF) THEN COLOR 4 +<n8O~h
IF (VEC1(1)<0.1) THEN COLOR 5 f_ UwIP
ENDIF IHj9n>c)[
GTEXT XMAX()/2-900,YMAX()/2-350,0,VEC1(1) /@]@Tz@'
FLDX(1)=MAXF()*0.5 E7|P\^}m(f
FLDY(1)=0 gv9z`[erS
UPDATE YMn_9s7<
GETMTF FRE,0,1,2,1,1 \rmge4`4
IF (VEC1(0)>=MTF) TRQH{O\O
COLOR 2 CL"q"
ELSE IJofbuzw:
IF (VEC1(0)<MTF)THEN COLOR 4 G1/
IF (VEC1(0)<0.1)THEN COLOR 5 ?a` $Y>?h
ENDIF n;*W#c
GTEXT XMAX()/2-1500,YMAX()/2-500,0,VEC1(0) j'|`:^
Sy
IF (VEC1(1)>=MTF) O:W4W=K
COLOR 2 ^I6GH?19>e
ELSE nh%Q";
IF (VEC1(1)<MTF) THEN COLOR 4 U,GY']J
IF (VEC1(1)<0.1) THEN COLOR 5 |&H(skF_
ENDIF r#/Bz5Jb*
GTEXT XMAX()/2-1500,YMAX()/2-350,0,VEC1(1) of?0 y-LT%
FLDX(1)=MAXF()*0.7 *]* D^'
FLDY(1)=0 VseeU;q
UPDATE !!UQ,yU
GETMTF FRE,0,1,2,1,1 C/A~r
IF (VEC1(0)>=MTF) &!O~ f
COLOR 2 oH kjMqju
ELSE %B-m- =gz
IF (VEC1(0)<MTF)THEN COLOR 4 w1
tg7^(@
IF (VEC1(0)<0.1)THEN COLOR 5 pn4~?Aua0/
ENDIF ?\![W5uuXG
GTEXT XMAX()/2-2100,YMAX()/2-500,0,VEC1(0) ]LZ,>v
IF (VEC1(1)>=MTF) XLsOn(U\&
COLOR 2 o|7
h
ELSE ob"yz }
IF (VEC1(1)<MTF) THEN COLOR 4 %R LGO&
IF (VEC1(1)<0.1) THEN COLOR 5 -O?&+xIK&
ENDIF dE|luN~
GTEXT XMAX()/2-2100,YMAX()/2-350,0,VEC1(1) {A MoE+U
FLDX(1)=MAXF() ]eIV'lP,j/
FLDY(1)=0 t'L#8MJ
UPDATE (Y$48@x
GETMTF FRE,0,1,2,1,1 q.NvwJ
IF (VEC1(0)>=MTF) ouR(l;
COLOR 2 rty&\u@}
ELSE odC}RdN
IF (VEC1(0)<MTF)THEN COLOR 4 P0XVR_TJf
IF (VEC1(0)<0.1)THEN COLOR 5 #[ch?K
ENDIF UqZ#mK i
GTEXT XMAX()/2-2700,YMAX()/2-500,0,VEC1(0) !0
-[}vvU
IF (VEC1(1)>=MTF) j\.\ePmk]
COLOR 2 ;OfZEy>7
ELSE YR}By;Bq
IF (VEC1(1)<MTF) THEN COLOR 4 5RhP^:i@C
IF (VEC1(1)<0.1) THEN COLOR 5 < .B^\X$
ENDIF YUsMq3^&
GTEXT XMAX()/2-2700,YMAX()/2-350,0,VEC1(1) 7T}r]C.
FLDX(1)=-MAXF()*0.3 ,?zOJ,wl
FLDY(1)=0 ZMI
vzQYI
UPDATE <<.%Gk
GETMTF FRE,0,1,2,1,1 ~7Jj\@68
IF (VEC1(0)>=MTF) [*AWCV
COLOR 2 g?d*cwtU
ELSE ;(,1pi7|
IF (VEC1(0)<MTF)THEN COLOR 4 #Do#e
{=+
IF (VEC1(0)<0.1)THEN COLOR 5 *oU-V#
ENDIF p$*;>YKO
GTEXT XMAX()/2+300,YMAX()/2-500,0,VEC1(0) UAq%Y8KA
IF (VEC1(1)>=MTF) Y;6%pm $
COLOR 2 #Bgq]6G2
ELSE hpOUz%
IF (VEC1(1)<MTF) THEN COLOR 4 hCKx%&[^7
IF (VEC1(1)<0.1) THEN COLOR 5 1xE*quhrh
ENDIF K]Onb{QY
GTEXT XMAX()/2+300,YMAX()/2-350,0,VEC1(1) A T'P=)F@
FLDX(1)=-MAXF()*0.5 DR w;.it2
FLDY(1)=0 WbP*kV{
UPDATE s55t>t,g6
GETMTF FRE,0,1,2,1,1 '{(/C?T
IF (VEC1(0)>=MTF) {IpIQ-@l
COLOR 2 l`A4)8Y@
ELSE a4L0Itrp
IF (VEC1(0)<MTF)THEN COLOR 4 1-bQ
( -
IF (VEC1(0)<0.1)THEN COLOR 5 X0"f>.Lg
ENDIF =YRN"
GTEXT XMAX()/2+900,YMAX()/2-500,0,VEC1(0) Nu%:7
IF (VEC1(1)>=MTF) `Ufv,_n
COLOR 2 C5^eD^[c
ELSE }th^l*g
IF (VEC1(1)<MTF) THEN COLOR 4 r0 6M.r
IF (VEC1(1)<0.1) THEN COLOR 5 }lzN)e
ENDIF 1KtPq,
GTEXT XMAX()/2+900,YMAX()/2-350,0,VEC1(1) p~xrl jP$
FLDX(1)=-MAXF()*0.7 w(xRL#%
FLDY(1)=0 tSvklI
UPDATE )QvuoaJQ
GETMTF FRE,0,1,2,1,1 IAJYD/Y&?
IF (VEC1(0)>=MTF) 7berkU0P
COLOR 2 {UR&Y
ELSE -=A W. Zo
IF (VEC1(0)<MTF)THEN COLOR 4 ttK`*Ng
IF (VEC1(0)<0.1)THEN COLOR 5 66+y@l1
ENDIF >`@yh-'r
GTEXT XMAX()/2+1500,YMAX()/2-500,0,VEC1(0) 5@{+V!o,
IF (VEC1(1)>=MTF) l6S6Y
COLOR 2 n_Ka+Y<
ELSE .V\M/q\Tv
IF (VEC1(1)<MTF) THEN COLOR 4 N3`W%ws`~
IF (VEC1(1)<0.1) THEN COLOR 5 U8b1
sz
ENDIF j_r7oARL
GTEXT XMAX()/2+1500,YMAX()/2-350,0,VEC1(1) v 8`)h<:W?
FLDX(1)=-MAXF() "n3i(sZ
FLDY(1)=0 ;I+"MY7D
UPDATE Sp]i~#q_'
GETMTF FRE,0,1,2,1,1 gAY%VFBP0
IF (VEC1(0)>=MTF) 426)H_wx
COLOR 2 /@.c
59r
ELSE Yv`8{_8L
IF (VEC1(0)<MTF)THEN COLOR 4 +H K)A%QI
IF (VEC1(0)<0.1)THEN COLOR 5 BI\+NGrB
ENDIF L#`9# Q
GTEXT XMAX()/2+2100,YMAX()/2-500,0,VEC1(0) BU="BB/[
IF (VEC1(1)>=MTF) =!#iC?I
COLOR 2 VhAZncw
ELSE Z-{!Z;T)z
IF (VEC1(1)<MTF) THEN COLOR 4 g1uqsqYt
IF (VEC1(1)<0.1) THEN COLOR 5 ] _/d
ENDIF B9Dh^9?L
GTEXT XMAX()/2+2100,YMAX()/2-350,0,VEC1(1) / h6(!-"
FLDX(1)=0 |m%M$^sZ}
FLDY(1)=-MAXF()*0.3 #c0
dZ
UPDATE xmDX1sL**
GETMTF FRE,0,1,2,1,1 ItTIU
IF (VEC1(0)>=MTF) a9E!2o+,
COLOR 2 )6?.; B
ELSE [LonY49
IF (VEC1(0)<MTF)THEN COLOR 4 3"gifE
IF (VEC1(0)<0.1)THEN COLOR 5 Or9@ X=C
ENDIF T$]2U>=<J
GTEXT XMAX()/2-300,YMAX()/2-1150,0,VEC1(0) OU(z};Is6Z
IF (VEC1(1)>=MTF) @Y>3 -,o,S
COLOR 2 c4LBlLv4
ELSE z#!xqIg0
IF (VEC1(1)<MTF) THEN COLOR 4 DJE/u qE
IF (VEC1(1)<0.1) THEN COLOR 5 9xg_M=72
ENDIF lO9{S=N
GTEXT XMAX()/2-300,YMAX()/2-1000,0,VEC1(1) ~zz |U!TG
FLDX(1)=0 Ar sMqb
FLDY(1)=-MAXF()*0.5 Yi[dS`,d
UPDATE l\^q7cXG
GETMTF FRE,0,1,2,1,1 Q;P ~'
IF (VEC1(0)>=MTF) O#7ldF(
COLOR 2 [&*$!M
ELSE #{0DpSzE5
IF (VEC1(0)<MTF)THEN COLOR 4 (Df<QC`0v
IF (VEC1(0)<0.1)THEN COLOR 5 bE>3D#V<
ENDIF L\og`L)5\
GTEXT XMAX()/2-300,YMAX()/2-1500,0,VEC1(0) !9"R4~4
IF (VEC1(1)>=MTF) FGx_qBG4|
COLOR 2 %:o@IRTRU
ELSE ~,e!t.339
IF (VEC1(1)<MTF) THEN COLOR 4 >B~jPU
IF (VEC1(1)<0.1) THEN COLOR 5 >V(2Ke Y
ENDIF MatC2-aV1
GTEXT XMAX()/2-300,YMAX()/2-1350,0,VEC1(1) Y%:p(f<
FLDX(1)=0 tL+8nTL
FLDY(1)=-MAXF()*0.7 l7{hq}@;cC
UPDATE ?<frU ,{
GETMTF FRE,0,1,2,1,1 z K8#gif@
IF (VEC1(0)>=MTF) @\l>
<R9V
COLOR 2 5 J|;RtcR
ELSE dr6 dK
IF (VEC1(0)<MTF)THEN COLOR 4 F'CUkVC0~P
IF (VEC1(0)<0.1)THEN COLOR 5 |V9%@
Y?
ENDIF 8VcAtrx_
GTEXT XMAX()/2-300,YMAX()/2-2000,0,VEC1(0) >KY\Bx
IF (VEC1(1)>=MTF) wI}'wALhA
COLOR 2 [bPE?_a,
ELSE N/?MsrZw
IF (VEC1(1)<MTF) THEN COLOR 4 ,f?#i%EF&
IF (VEC1(1)<0.1) THEN COLOR 5 0K3FH&.%
ENDIF $fKwJFr
GTEXT XMAX()/2-300,YMAX()/2-1850,0,VEC1(1) !v;r3*#Nky
FLDX(1)=0 2K*-uT#$~
FLDY(1)=-MAXF() J|FyY)_
UPDATE cHsJQU*K6
GETMTF FRE,0,1,2,1,1 Z `\7B e
IF (VEC1(0)>=MTF) {t/!a0\HS
COLOR 2 u
F*cS&'Z
ELSE ^YIOS]d>8#
IF (VEC1(0)<MTF)THEN COLOR 4 $PS5xD~@
IF (VEC1(0)<0.1)THEN COLOR 5 @I"Aet'XV
ENDIF ')1sw%[2
GTEXT XMAX()/2-300,YMAX()/2-2500,0,VEC1(0) )vU{JY;
IF (VEC1(1)>=MTF) pO+1?c43
COLOR 2 c?R.SBr,'
ELSE 8e\v5K9
IF (VEC1(1)<MTF) THEN COLOR 4 pn $50c
IF (VEC1(1)<0.1) THEN COLOR 5 1M;)$m:
ENDIF VvF&E>fC
GTEXT XMAX()/2-300,YMAX()/2-2350,0,VEC1(1) 93WYZNpX
FLDX(1)=-MAXF()*0.3/1.414 dY-a,ch"8p
FLDY(1)=MAXF()*0.3/1.414 k(qQvn
UPDATE 2mlE;.}8
GETMTF FRE,0,1,2,1,1 pWx3l5)R
IF (VEC1(0)>=MTF) fBLd5
COLOR 2 8&UuwZ6i-
ELSE &vF "I'V
IF (VEC1(0)<MTF)THEN COLOR 4 I@S<D"af
IF (VEC1(0)<0.1)THEN COLOR 5 F>b6fUtR
ENDIF -KNJCcBJ
GTEXT XMAX()/2-300+600/1.414,YMAX()/2-500+500/1.414,0,VEC1(0) E7h}0DX
IF (VEC1(1)>=MTF) R$@.{d&:w
COLOR 2 ,?d%&3z<a
ELSE &V:dcJ^Q
IF (VEC1(1)<MTF) THEN COLOR 4 ;:e,C@Fm
IF (VEC1(1)<0.1) THEN COLOR 5 R]Yhuo9,&n
ENDIF nDOIE)#
GTEXT XMAX()/2-300+600/1.414,YMAX()/2-350+500/1.414,0,VEC1(1) Y@4vQm+
FLDX(1)=-MAXF()*0.5/1.414 )ED[cYGx
FLDY(1)=MAXF()*0.5/1.414 hrL<jcv|
UPDATE ;p_X7N
GETMTF FRE,0,1,2,1,1 ^]DWrmy
IF (VEC1(0)>=MTF) OX`n`+^D
COLOR 2 sR9F:
ELSE 6'%]6"&M4
IF (VEC1(0)<MTF)THEN COLOR 4 ".0W8=
IF (VEC1(0)<0.1)THEN COLOR 5 h^0mjdSp,
ENDIF I>5@s;
GTEXT XMAX()/2-300+1200/1.414,YMAX()/2-500+1000/1.414,0,VEC1(0) \fz
j fZ1n
IF (VEC1(1)>=MTF) lX4p'R-h
COLOR 2 `SwnKg
ELSE <di_2hN
IF (VEC1(1)<MTF) THEN COLOR 4 'AAY!{>
IF (VEC1(1)<0.1) THEN COLOR 5 op-#Ig$#
ENDIF o/zCXZnw#
GTEXT XMAX()/2-300+1200/1.414,YMAX()/2-350+1000/1.414,0,VEC1(1) 0hkuBQb\
FLDX(1)=-MAXF()*0.7/1.414 }gW}Vr <
FLDY(1)=MAXF()*0.7/1.414 JB(;[# '~
UPDATE 'JMa2/7CG
GETMTF FRE,0,1,2,1,1 dc>y7$2
IF (VEC1(0)>=MTF) uJOW%|ZN`
COLOR 2 eI}VH BAz
ELSE h0
Sf=[>z
IF (VEC1(0)<MTF)THEN COLOR 4 *e6|SZ &3
IF (VEC1(0)<0.1)THEN COLOR 5 vOK;l0%
ENDIF =eqI]rVj^
GTEXT XMAX()/2-300+1800/1.414,YMAX()/2-500+1500/1.414,0,VEC1(0) }SV3PdE
IF (VEC1(1)>=MTF) `"H?nf0
COLOR 2 ]1&9~TL
ELSE S0+zq<
IF (VEC1(1)<MTF) THEN COLOR 4 `0^i
#
IF (VEC1(1)<0.1) THEN COLOR 5 Vi#im`@
ENDIF YP<]f>SBt
GTEXT XMAX()/2-300+1800/1.414,YMAX()/2-350+1500/1.414,0,VEC1(1) y2R=%EFh6
FLDX(1)=-MAXF()/1.414 L)}V[j#
FLDY(1)=MAXF()/1.414
/Xz4q!Ul
UPDATE OD]J@m
GETMTF FRE,0,1,2,1,1 xiF%\#N
IF (VEC1(0)>=MTF) T]|O/
COLOR 2 I{zE73
ELSE ^eW.hNg
IF (VEC1(0)<MTF)THEN COLOR 4 \vsrBM
IF (VEC1(0)<0.1)THEN COLOR 5 X^Y9T`mQ}
ENDIF f4S@lyYF
GTEXT XMAX()/2-300+2400/1.414,YMAX()/2-500+2000/1.414,0,VEC1(0) {_Qxe1^g
IF (VEC1(1)>=MTF) hPxI&
:N
COLOR 2 *$(CiyF!
ELSE pU ]{Z(
IF (VEC1(1)<MTF) THEN COLOR 4 H040-Q;S'
IF (VEC1(1)<0.1) THEN COLOR 5 <S$21NtM87
ENDIF q=Yerp3~
GTEXT XMAX()/2-300+2400/1.414,YMAX()/2-350+2000/1.414,0,VEC1(1) a{*'pY(R0$
FLDX(1)=MAXF()*0.3/1.414
n ;5?^Un%
FLDY(1)=MAXF()*0.3/1.414 RuNH
(>Eb
UPDATE r$FM8$cJ
GETMTF FRE,0,1,2,1,1 Q)BoWd
IF (VEC1(0)>=MTF) _-\s[p5
COLOR 2 #L.}CzAz
ELSE LDEt.,6i
IF (VEC1(0)<MTF)THEN COLOR 4 q"D
L6 >j
IF (VEC1(0)<0.1)THEN COLOR 5 iwJ-<v_:h
ENDIF P$/A! r
GTEXT XMAX()/2-300-600/1.414,YMAX()/2-500+500/1.414,0,VEC1(0) yl<$yd0Zdu
IF (VEC1(1)>=MTF) W<91m*
COLOR 2 &H1D!N
ELSE d:pm|C|F
IF (VEC1(1)<MTF) THEN COLOR 4 y] ]Vp~R:[
IF (VEC1(1)<0.1) THEN COLOR 5 \a2oM$PX
ENDIF j!MA]0lTM
GTEXT XMAX()/2-300-600/1.414,YMAX()/2-350+500/1.414,0,VEC1(1) !7`=rT&