强度源码: 日 := 120; 昨前 := 3; 高1 := REF(HHV(H, 日), 昨前); 低1 := REF(LLV(L, 日), 昨前); H1 := 高1 - (高1 - 低1) 0.191; H2 := 高1 - (高1 - 低1) 0.382; H3 := 高1 - (高1 - 低1) 0.5; H4 := 高1 - (高1 - 低1) 0.618; H5 := 高1 - (高1 - 低1) 0.809; S1 := (LOW + HIGH + CLOSE 2) / 4; S2 := MA(S1, 4); S3 := HHV(S2, 10); S4 := MA(S3, 3); S5 := 1.25 S4 - 0.25 S3; XK := IF(S5 > S3, S3, S5); F1 := LLV(S2, 10); F2 := MA(F1, 3); F3 := 1.25 F2 - 0.25 F1; DK := IF(F3 < F1, F1, F3); M13 := MA(C, 13); RSV := (C - LLV(L, 9)) / (HHV(H, 9) - LLV(L, 9)) 100; K := SMA(RSV, 3, 1); D := SMA(K, 3, 1); J := 3 K - 2 D; 主力 := EMA((CLOSE - MA(CLOSE, 3)) / MA(CLOSE, 3), 2); 散户 := EMA((CLOSE - MA(CLOSE, 20)) / MA(CLOSE, 20), 7); VAR2 := LLV(LOW, 10); VAR3 := HHV(HIGH, 25); 动能趋势线 := 100 EMA((CLOSE - VAR2) / (VAR3 - VAR2), 4); DIF := EMA(CLOSE, 12) - EMA(CLOSE, 26); DEA := EMA(DIF, 9); MACD := 2 (DIF - DEA); 涨幅 := (C - REF(C,1)) / REF(C,1) 100; 成交量比 := V / MA(V,5); 强度分数 := 涨幅 0.5 + 成交量比 0.3 + 动能趋势线 0.2; 强度显示 := STRCAT('强度: ', VAR2STR(强度分数,2)); DRAWTEXT_FIX(1, 0.30, 0.4, 0, 强度显示), COLORWHITE; *********************************************************************************************************************************************************** MACD:="MACD.MACD",NODRAW; KK:="KDJ.K",NODRAW; DD:="KDJ.D",NODRAW; JJ:="KDJ.J",NODRAW; MKDJ:=HHV(ABS(MACD),20)/HHV(ABS(MACD),60); {DRAWBAND((JJ-50)*MKDJ+50,RGB(155,0,0),(KK-50)*MKDJ+50,RGB(0,155,255)); DRAWBAND((KK-50)*MKDJ+50,RGB(155,95,0),(DD-50)*MKDJ+50,RGB(15,45,75));} RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100; K:=SMA(RSV,3,1); D:=SMA(K,3,1); J:=3*K-2*D; A4:=MA(CLOSE,20); A5:=(CLOSE>MA(CLOSE,5)); A6:=(MA(CLOSE,5)>MA(CLOSE,10)); A7:=(CLOSE>MA(CLOSE,10)); A8:=(MA(CLOSE,5)>MA(CLOSE,20)); A9:=(CLOSE>MA (CLOSE,20)); A10:=REF(A4,1); A11:=(A4 > A10); AVX:=(((((IF(A5,10,(0 - 10)) + IF (A6,10,(0 - 10))) + IF(A7,10,(0 -10))) + IF(A8,10,(0 - 10))) + IF(A9,10, (0 - 10))) + IF(A11,10,(0 -10))),COLOR0000FF; N1:=6;N2:=12;N3:=24; LC:=REF(CLOSE,1); RSI1:=SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100; RSI2:=SMA(MAX(CLOSE-LC,0),N2,1)/SMA(ABS(CLOSE-LC),N2,1)*100; RSI3:=SMA(MAX(CLOSE-LC,0),N3,1)/SMA(ABS(CLOSE-LC),N3,1)*100; AA1:=IF(RSI1<RSI2 OR RSI1<RSI3 OR RSI2<RSI3,RSI3,RSI1),COLORCYAN; AA2:=IF(RSI1<RSI2 OR RSI1<RSI3 OR RSI2<RSI3,RSI3,RSI2),COLORGREEN; AA3:=RSI3,COLORBLUE; N:=26; RSVP:=(C-LLV(L,30))/(HHV(H,30)-LLV(L,30))*100-50; KV:=SMA(RSVP,3,1); DV:=SMA(KV,3,1); JV:=3*KV-2*DV; ZDZK1:=EMA(JV,6); ZDZK2:=REF(ZDZK1,1); XW1:=IF(O<=REF(O,1),0,MAX((H-O),(O-REF(O,1)))); XW2:=IF(O>=REF(O,1),0,MAX((O-L),(O-REF(O,1)))); XW3:=SUM(XW1,21); XW4:=SUM(XW2,21); XW5:=IF(XW3>XW4,(XW3-XW4)/XW3,IF(XW3=XW4,0,(XW3-XW4)/XW4)); {14天强弱} RS:=SMA(MAX(C-REF(C,1),0),14,1)/SMA(ABS(C-REF(C,1)),14,1)*100; ZD:= EMA(EMA(EMA(RS,7),3),3); ZD1:=(ZD-REF(ZD,1))/REF(ZD,1)*15; {STICKLINE(ZD1>=0,0,ZD1*50,0.5,0),COLOR0000BE; STICKLINE(ZD1<=0,0,ZD1*50,0.5,0),COLORCYAN;} Y1:=AMOUNT/V/100; Y2:=(3*H+L+O+2*C)/7; Y3:=100*(WINNER(1.1*C)-WINNER(0.9*C)); Y4:=SUM(AMOUNT,13)/Y1/100; Y5:= DMA(Y2,V/Y4); Y6:=(C-Y5)/Y5*100; Y7:=(Y3<10) AND (Y6<=-10); Y8:=SMA(MAX(C-REF(C,1.5),0),6,1)/SMA(ABS(C-REF(C,1.5)),1,1)*100; 重亏:=STICKLINE(Y6<=-10 AND ZD1<0,ZD1*55,ZD1*45,1,0),COLORFF89B2; 全亏:=STICKLINE(Y6<=-16 AND ZD1<0,ZD1*60,ZD1*55,1,1),COLORBLUE; 超跌:=STICKLINE(Y7 AND ZD1<0,ZD1*65,ZD1*60,1,0),COLORFFFFFF; {备战区1} ZDD1:=(HHV(H,21)-C)/(HHV(H,21)-LLV(L,21))*100-10; ZDD2:=(C-LLV(L,21))/(HHV(H,21)-LLV(L,21))*100; ZDD3:=SMA(ZDD2,13,8); ZDD4:=CEILING(SMA(ZDD3,13,8)); ZDD5:=SMA(ZDD1,21,8); XH1:=SMA(MAX(C-REF(C,2),0),7,1)/SMA(ABS(C-REF(C,2)),7,1)*100; XH2:=ZDD4-ZDD5<-65 AND XH1<12; 备战区:=XH2; {备战区2} XX1:=MA(LOW,2)*0.96; XX2:=MA(LOW,26)*0.85; XX3:= REF(XX1,1)<XX2 AND REF(XX1,1)<XX1 AND REF(XX1,1)<REF(XX1,2);{30} 备战区2:=XX3; C0:=REF(C,2)*0.865; C1:=REF(C,13)*0.772; DSY:=100*VOL/CAPITAL; 备战区3:=(C-MIN(C0,C1))/C<0.1 AND SUM(DSY,5)/5<1.8; {STICKLINE((C-MIN(C0,C1))/C<0.1 AND SUM(DSY,5)/5<1.8,0,ZD1*25,1,0),COLOR006EFF; DRAWICON((C-MIN(C0,C1))/C<0.1 AND SUM(DSY,5)/5<1.8,0,1);} {备战区4} WW1:= SUM( MA(C,10),9)/10.110; WW2:=CROSS(C,WW1); VW1:=DMA(EMA(C,12),SUM(V,5)/3/CAPITAL); VW2:=REF(H,10)/C>1.35; VW3:=(COST(20)-C)/C>0.15; VW4:=H>L*1.051; VW5:=VW4 AND COUNT(VW4,5)>1; VW6:=(((C-VW1)/VW1*100<-30) OR VW2) AND VW3 AND VW5; {STICKLINE(VW6,0,ZD1*-40,1,0),COLOR0000FF;} DRAWICON(VW6,ZD1*-40,4); {买2} XL1:=MA(LOW,2)*0.96; XL2:=MA(LOW,26)*0.85; XL3:=REF(XL1,1)<XL2 AND REF(XL1,1)<XL1 AND REF(XL1,1)<REF(XL1,2); {STICKLINE(XL3 OR VW6,0,15,1,0),COLORF8B7F0;} DRAWTEXT(XL3 OR VW6,15,'←买'),COLORF8B7F0; {井喷} JJP1:=REF(INDEXC,1); JJP2:=FILTER((INDEXC-JJP1)/JJP1>0.03 AND ZDZK1>=ZDZK2,7); {STICKLINE(JJP2,0,-15,4,0),COLORFF00FF;} DRAWTEXT(JJP2,-15,'←买'),COLORFF00FF; X1:=EMA(HHV(H,500),21); X2:=EMA(HHV(H,250),21); X3:=EMA(HHV(H,90),21); X4:=EMA(LLV(L,500),21); X5:=EMA(LLV(L,250),21); X6:=EMA(LLV(L,90),21); X7:=EMA((X1*0.558+X2*0.558+X3*0.558+X4*0.96+X5*0.96+X6*0.96)/6,21); X8:=EMA((X1*0.55 +X2*0.55+ X3*0.65+ X4*1.25+X5*1.23+X6*1.2 )/6,21); X9:=EMA((X1*0.68+ X2*0.68+ X3*0.68+ X4*1.3 +X5*1.3+ X6*1.3 )/6,21); VARA:=EMA((X7*3+X8*2+X9)/6*1.738,21); VARB:=REF(LOW,1); VARC:=SMA(ABS(LOW-VARB),3,1)/SMA(MAX(LOW-VARB,0),3,1)*100; VARD:=EMA(IF(C*1.35<=VARA,VARC*10,VARC/10),3); VARE:=LLV(L,30); VARF:=HHV(VARD,30); VAR10:=IF(MA(C,58),1,0); VAR11:=EMA(IF(LOW<=VARE,(VARD+VARF*2)/2,0),3)/618*VAR10; MID:=REF(H+L,1)/2; CR:=SUM(MAX(0,H-MID),N)/SUM(MAX(0,MID-L),N)*100; 出击:=IF(CR<60 AND VAR11>10,35,0),COLORGREEN; 攻击:=IF (VAR11>20,30,0),COLORYELLOW; VAR1A:=DMA(AMOUNT/VOL/100,VOL/CAPITAL); VAR4AA:=CLOSE/(REF(CLOSE,1))>1.04 AND (HIGH/CLOSE<1.01); {STICKLINE(VAR4AA,C,O*9,200,0)COLORYELLOW;} 短线游资:=(FILTER(VAR4AA>0,34)AND DYNAINFO(4)>0)*8,COLORYELLOW; STICKLINE(短线游资 AND TIME<=0935,0,999,2,0)COLORYELLOW; DRAWICON(短线游资=8,99,31); DRAWICON(短线游资=8,66,32); DRAWICON(短线游资=8,24,23); DRAWTEXT(短线游资=8 AND TIME<=0935,04,'∠快起飞')COLORYELLOW; LS:=C/REF(C,1)>1.048 AND C=H AND BETWEEN(FORCAST(V,4),0.2*FORCAST(V,12),2.1*FORCAST(V,12)); 拉升:=FILTER(LS,28); {STICKLINE(拉升,0,38,0.5,0)COLORGREEN;} DRAWTEXT(拉升,20,'')COLORGREEN; DRAWICON(拉升,26,9); H11:=EMA(DCLOSE,5); A1Z:=LLV(DCLOSE,5); L11:=LLV(L,10); 敢死队操作线:=MA(C,24),LINETHICK2,COLORLIMAGENTA; 操作线2:=MA(C,26),LINETHICK1,COLORLICYAN; 爆发点:=(DCLOSE-REF(C,1))/REF(C,1)*100; XGG:=CROSS(爆发点,20) OR CROSS(爆发点,18); L3:=IF(XGG,O,L11*0.999),COLORYELLOW; STICKLINE(XGG,L3,L3,100,1); DRAWTEXT(XGG,L3,'爆爆爆爆爆爆爆爆爆爆爆'),COLOR0099FF;