立体渔网可作为主副图指标使用 源码公开

这是通过飞狐源码改的通达信源码--喜欢就下，指标说明省略。
{立体渔网主副图指标源码}
CC:=(3*C+H+L+O)/6;
 MA6:=EMA(MA(IF(MA(CC,3)>MA(CC,4),MA((CC+3*H)/4,3),REF(MA((CC+3*L)/4,3),1)),3),5);
 REF(MA6,1), COLOR8A8A8A;
 REF(MA6,2), COLOR898989;
 REF(MA6,3), COLOR888888;
 REF(MA6,4), COLOR878787;
 REF(MA6,5), COLOR868686;
 REF(MA6,6), COLOR858585;
 REF(MA6,7), COLOR848484;
 REF(MA6,8), COLOR838383;
 REF(MA6,9), COLOR828282;
 REF(MA6,10), COLOR818181;
 REF(MA6,11), COLOR808080;
 REF(MA6,12), COLOR7A7A7A;
 REF(MA6,13), COLOR797979;
 REF(MA6,14), COLOR787878;
 REF(MA6,15), COLOR777777;
 REF(MA6,16), COLOR767676;
 REF(MA6,17), COLOR757575;
 REF(MA6,18), COLOR747474;
 REF(MA6,19), COLOR737373;
 REF(MA6,20), COLOR727272;
 REF(MA6,21), COLOR717171;
 REF(MA6,22), COLOR707070;
 REF(MA6,23), COLOR6A6A6A;
 REF(MA6,24), COLOR696969;
 REF(MA6,25), COLOR686868;
 REF(MA6,26), COLOR676767;
 REF(MA6,27), COLOR666666;
 REF(MA6,28), COLOR656565;
 REF(MA6,29), COLOR646464;
 REF(MA6,30), COLOR636363;
 REF(MA6,31), COLOR626262;
 REF(MA6,32), COLOR616161;
 REF(MA6,33), COLOR606060;
 A0:=FROMOPEN;
 P:=DATETODAY(FROMOPEN);
 A:=IF(P=1,A0,IF(P=2,A0/5,IF(P=3,A0/15,IF(P=4,A0/30,IF(P=5,A0/60,IF(P=0,0,1))))));
均价线:=IF(CAPITAL>0,SUM(AMOUNT,A)/100/SUM(VOL,A),SUM(CLOSE*VOL,A)/SUM(VOL,A));
额势:=IF(CAPITAL>0,均价线,1);
取势:=IF(SMA(额势,3,2)>SMA(额势,5,3),(O+2*HHV(H,2))/3,(O+2*LLV(L,2))/3);
短1:=(EMA(取势,1)+MA(取势,3)+MA(取势,5))/3;
短2:=(EMA(取势,3)+MA(取势,6)+MA(取势,9))/3;
趋势线1:=SMA(FORCAST(CLOSE,13),5,1),COLORCYAN,LINETHICK1;
趋势线2:(EMA(SMA(FORCAST(取势,12),4,1),4)+趋势线1)/2,LINETHICK1;
趋势线3:(EMA(SMA(FORCAST(取势,12),20,1),4)+趋势线1)/2,LINETHICK1;
浅蓝:PLOYLINE(趋势线1>REF(趋势线1,1),趋势线2),COLORFFAA00,LINETHICK2;
橘黄:PLOYLINE(趋势线1<REF(趋势线1,1),趋势线2),COLOR0088FF,LINETHICK2;
 MA6,COLOR66FFFF,LINETHICK6;
 PLOYLINE(1,MA6),COLOR878787;
 A01:="RSI.RSI1"(6,12,24);
 ZF:=(C-REF(C,1))/REF(C,1)*100;
选股:(CROSS(A01,50) AND ZF>3)*10,LINETHICK;
 DRAWICON(CROSS(A01,50) AND ZF>3,L*0.98,1);
 MA20:=MA(C,20),COLORWHITE,LINETHICK2;
乖离线:=((C-REF(MA20,1))/20+MA20)*1.20;
卖点:=CROSS(C,乖离线);
X6:=REF(CLOSE,1);
 X7:=((SMA(MAX((CLOSE - X6),0),7,1) / SMA(ABS((CLOSE - X6)),7,1)) * 100);
 X8:=CROSS(79,X7) ;
 X9:=FILTER(X8,4) ;
