同花顺仓位副图指标
红色为安全投资黄色为谨慎投资蓝色为风险投机绿色将面临变盘
源码
JJJ:=IF(DYNAINFO(8) 0.01,0.01*DYNAINFO(10)/DYNAINFO(8),DYNAINFO(3)); DDD:=(DYNAINFO(5) 0.01 OR DYNAINFO(6) 0.01); JJJT:=IF(DDD,1,(JJJ (DYNAINFO(5)+0.01) AND JJJ (DYNAINFO(6)-0.01))); 五日成本:IF(JJJT,0.01*EMA(AMOUNT,5)/EMA(VOL,5),EMA((HIGH+LOW+CLOSE)/3,5)); 十三日日成本:IF(JJJT,0.01*EMA(AMOUNT,13)/EMA(VOL,13),EMA((HIGH+LOW+CLOSE)/3,13)); 三十四日成本:IF(JJJT,0.01*EMA(AMOUNT,34)/EMA(VOL,34),EMA((HIGH+LOW+CLOSE)/3,34)); 长期成本:IF(JJJT,DMA(AMOUNT/(100*VOL),100*VOL/FINANCE(7)),EMA((HIGH+LOW+CLOSE)/3,120)),DOTLINE; MID:=(3*CLOSE+LOW+OPEN+HIGH)/6; BBI线:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4; CPX40:=WMA(MID,40); CPX30:=WMA(MID,30); CPX20:=WMA(MID,20); CPX15:=WMA(MID,15); CPX10:=WMA(MID,10); CPX5:=WMA(MID,5); CPX3:=WMA(MID,3); STZF:=(MAX(CLOSE,OPEN)/MIN(CLOSE,OPEN)-1)*100; 均STZF:=(SUM(STZF,21)-STZF)/20; DYX:=CLOSE(均STZF*2.5)); ZNCPX3:=IFF(DYX,(6*CLOSE+2*REF(MID,1)+1*REF(MID,2))/9,CPX3); DYKX:=CLOSE REF(CLOSE,1) AND (100*(CLOSE-REF(CLOSE,1))/REF(CLOSE,1) (均STZF*2.5)); ZNCPX5:=IFF(DYKX,(6*CLOSE+2*REF(MID,1)+1*REF(MID,2))/9,CPX5); CPMXK:=CPX20; CPMXM:=CPX30; CPKXM:=ZNCPX3; CPKXK:=ZNCPX3; UP:=CPX30 REF(CPX30,1); DOWN:=CPX30 CPXM:=IFF(UP,CPMXK,IFF(DOWN,CPMXM,0)); CPXK:=IFF(UP,CPKXM,IFF(DOWN,CPKXK,0)); D:=CPXK CPXM; K:=CPXK =CPXM; 长:=WMA(MID,30); 中:=WMA(MID,20); 短:=WMA(MID,10); SXX:=短 REF(短,1) AND 中 SMX:=短 REF(短,1) AND 中 REF(中,1) AND 长 SML:=短 REF(短,1) AND 中 REF(中,1) AND 长 REF(长,1); SXL:=短 REF(短,1) AND 中REF(长,1); XML:=短REF(中,1) AND 长 REF(长,1); XXL:=短REF(长,1); XXX:=短 均线最大:=MAX(CPX5,MAX(CPX10,MAX(CPX20,MAX(CPX30,CPX40)))); 均线最小:=MIN(CPX5,MIN(CPX10,MIN(CPX20,MIN(CPX30,CPX40)))); 高缠绕度:=1000*(均线最大/均线最小-1) 低缠绕度:=1000*(均线最大/均线最小-1) 投机:=10; 试盘:=IFF(SXX,20,0); 加仓:=IFF(SMX AND D,40,IFF(SMX AND K,20,0)); 重仓:=IFF(SML AND D AND 低缠绕度,90,IFF(SML AND D AND 高缠绕度,60,IFF(SML AND K,20,0))); 高仓:=IFF(SXL AND D AND 低缠绕度,70,IFF(SXL AND D AND 高缠绕度,40,IFF(SXL AND K,20,0))); 减仓:=IFF(XML AND D,60,IFF(XML AND K,20,0)); 轻仓:=IFF(XXL AND D,30,IFF(XXL AND K,20,0)); 空仓:=IFF(XXX,0,0); 仓位1:=IFF(SML AND D AND 低缠绕度,90,IFF(SXL AND D AND 低缠绕度,70,IFF((XML AND D) OR (SML AND D AND 高缠绕度),60,IFF((1/2)==10,50,IFF((SMX AND D) OR (SXL AND D AND 高缠绕度),40,IFF(XXL AND D,30,0)))))); 仓位2:=IFF(SXX OR (SMX AND K) OR (SML AND K) OR (SXL AND K) OR (XML AND K) OR (XXL AND K),20,10);仓位A:=MAX(仓位1,仓位2); 配置仓位:=IFF(((REF(仓位A,1)==90) OR (REF(仓位A,1)==70)) AND (仓位A =50 AND 仓位A =30),60,仓位A); 修正一天:=COUNT(配置仓位 =70,2)==1 AND COUNT(配置仓位 =30 AND 配置仓位 =60,2)==1; 修正二天:=COUNT(配置仓位 =70,3)==1 AND COUNT(配置仓位 =30 AND 配置仓位 =60,3)==2; 修正三天:=COUNT(配置仓位 =70,4)==1 AND COUNT(配置仓位 =30 AND 配置仓位 =60,4)==3; 修正四天:=COUNT(配置仓位 =70,5)==1 AND COUNT(配置仓位 =30 AND 配置仓位 =60,5)==4; 修正五天:=COUNT(配置仓位 =70,6)==1 AND COUNT(配置仓位 =30 AND 配置仓位 =60,6)==5; 修正六天:=COUNT(配置仓位 =70,7)==1 AND COUNT(配置仓位 =30 AND 配置仓位 =60,7)==6; 修正七天:=COUNT(配置仓位 =70,8)==1 AND COUNT(配置仓位 =30 AND 配置仓位 =60,8)==7; 修正八天:=COUNT(配置仓位 =70,9)==1 AND COUNT(配置仓位 =30 AND 配置仓位 =60,9)==8; 修正九天:=COUNT(配置仓位 =70,10)==1 AND COUNT(配置仓位 =30 AND 配置仓位 =60,10)==9; 修正十天:=COUNT(配置仓位 =70,11)==1 AND COUNT(配置仓位 =30 AND 配置仓位 =60,11)==10; 修正十一天:=COUNT(配置仓位 =70,12)==1 AND COUNT(配置仓位 =30 AND 配置仓位 =60,12)==11; 修正十二天:=COUNT(配置仓位 =70,13)==1 AND COUNT(配置仓位 =30 AND 配置仓位 =60,13)==12; 修正十三天:=COUNT(配置仓位 =70,14)==1 AND COUNT(配置仓位 =30 AND 配置仓位 =60,14)==13; 蓝:=配置仓位 红:=(配置仓位 =70) OR 修正一天 OR 修正二天 OR 修正三天 OR 修正四天 OR 修正五天 OR 修正六天 OR 修正七天 OR 修正八天 OR 修正九天 OR 修正十天 OR 修正十一天 OR 修正十二天 OR 修正十三天; 黄:=(红==0) AND (蓝==0); VAR1:=EMA(EMA(CLOSE,9),9); 控盘:=((VAR1-REF(VAR1,1))/REF(VAR1,1)*1000) STICKLINE(控盘 AND 蓝,H,L,0,1),coloryellow; STICKLINE(控盘 AND 蓝,C,O,10,1),coloryellow; STICKLINE(控盘 AND 红,H,L,0,1),colorred; STICKLINE(控盘 AND 红,C,O,10,1),colorred; STICKLINE(控盘 AND 黄,H,L,0,1),coloryellow; STICKLINE(控盘 AND 黄,C,O,10,1),coloryellow; STICKLINE(控盘==0 AND 蓝,H,L,0,1),colorblue; STICKLINE(控盘==0 AND 蓝,C,O,10,1),colorblue; STICKLINE(控盘==0 AND 红,H,L,0,1),coloryellow; STICKLINE(控盘==0 AND 红,C,O,10,1),coloryellow; STICKLINE(控盘==0 AND 黄,H,L,0,1),colorblue; STICKLINE(控盘==0 AND 黄,C,O,10,1),colorblue; 配置仓位NEW:=IFF(控盘 AND 配置仓位 =50,50,配置仓位); 今日仓位:配置仓位NEW; 黄新:=黄 OR (控盘==0 AND 红) OR (控盘 AND 蓝) OR (控盘==0 AND 今日仓位 =60); 蓝新:=蓝 OR (控盘==0 AND 黄); 红新:=红;STICKLINE((控盘==0 AND 今日仓位 =60),H,L,0,1),coloryellow; STICKLINE((控盘==0 AND 今日仓位 =60),C,O,10,1),coloryellow; 修一天:=COUNT(红新,2)==1 AND COUNT(黄新,2)==1; 修二天:=COUNT(红新,3)==1 AND COUNT(黄新,3)==2; 修三天:=COUNT(红新,4)==1 AND COUNT(黄新,4)==3; 修四天:=COUNT(红新,5 )==1 AND COUNT(黄新,5 )==4; 修五天:=COUNT(红新,6 )==1 AND COUNT(黄新,6 )==5; 修六天:=COUNT(红新,7 )==1 AND COUNT(黄新,7 )==6; 修七天:=COUNT(红新,8 )==1 AND COUNT(黄新,8 )==7; 修八天:=COUNT(红新,9 )==1 AND COUNT(黄新,9 )==8; 修九天:=COUNT(红新,10)==1 AND COUNT(黄新,10)==9; 修十天:=COUNT(红新,11)==1 AND COUNT(黄新,11)==10; 修十一天:=COUNT(红新,12)==1 AND COUNT(黄新,12)==11; 红色修正:=修一天 OR 修二天 OR 修三天 OR 修四天 OR 修五天 OR 修六天 OR 修七天 OR 修八天 OR 修九天 OR 修十天 OR 修十一天; STICKLINE(红色修正,H,L,0,1),colorligreen; STICKLINE(红色修正,C,O,10,1),colorligreen; DRAWTEXT_FIX(蓝 OR 红 OR 黄,0.01,0.05,0,'红色为安全投资'),colorred;DRAWTEXT_FIX(蓝 OR 红 OR 黄,0.01,0.12,0,'黄色为谨慎投资'),coloryellow;DRAWTEXT_FIX(蓝 OR 红 OR 黄,0.01,0.19,0,'蓝色为风险投机'),colorblue;DRAWTEXT_FIX(蓝 OR 红 OR 黄,0.01,0.26,0,'绿色将面临变盘'),colorgreen;
