傻瓜操盘主图源码

N8:=STRCAT(CON2STR(YEAR,0),' 年 ');
Y8:=STRCAT(CON2STR(MONTH,0),' 月 ');
R8:=STRCAT(CON2STR(DAY,0),' 日 ');
MA13:MA(C,13),COLOR0066FF,LINETHICK2;
 STICKLINE(C>MA13,L,H,0,0),COLORRED;
 STICKLINE(C>MA13,O,C,3,0),COLOR000088;
 STICKLINE(C>MA13,O,C,2,0),COLOR0000AA;
 STICKLINE(C>MA13,O,C,0.1,0),COLOR0000CC;
 STICKLINE(C>MA13,O,C,0,0),COLOR0000FF;
 BIAS1:=MA((C-MA(C,13))/MA(C,13),3)*100,COLORWHITE,LINETHICK0;
 BIAS3:=MA((C-MA(C,34))/MA(C,34),3)*100,COLORFF00FF,LINETHICK0;
 关注区:=COUNT(BIAS3<0,8)>=8 AND COUNT(BIAS3>0,34)>13 AND COUNT(BIAS3<0,55)>30 OR BIAS3<-15,LINETHICK0;
 STICKLINE(关注区,C,O,3,0),COLOR8977FF;
 STICKLINE(关注区,L,H,0,0),COLOR8977FF;
 SJ8:=STRCAT(STRCAT(N8,Y8), R8);
LC:=REF(C,1),LINETHICK0;
 RSI:=((SMA(MAX((C-LC),0),13,1)/SMA(ABS((C-LC)),13,1))*100);
 STICKLINE((RSI<20),L,H,0.1,0),COLORFF6600;
 STICKLINE((RSI<20),O,C,8,0),COLORCC5000;
 DRAWTEXT(CROSS(RSI,20-0.0005),L*0.97,'短线'),COLORAA99AA;
 STICKLINE(CROSS(RSI,20-0.0005),C,O,3,0),COLOR888888;
 STICKLINE(CROSS(RSI,20-0.0005),C,O,2,0),COLORAAAAAA;
 STICKLINE(CROSS(RSI,20-0.0005),C,O,1,0),COLORCCCCCC;
 STICKLINE(CROSS(RSI,20-0.0005),C,O,0.1,0),COLORFFFFFF;
 STICKLINE(CROSS(RSI,20-0.0005),L,H,0,0),COLORFFFFFF;
 RSV:=(((C-LLV(L,9))/(HHV(H,9)-LLV(L,9)))*100);
 K:=SMA(RSV,3,1);
 D:=SMA(K,3,1);
 NB:=((C>LC) AND C>O);
 KK:=HHV(K,5);
 DD:=HHV(D,5);
 D1:=REF(D,1);
 K1:=REF(K,1);
 STICKLINE(((DD>75) AND CROSS(D,K)),C,O,3,0),COLOR008800;
 STICKLINE(((DD>75) AND CROSS(D,K)),C,O,2,0),COLOR00AA00;
 STICKLINE(((DD>75) AND CROSS(D,K)),C,O,1,0),COLOR00CC00;
 STICKLINE(((DD>75) AND CROSS(D,K)),C,O,0.1,0),COLOR00FF00;
 STICKLINE(((DD>75) AND CROSS(D,K)),L,H,0,0),COLOR00FF00;
 STICKLINE((((D1<30) AND CROSS(K,D)) AND NB),C,O,3,0),COLOR0011FF;
 STICKLINE((((D1<30) AND CROSS(K,D)) AND NB),C,O,2,0),COLOR0044FF;
 STICKLINE((((D1<30) AND CROSS(K,D)) AND NB),C,O,1,0),COLOR0077FF;
 STICKLINE((((D1<30) AND CROSS(K,D)) AND NB),C,O,0.1,0),COLOR0099FF;
 STICKLINE((((D1<30) AND CROSS(K,D)) AND NB),L,H,0,0),COLOR0099FF;
 DRAWTEXT_FIX(C>0,0.5,0,0,SJ8),COLOR00FFFF;
 DRAWBMP((((D1<30) AND CROSS(K,D)) AND NB),L*0.99,'BUY1'),COLORFFAAFF;
 DRAWBMP(((DD>75) AND CROSS(D,K)),H*1.03,'SELL1'),COLOR00CC00;
 QN1:=MA(C,13);
 QN:=ATAN((QN1-REF(QN1,1)))*180/2;
 STICKLINE(QN>1 AND QN1>REF(QN1,1),QN1,REF(QN1,1),5,0),COLOR00FFFF;
 STICKLINE(QN<1 AND QN1<REF(QN1,1),QN1,REF(QN1,1),5,1),COLORGREEN;
 QN2:=MA(C,21);
 QN3:=ATAN((QN2-REF(QN2,1)))*180/2;
 STICKLINE(QN3>1,QN2,REF(QN2,1),5,0),COLORFF00FF;
 STICKLINE(QN3<1,QN2,REF(QN2,1),5,1),COLORFF0000;
 HH0:=CONST(HHV(H,120))*1;
 LL0:=CONST(LLV(L,120))*1;
 MM0:=CONST((HH0+LL0)/2);
 HH1:=IF(CONST(C)<MM0,LL0-(HH0-LL0)*0.4,LL0-(HH0-LL0)*0.4),COLORRED;
 LL1:=LL0;
 HLMAX:=MAX(HH1,LL1);
 HLMIN:=MIN(HH1,LL1);
 HLMN1:=(HLMAX+HLMIN)/2;
 HLMN2:=(HLMAX-HLMIN);
 HLMN3:=HHV(V,250)/2;
 HLMN4:=HHV(V,250);
 VZ:=(V-HLMN3)*HLMN2/HLMN4+HLMN1;
 预测量:IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,VOL),COLORFF00FF,NODRAW;
 STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,(0-HLMN3)*HLMN2/HLMN4+HLMN1,(预测量-HLMN3)*HLMN2/HLMN4+HLMN1,2,-1),COLORLIGRAY;
 STICKLINE(C>=O,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,1,1),COLOR000099;
 STICKLINE(C<O,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,1,0),COLOR999900;
 今日保护价:(REF(C,2)+REF(C,1)+O)/3,COLOR00FFFF,NODRAW;
 顶点:IF(CURRBARSCOUNT<=60,CONST(IF(ISLASTBAR=1,HHV(H,BARSLAST(CURRBARSCOUNT=60)),1)),DRAWNULL),COLORRED,DOTLINE;
 低点:IF(CURRBARSCOUNT<=60,CONST(IF(ISLASTBAR=1,LLV(L,BARSLAST(CURRBARSCOUNT=60)),1)),DRAWNULL),COLORMAGENTA,DOTLINE;
 STICKLINE(CCI>=200 AND H>=顶点,O,C,3,0),COLORBLUE;
 STICKLINE(CCI<=100 AND L<=低点,O,C,3,0),COLORYELLOW;
 DRAWTEXT(ISLASTBAR,顶点,'顶点'),COLORRED;
 DRAWTEXT(ISLASTBAR,低点,'低点'),COLORMAGENTA;
 A:=(3*C+L+O+H)/6;
 X:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+REF(A,20))/210;
 主力成本:EMA(X,13),COLORFF00FF,LINETHICK0;