“神龙突破”主图源码:
GSPT1:=(H/MAX(O,C)-1)*100;
GSPT2:=(CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100;
GSPT3:=SMA(GSPT2,8,1);
GSPT4:=SMA(GSPT3,8,1);
GSPT5:=3*GSPT3-2*GSPT4;
GSPT6:=(C-MA(C,55))/MA(C,55)*100;
GSPT7:=(CLOSE-LLV(LOW,89))/(HHV(HIGH,89)-LLV(LOW,89))*100;
GSPT8:=SMA(GSPT7,8,1);
GSPT9:=SMA(GSPT8,13,1);
GSPT10:=(CLOSE-LLV(LOW,12))/(HHV(HIGH,12)-LLV(LOW,12))*100;
GSPT11:=SMA(GSPT10,9,1);
GSPT12:=SMA(GSPT11,9,1);
GSPT13:=SUM(V/CAPITAL*100,10);
GSPT14:=(CLOSE>=ZTPRICE(REF(CLOSE,1),IF(FINANCE(3)=4,0.2,0.1)));
GSPT15:=C/REF(C,1)>1.048 AND C=H AND BETWEEN(FORCAST(V,4),0.2*FORCAST(V,12),2.1*FORCAST(V,12));
GSPT16:=FILTER(GSPT15,28) AND((C-REF(C,4))/REF(C,4)*100>2 OR GSPT4<21);
GSPT17:=(C/REF(C,1)>1.068 OR EVERY(C>O,9) OR H=HHV(H,34)) AND (HSL<10 OR GSPT4<18) AND COUNT(GSPT14,34)<2 AND H=HHV(H,4) AND C>O AND GSPT1<0.81 AND (((C-REF(C,60))/REF(C,60)*100>-5 AND(C-REF(C,89))/REF(C,89)*100>-5 AND(C-REF(C,260))/REF(C,260)*100>-20) OR (C-REF(C,1))/REF(C,1)*100>7.8 OR EVERY(C>O,9)) AND (((C-REF(C,4))/REF(C,4)*100>2 AND (C-REF(C,8))/REF(C,8)*100>0 AND (C-REF(C,9))/REF(C,9)*100>0) OR EVERY(C>O,6)) AND ((C-REF(C,1))/REF(C,1)*100>4 OR EVERY(C>O,6)) AND (C-REF(C,34))/REF(C,34)*100<25 AND (C-REF(C,60))/REF(C,60)*100<25 AND (C-REF(C,89))/REF(C,89)*100<30 AND (C-REF(C,180))/REF(C,180)*100<35 AND (C-REF(C,89))/REF(C,89)*100<25 AND (C-REF(C,250))/REF(C,250)*100<50;
GSPT18:=(C/REF(C,1)>1.068 OR EVERY(C>O,9)) OR GSPT16 AND GSPT1<0.81 AND GSPT4<63 AND (HSL<13 OR COUNT(GSPT14,55)<2) AND COUNT(GSPT14,34)<2 AND H=HHV(H,3) AND H=HHV(H,4) OR (GSPT16 AND GSPT4<54 ) AND C>O AND (C-REF(C,89))/REF(C,89)*100<30 AND (C-REF(C,180))/REF(C,180)*100<35 AND (C-REF(C,89))/REF(C,89)*100<25 AND (C-REF(C,250))/REF(C,250)*100<50 OR GSPT17 AND (HSL<7 OR (C-REF(C,1))/REF(C,1)*100>8.1 OR (C-REF(C,7))/REF(C,7)*100>0) AND (C-REF(C,2))/REF(C,2)*100>0 AND (HSL<10 OR GSPT4<18 OR GSPT5<13) AND HSL>0.81;
GSPT19:=((((C-REF(C,1))/REF(C,1)*100>6.8 AND GSPT1<1.3) OR ((C-REF(C,1))/REF(C,1)*100>5.4 AND (C-REF(C,4))/REF(C,4)*100>3 AND GSPT1<0.81) OR (H=HHV(H,34) AND (C-REF(C,1))/REF(C,1)*100>4.5 AND GSPT4<54) OR EVERY(C>O,8)) AND (GSPT4<34 OR (GSPT4<54 AND GSPT5<54)) AND (C-REF(C,3))/REF(C,3)*100>0) AND (GSPT4<21 OR (C-REF(C,4))/REF(C,4)*100>2) AND (C-REF(C,4))/REF(C,4)*100<18 AND (C-REF(C,5))/REF(C,5)*100<25 AND (C-REF(C,6))/REF(C,6)*100<18 AND ((C-REF(C,13))/REF(C,13)*100<13 OR (C-REF(C,1))/REF(C,1)*100>6.8) AND (C-REF(C,89))/REF(C,89)*100<30 AND (C-REF(C,144))/REF(C,144)*100<35 AND (C-REF(C,180))/REF(C,180)*100<35 AND (C-REF(C,250))/REF(C,250)*100<60 AND(HSL<10 OR GSPT4<18 OR GSPT5<13) AND C>O AND COUNT(GSPT14,18)<=2 AND H=HHV(H,3) AND HSL>0.81 OR GSPT18 AND (EVERY(C>O,4) OR GSPT1<1.3) AND GSPT1<2.5;
GSPT20:=(C-MA(C,13))/MA(C,13)*(-100);
GSPT21:=REF(GSPT20,1);
GSPT22:=GSPT21/GSPT20>=1.23 AND GSPT21>=8 AND C/REF(C,1)>=1.02;
GSPT23:=STRCAT(' ',STRCAT(STRCAT(STRCAT('【行业】 ',HYBLOCK),STRCAT(' 【地域】 ',DYBLOCK)),STRCAT(' 【概念】 ',GNBLOCK)));{分析家公式网http://www.70822.com}
GSPT24:=STRCAT(STRCAT('总股本: ',CON2STR(TOTALCAPITAL/1000000,2)),'亿');
GSPT25:=STRCAT(STRCAT(' 流通盘: ',CON2STR(CAPITAL/1000000,2)),'亿');
GSPT26:=STRCAT(' 流通比例(%): ',CON2STR((CAPITAL/1000000)/(TOTALCAPITAL/1000000)*100,2));
GSPT27:=STRCAT(STRCAT(' 流通市值: ',CON2STR((CAPITAL/1000000)*C,2)),'亿');
GSPT28:=STRCAT(' ',STRCAT(STRCAT(STRCAT(GSPT24, GSPT25), GSPT26), GSPT27));
GSPT29:=STRCAT('净资收益率(%): ',CON2STR(FINANCE(29)/FINANCE(19)*100,2));
GSPT30:=STRCAT(' 毛利率(%): ',CON2STR((FINANCE(20)-FINANCE(21))/FINANCE(20)*100,2));
GSPT31:=STRCAT(' 主营利润率(%) ',CON2STR(FINANCE(23)/FINANCE(20)*100,2));
GSPT32:=STRCAT(' ',STRCAT(STRCAT(GSPT29,GSPT30),GSPT31));
GSPT33:=C=DTPRICE(REF(C,1),0.1) AND C=L;
GSPT34:=C=DTPRICE(REF(C,1),0.2) AND C=L;
GSPT35:=ABS(CLOSE-REF(CLOSE,30));
GSPT36:=SUM(ABS(CLOSE-REF(CLOSE,1)),30);
GSPT37:=GSPT35/GSPT36;
分析家:=GSPT37*(0.8-2/24)+2/24;
公式网:=分析家*分析家;
GSPT38:=EMA(DMA(CLOSE,公式网),3);
STICKLINE(GSPT20>=8 AND GSPT4<34 AND GSPT6<-18 OR GSPT6<-25,H,L,1,1),COLORWHITE,LINETHICK1;
STICKLINE(GSPT20>=8 AND GSPT4<34 AND GSPT6<-18 OR GSPT6<-25,O,C,7,1),COLORWHITE,LINETHICK1;
STICKLINE(GSPT22=1 AND (C-REF(C,2))/REF(C,2)*100>1 AND GSPT4<13 AND GSPT6<-25 OR GSPT6<-30,H,L,1,1),COLORMAGENTA,LINETHICK1;
STICKLINE(GSPT22=1 AND (C-REF(C,2))/REF(C,2)*100>1 AND GSPT4<13 AND GSPT6<-25 OR GSPT6<-30,O,C,7,1),COLORMAGENTA,LINETHICK1;
DRAWTEXT_FIX(ISLASTBAR,0.001,0.06,0,GSPT23),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.001,0.12,0,GSPT28),COLORFF66FF;
DRAWTEXT_FIX(ISLASTBAR,0.001,0.18,0,GSPT32),COLORDDBBBB;
STICKLINE(GSPT33 OR GSPT34 OR(C-REF(C,1))/REF(C,1)*100<-6.3 AND GSPT5>54,H,L,1,1),COLORGREEN;
STICKLINE(GSPT33 OR GSPT34 OR(C-REF(C,1))/REF(C,1)*100<-6.3 AND GSPT5>54,O,C,5,1),COLORGREEN;
中枢线:GSPT38,COLOR808000,LINETHICK1;
GSPT41:=C>中枢线 AND 中枢线>REF(中枢线,1);
GSPT42:=C<中枢线 AND 中枢线<=REF(中枢线,1);
GSPT43:=ABS(((3.48*CLOSE+HIGH+LOW)/4-EMA(CLOSE,20))/EMA(CLOSE,20));
GSPT44:=DMA(((2.15*CLOSE+LOW+HIGH)/4),GSPT43);
DRAWTEXT_FIX(ISLASTBAR AND GSPT41,0.08,0.01,0,'【牛区持股】'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR AND GSPT42,0.08,0.01,0,'【熊区观望】'),COLOR00EE00;
牛熊分界:EMA(GSPT44,500)*0.99 ,LINETHICK3,COLORYELLOW;
DRAWTEXT(GSPT19>0 AND REF(GSPT19,1)=0,L*0.95,'●突破'),COLORYELLOW;