《自动测幅》（源码、主图、通达信大智慧）
昨天《领带低点涨停》指标发出后，下载的坛友不少，有坛友索取用于测幅的主图，源码送给大家，对您也许有帮助。
点击下载通达信《自动测幅》（源码主图大智慧通用）
大智慧自动测幅主图源码
input:KG1(20,1,50),F1(10,1,20);
a1:=IF((DATATYPE = 3),1,(IF((DATATYPE = 5),5,(IF((DATATYPE = 7),10,KG1)))));
a2:=IF((DATATYPE = 5),1,(IF((DATATYPE = 6),3,(IF((DATATYPE = 7),5,F1)))));
a3:=ZIG(4,a1);
a4:=PEAK(4,a1,1);
a5:=TROUGH(4,a1,1);
CC:IF((a3 (REF(a3,1))),a4,a5),linethick0;
a6:=CROSS((a4 - 0.02),a3);
a7:=CROSS(a3,(a5 + 0.02));
a8:=a2 / 100;
a9:=IF((a3 (REF(a3,1))),a8,REVERSE(a8));
a10:=IF((a3 (REF(a3,1))),a6,a7);
H1:REF((CC * (1 - (a9 * 1))),BARSLAST(a10)),DOTLINE,linethick0;
H2:REF((CC * (1 - (a9 * 2))),BARSLAST(a10)),DOTLINE,linethick0;
H3:REF((CC * (1 - (a9 * 3))),BARSLAST(a10)),DOTLINE,linethick0;
H4:REF((CC * (1 - (a9 * 4))),BARSLAST(a10)),DOTLINE,linethick0;
H5:REF((CC * (1 - (a9 * 5))),BARSLAST(a10)),DOTLINE,linethick0;
H6:REF((CC * (1 - (a9 * 6))),BARSLAST(a10)),DOTLINE,linethick0;
H7:REF((CC * (1 - (a9 * 7))),BARSLAST(a10)),DOTLINE,linethick0;
H8:REF((CC * (1 - (a9 * 8))),BARSLAST(a10)),DOTLINE,linethick0;
H9:REF((CC * (1 - (a9 * 9))),BARSLAST(a10)),DOTLINE,linethick0;
H10:REF((CC * (1 - (a9 * 10))),BARSLAST(a10)),DOTLINE,linethick0;
H11:REF((CC * (1 - (a9 * 11))),BARSLAST(a10)),DOTLINE,linethick0;
H12:REF((CC * (1 - (a9 * 12))),BARSLAST(a10)),DOTLINE,linethick0;
H13:REF((CC * (1 - (a9 * 13))),BARSLAST(a10)),DOTLINE,linethick0;
H14:REF((CC * (1 - (a9 * 14))),BARSLAST(a10)),DOTLINE,linethick0;
H15:REF((CC * (1 - (a9 * 15))),BARSLAST(a10)),DOTLINE,linethick0;
a11:=BARSLAST((DISPSTATUS = 1)) + 1;
a12:=HHVALL((HHV(HIGH,a11)));
a13:=LLVALL((LLV(LOW,a11)));
a14:=IF((DATATYPE = 2),1.00005,(IF((DATATYPE 6),1.0005,1.002)));
STICKLINE(((CC = a13) AND (CC = a12)),CC,(CC * a14),10,-1000),colorRed;
STICKLINE(((CC = a13) AND (CC = a12)),H1,H1,5,0),colorGray;
STICKLINE(((H1 a13) AND (H1 a12)),H2,H2,5,0),colorGray;
STICKLINE(((H2 a13) AND (H2 a12)),H3,H3,5,0),colorGray;
STICKLINE(((H3 a13) AND (H3 a12)),H4,H4,5,0),colorGray;
STICKLINE(((H4 a13) AND (H4 a12)),H5,H5,5,0),colorGray;
STICKLINE(((H5 a13) AND (H5 a12)),H6,H6,5,0),colorGray;
STICKLINE(((H6 a13) AND (H6 a12)),H7,H7,5,0),colorGray;
STICKLINE(((H7 a13) AND (H7 a12)),H8,H8,5,0),colorGray;
STICKLINE(((H8 a13) AND (H8 a12)),H9,H9,5,0),colorGray;
STICKLINE(((H9 a13) AND (H9 a12)),H10,H10,5,0),colorGray;
STICKLINE(((H10 a13) AND (H10 a12)),H11,H11,5,0),colorGray;
STICKLINE(((H11 a13) AND (H11 a12)),H12,H12,5,0),colorGray;
STICKLINE(((H12 a13) AND (H12 a12)),H13,H13,5,0),colorGray;
STICKLINE(((H13 a13) AND (H13 a12)),H14,H14,5,0),colorGray;
STICKLINE(((H14 a13) AND (H14 a12)),H15,H15,5,0),colorGray;
DRAWTEXT(((a10 AND (CC = a13)) AND (CC = a12)),H1, +a2 * 1+ % ),ColorC0C0C0;
DRAWTEXT(((a10 AND (H1 a13)) AND (H1 a12)),H2, +a2 * 2+ % ),ColorC0C0C0;
DRAWTEXT(((a10 AND (H2 a13)) AND (H2 a12)),H3, +a2 * 3+ % ),ColorC0C0C0;
DRAWTEXT(((a10 AND (H3 a13)) AND (H3 a12)),H4, +a2 * 4+ % ),ColorC0C0C0;
DRAWTEXT(((a10 AND (H4 a13)) AND (H4 a12)),H5, +a2 * 5+ % ),ColorC0C0C0;
DRAWTEXT(((a10 AND (H5 a13)) AND (H5 a12)),H6, +a2 * 6+ % ),ColorC0C0C0;
DRAWTEXT(((a10 AND (H6 a13)) AND (H6 a12)),H7, +a2 * 7+ % ),ColorC0C0C0;
DRAWTEXT(((a10 AND (H7 a13)) AND (H7 a12)),H8, +a2 * 8+ % ),ColorC0C0C0;
DRAWTEXT(((a10 AND (H8 a13)) AND (H8 a12)),H9, +a2 * 9+ % ),ColorC0C0C0;
DRAWTEXT(((a10 AND (H9 a13)) AND (H9 a12)),H10, +a2 * 10+ % ),ColorC0C0C0;
DRAWTEXT(((a10 AND (H10 a13)) AND (H10 a12)),H11, +a2 * 11+ % ),ColorC0C0C0;
DRAWTEXT(((a10 AND (H11 a13)) AND (H11 a12)),H12, +a2 * 12+ % ),ColorC0C0C0;
DRAWTEXT(((a10 AND (H12 a13)) AND (H12 a12)),H13, +a2 * 13+ % ),ColorC0C0C0;
DRAWTEXT(((a10 AND (H13 a13)) AND (H13 a12)),H14, +a2 * 14+ % ),ColorC0C0C0;
[1]