出货:=X9;
条件A:=卖点 AND C<O;
条件B:出货 AND C<O,LINETHICK;
显示A_B:=(REF(BARSLAST(条件A OR 条件B)>=4,1) AND 条件B ) OR 条件A;
限制性出现出货:DRAWTEXT((REF(BARSLAST(条件A OR 条件B)>=4,1) AND 条件B ),(HIGH * 1.02),'出货'),COLOR9000F5;
允许出现卖点:DRAWTEXT(条件A ,H+0.13,'卖点'),COLOR00FF00;
 DRAWTEXT(显示A_B,(H+L)/2,'★'),COLORLIGREEN;
 ★:DRAWTEXT(C>MA(C,20) AND (MA(C,5)>MA(C,10) AND MA(C,5)<MA(C,20)) OR (C>MA(C,20) AND MA(C,5)>MA(C,10) AND MA(C,10)<MA(C,20)) OR(C>MA(C,20) AND MA(C,5)>MA(C,10) AND MA(C,10)<MA(C,20)),MA(C,20),'★'),COLORLIRED;
 DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
 STICKLINE(CLOSE<OPEN AND CLOSE>=REF(CLOSE,1),CLOSE,OPEN,3.2,0 ),COLOR003333;
 STICKLINE(CLOSE<OPEN AND CLOSE>=REF(CLOSE,1),CLOSE,OPEN,2.8,0 ),COLOR004444;
 STICKLINE(CLOSE<OPEN AND CLOSE>=REF(CLOSE,1),CLOSE,OPEN,2.4,0 ),COLOR005555;
 STICKLINE(CLOSE<OPEN AND CLOSE>=REF(CLOSE,1),CLOSE,OPEN,2,0 ),COLOR007777;
 STICKLINE(CLOSE<OPEN AND CLOSE>=REF(CLOSE,1),CLOSE,OPEN,1.6,0 ),COLOR009999;
 STICKLINE(CLOSE<OPEN AND CLOSE>=REF(CLOSE,1),CLOSE,OPEN,1.2,0 ),COLOR00BBBB;
 STICKLINE(CLOSE<OPEN AND CLOSE>=REF(CLOSE,1),CLOSE,OPEN,0.8,0 ),COLOR00DDDD;
 STICKLINE(CLOSE<OPEN AND CLOSE>=REF(CLOSE,1),CLOSE,OPEN,0.4,0 ),COLOR00FFFF;
 STICKLINE(CLOSE>=OPEN AND CLOSE>=REF(CLOSE,1),CLOSE,OPEN,3.2,0 ),COLOR000033;
 STICKLINE(CLOSE>=OPEN AND CLOSE>=REF(CLOSE,1),CLOSE,OPEN,2.8,0 ),COLOR000044;
 STICKLINE(CLOSE>=OPEN AND CLOSE>=REF(CLOSE,1),CLOSE,OPEN,2.4,0 ),COLOR000055;
 STICKLINE(CLOSE>=OPEN AND CLOSE>=REF(CLOSE,1),CLOSE,OPEN,2,0 ),COLOR000077;
 STICKLINE(CLOSE>=OPEN AND CLOSE>=REF(CLOSE,1),CLOSE,OPEN,1.6,0 ),COLOR000099;
 STICKLINE(CLOSE>=OPEN AND CLOSE>=REF(CLOSE,1),CLOSE,OPEN,1.2,0 ),COLOR0000BB;
 STICKLINE(CLOSE>=OPEN AND CLOSE>=REF(CLOSE,1),CLOSE,OPEN,0.8,0 ),COLOR0000DB;
 STICKLINE(CLOSE>=OPEN AND CLOSE>=REF(CLOSE,1),CLOSE,OPEN,0.4,0 ),COLOR0000FF;
 STICKLINE(CLOSE>=OPEN AND CLOSE<=REF(CLOSE,1),CLOSE,OPEN,3.2,0 ),COLORFF00CA;
 STICKLINE(CLOSE>=OPEN AND CLOSE<=REF(CLOSE,1),CLOSE,OPEN,2.8,0 ),COLORFF00CC;
 STICKLINE(CLOSE>=OPEN AND CLOSE<=REF(CLOSE,1),CLOSE,OPEN,2.4,0 ),COLORFF00DB;
 STICKLINE(CLOSE>=OPEN AND CLOSE<=REF(CLOSE,1),CLOSE,OPEN,2,0 ),COLORFF00DD;
 STICKLINE(CLOSE>=OPEN AND CLOSE<=REF(CLOSE,1),CLOSE,OPEN,1.6,0 ),COLORFF00DF;
 STICKLINE(CLOSE>=OPEN AND CLOSE<=REF(CLOSE,1),CLOSE,OPEN,1.2,0 ),COLORFF00EE;
 STICKLINE(CLOSE>=OPEN AND CLOSE<=REF(CLOSE,1),CLOSE,OPEN,0.8,0 ),COLORFF00EF;
 STICKLINE(CLOSE>=OPEN AND CLOSE<=REF(CLOSE,1),CLOSE,OPEN,0.4,0 ),COLORFF00FF;
 STICKLINE(CLOSE<OPEN AND CLOSE<=REF(CLOSE,1),CLOSE,OPEN,3.2,0 ),COLOR333300;
 STICKLINE(CLOSE<OPEN AND CLOSE<=REF(CLOSE,1),CLOSE,OPEN,2.8,0 ),COLOR444400;
 STICKLINE(CLOSE<OPEN AND CLOSE<=REF(CLOSE,1),CLOSE,OPEN,2.4,0 ),COLOR555500;
 STICKLINE(CLOSE<OPEN AND CLOSE<=REF(CLOSE,1),CLOSE,OPEN,2,0 ),COLOR777700;
 STICKLINE(CLOSE<OPEN AND CLOSE<=REF(CLOSE,1),CLOSE,OPEN,1.6,0 ),COLOR999900;
 STICKLINE(CLOSE<OPEN AND CLOSE<=REF(CLOSE,1),CLOSE,OPEN,1.2,0 ),COLORBBBB00;
 STICKLINE(CLOSE<OPEN AND CLOSE<=REF(CLOSE,1),CLOSE,OPEN,0.8,0 ),COLORDDDD00;
 STICKLINE(CLOSE<OPEN AND CLOSE<=REF(CLOSE,1),CLOSE,OPEN,0.4,0 ),COLORFFFF00;