很簡單的一個修改，請老師幫忙 [文華財經]
-
咨詢內容：
?老師好，請幫我把途中的 價格改成實際價格， 不要四舍五入， 如圖
M:=5;//M值需要大于等于5?G:=MA(C,5);D:=MA(C,10);NNH:=BARSLAST(H=HHV(H,M)) ,NODRAW;NNL:=BARSLAST(L=LLV(L,M)) ,NODRAW;NNY:=IF(REF(G,NNH)>REF(D,NNH) AND NNH<=M-3,NNH,IF(REF(G,NNL)<REF(D,NNL) AND NNL<=M-3,NNL,M-2)) ,NODRAW;NNN:=IF(ISLASTBAR AND NNY>0,NNY,M-2) ,NODRAW;H1:=REF(H,NNN)=HHV(H,M-1);L1:=REF(L,NNN)=LLV(L,M-1);FG01:=BACKSET(H1,NNN+1)>BACKSET(H1,NNN),NODRAW;//只設置前面第M-1個FD01:=BACKSET(L1,NNN+1)>BACKSET(L1,NNN) ,NODRAW;FG02:=FG01=FD01 AND G>D,NODRAW;FD02:=FG01=FD01 AND G<D,NODRAW;TTTT:=BARSLAST(FD01),NODRAW;FG0:=FG01 AND IF(FG02=1,H=HHV(H,BARSLAST(REF(FD01,1))+1),H=HHV(H,IF(BARSLAST(L=LLV(L,M))>=M-2,M-2,BARSLAST(FD01)))) AND FD02=0 ,NODRAW;FD0:=FD01 AND IF(FD02=1,L=LLV(L,BARSLAST(REF(FG01,1))+1),L=LLV(L,IF(BARSLAST(H=HHV(L,M))>=M-2,M-2,BARSLAST(FG01)))) ?AND FG02=0 ,NODRAW;//高低點間周期GT:=BARSLAST(FG0),NODRAW;DT:=BARSLAST(FD0),NODRAW;//第一次處理高低點間多余的點LLLL:=DT=0 AND REF(DT,1)<GT AND L>REF(L,REF(DT,1)+1),NODRAW;FG1:=BACKSET(REFX(GT,1)=0 AND GT<DT AND REFX(H,1)>=REF(H,GT),GT+1),NODRAW;FD1:=BACKSET(REFX(DT,1)=0 AND DT<GT AND REFX(L,1)<=REF(L,DT),DT+1),NODRAW;FG11:=IF(GT=0 AND REF(GT,1)<DT AND IF(REF(G,BARSLAST(L=LLV(L,M)))>REF(D,BARSLAST(L=LLV(L,M))),BARSLAST(L=LLV(L,M))<M-2,1) AND ?H<REF(H,REF(GT,1)+1),1,0),NODRAW;FD11:=IF(DT=0 AND REF(DT,1)<GT AND IF(REF(G,BARSLAST(H=HHV(H,M)))<REF(D,BARSLAST(H=HHV(H,M))),BARSLAST(H=HHV(H,M))<M-2,1) AND L>REF(L,REF(DT,1)+1),1,0),NODRAW;//再次周期GT1:=BARSLAST(FG11<>1 AND FG1<>1 AND FG0),NODRAW;DT1:=BARSLAST(FD11<>1 AND FD1<>1 AND FD0),NODRAW;FD2:=BACKSET(REFX(GT1,1)=0 AND DT1<3 AND GT1-DT1<4 AND REF(L,DT1)>LLV(L,GT1+M-2),DT1+1),NODRAW;FG2A:=BACKSET(REFX(GT1,1)=0 AND DT1<3 AND GT1-DT1<4 AND REF(L,DT1)<=LLV(L,GT1+M-2) AND REF(H,GT1)>HHV(H,GT1+M-2),GT1+1),NODRAW;FG2B:=IF(GT1=0 AND DT1<4 AND REF(GT1,1)-DT1<4 AND REF(L,DT1)<=LLV(L,REF(GT1,1)+M-1) AND H>HHV(H,REF(GT1,1)+M-1),1,0),NODRAW;FG2:=BACKSET(REFX(DT1,1)=0 AND GT1<3 AND DT1-GT1<4 AND REF(H,GT1)<HHV(H,DT1+M-2),GT1+1),NODRAW;FD2A:=BACKSET(REFX(DT1,1)=0 AND GT1<3 AND DT1-GT1<4 AND REF(H,GT1)>=HHV(L,DT1+M-2) AND REF(L,DT1)>LLV(L,DT1+M-2),DT1+1),NODRAW;FD2B:=IF(DT1=0 AND GT1<4 AND REF(DT1,1)-GT1<4 AND REF(H,GT1)>=HHV(H,REF(DT1,1)+6) AND L>LLV(L,REF(DT1,1)+M-1),1,0),NODRAW;TTTTTT:= H<REF(H,REF(GT1,1)+1) AND DT1<4,NODRAW;HHHHHH:=REF(LLV(L,10),DT1),NODRAW;//前長后短;FG21:=IF(GT1=0 AND DT1<4 AND H<=REF(H,REF(GT1,1)+1) ?,1,0),NODRAW;FD21:=IF(DT1=0 AND GT1<4 ?AND L>=REF(L,REF(DT1,1)+1) ,1,0),NODRAW;//前短后長,前低后高（去低）;FD231:=BACKSET(REFX(GT1,1)=0 AND DT1>3 AND GT1>DT1 AND GT1-DT1<4 AND REFX(H,1)>REF(H,GT1) AND REF(L,DT1)>REF(LLV(L,10),DT1),DT1+1),NODRAW;FG23:=BACKSET(REFX(GT1,1)=0 AND DT1>3 AND GT1>DT1 AND ?GT1-DT1<4 AND REFX(H,1)>REF(H,GT1) AND (REF(H,GT1)<REF(HHV(H,13),GT1) OR REF(FD231,DT1)=0),GT1+1),NODRAW;//前短后長，去2;FG231:=BACKSET(REFX(DT1,1)=0 AND GT1>3 ?AND DT1>GT1 AND DT1-GT1<4 AND REFX(L,1)<REF(L,DT1) AND REF(H,GT1)<REF(HHV(H,10),GT1) ,GT1+1),NODRAW;FD23:=BACKSET(REFX(DT1,1)=0 AND GT1>3 ?AND DT1>GT1 AND DT1-GT1<4 AND REFX(L,1)<REF(L,DT1) AND ( REF(L,DT1)>REF(LLV(L,13),DT1) OR REF(FG231,GT1)=0),DT1+1),NODRAW;//前短后長，去3;FDD23:=REF(H,GT1)<REF(HHV(H,10),GT1) OR REF(FD23,DT1)=0,NODRAW;FD24:=BACKSET(REFX(GT1,1)=0 AND DT1>3 AND GT1>DT1 AND GT1-DT1<4 AND REFX(H,1)<HHV(H,GT1+3) AND REF(L,DT1)>LLV(L,DT1+5),DT1+1),NODRAW;FG24:=BACKSET(REFX(DT1,1)=0 AND GT1>3 ?AND DT1>GT1 AND DT1-GT1<4 AND REFX(L,1)>LLV(L,DT1+3) AND REF(H,GT1)<HHV(H,GT1+5),GT1+1),NODRAW;//做兩次高低點間多余的點GT2:=BARSLAST(FG21<>1 AND FG23<>1 AND FG231<>1 AND FG24<>1 ? AND FG2<>1 AND FG2A<>1 AND FG2B<>1 AND GT1=0),NODRAW;DT2:=BARSLAST(FD21<>1 AND FD23<>1 AND FD231<>1 AND FD24<>1 ?AND FD2<>1 AND FD2A<>1 AND FD2B<>1 AND DT1=0),NODRAW;FG3:=BACKSET(REFX(GT2,1)=0 AND GT2<DT2 AND REFX(H,1)>=REF(H,GT2),GT2+1),NODRAW;FD3:=BACKSET(REFX(DT2,1)=0 AND DT2<GT2 AND REFX(L,1)<=REF(L,DT2),DT2+1),NODRAW;FG31:=IF(GT2=0 AND REF(GT2,1)<DT2 AND H<REF(H,REF(GT2,1)+1),1,0),NODRAW;FD31:=IF(DT2=0 AND REF(DT2,1)<GT2 AND L>REF(L,REF(DT2,1)+1),1,0),NODRAW;GT3:=BARSLAST(GT2=0 AND FG3<>1 AND FG31<>1 ),NODRAW;DT3:=BARSLAST(DT2=0 AND ?FD3<>1 AND FD31<>1),NODRAW;FG4:=BACKSET(REFX(GT3,1)=0 AND GT3<DT3 AND REFX(H,1)>=REF(H,GT3),GT3+1),NODRAW;FD4:=BACKSET(REFX(DT3,1)=0 AND DT3<GT3 AND REFX(L,1)<=REF(L,DT3),DT3+1),NODRAW;FG41:=IF(GT3=0 AND REF(GT3,1)<DT3 AND H<REF(H,REF(GT3,1)+1),1,0),NODRAW;FD41:=IF(DT3=0 AND REF(DT3,1)<GT3 AND L>REF(L,REF(DT3,1)+1),1,0),NODRAW;HHH:=GT3=0 AND FG31<>1 AND ?FG3<>1,NODRAW;LLL:=DT3=0 AND FD31<>1 AND ?FD3<>1,NODRAW;?
//最后一段畫線N1:=BARSLAST(HHH)+1;NY2:=BARSLAST(LLL)+1;TJX1:=BARSLAST(HHH)+1>=5,NODRAW;TJX2:=BARSLAST(LLL)+1>=5,NODRAW;?
HAC:=VALUEWHEN(HHH,H);LAC:=VALUEWHEN(LLL,L);TLC:=BARSLAST(LLL);THC:=BARSLAST(HHH);NNNC:=COUNT(HHH||LLL,BARPOS);AAAC:=MOD(NNNC,2);?
//DRAWLINE1(HHH&&TJX2 ,H,LLL&&TJX1||ISLASTBAR,L,0),RGB(0,128,255),LINETHICK2;//分型線//DRAWLINE1(LLL&&TJX1,L,HHH&&TJX2||ISLASTBAR ,H,0),COLORMAGENTA,LINETHICK2;//分型線
//DRAWNUMBER(ISLASTBAR&&BARSLAST(HHH&&TJX2)<BARSLAST(LLL&&TJX1),C,C,0,RGB(0,128,255)),FONTSIZE30,ALIGN0;//DRAWNUMBER(ISLASTBAR&&BARSLAST(HHH&&TJX2)>BARSLAST(LLL&&TJX1),C,C,0,COLORMAGENTA),FONTSIZE30,ALIGN0;
?
?
HHR:=H>HV(H,BARSLAST(LLL)),NODRAW;DRAWSL((BARSLAST(HHH)>=BARSLAST(LLL)||HHH)&&MOD(COUNT(HHR,BARSLAST(LLL)),3)=0&&HHR,H,0,1,0,RGB(0,128,255)),LINETHICK2;LLR:=L<LV(L,BARSLAST(HHH)),NODRAW;DRAWSL((BARSLAST(HHH)<=BARSLAST(LLL)||LLL)&&MOD(COUNT(LLR,BARSLAST(HHH)),3)=0&&LLR,L,0,1,0,RGB(0,128,255)),LINETHICK2;
HHPP1:=VALUEWHEN((BARSLAST(HHH)>=BARSLAST(LLL)||HHH)&&MOD(COUNT(HHR,BARSLAST(LLL)),3)=0&&HHR,AVPRICE),COLORRED,LINETHICK2;HHPP2:=VALUEWHEN((BARSLAST(HHH)<=BARSLAST(LLL)||LLL)&&MOD(COUNT(LLR,BARSLAST(HHH)),3)=0&&LLR,AVPRICE),COLORGREEN,LINETHICK2;
//CROSS(BACKSET(LLL||ISLASTBAR,BARSLAST((BARSLAST(HHH)<=BARSLAST(LLL)||LLL)&&MOD(COUNT(LLR,BARSLAST(HHH)),3)=0&&LLR)+1),0.5),ICON(1,'CO107';//B//CROSS(BACKSET(HHH||ISLASTBAR,BARSLAST((BARSLAST(HHH)>=BARSLAST(LLL)||HHH)&&MOD(COUNT(HHR,BARSLAST(LLL)),3)=0&&HHR)+1),0.5),ICON(1,'CO106';//S//DRAWTEXT(CROSS(BACKSET(LLL||ISLASTBAR,BARSLAST((BARSLAST(HHH)<=BARSLAST(LLL)||LLL)&&MOD(COUNT(LLR,BARSLAST(HHH)),3)=0&&LLR)+1),0.5),L,'',FONTSIZE30,COLORYELLOW;//B//DRAWTEXT(CROSS(BACKSET(HHH||ISLASTBAR,BARSLAST((BARSLAST(HHH)>=BARSLAST(LLL)||HHH)&&MOD(COUNT(HHR,BARSLAST(LLL)),3)=0&&HHR)+1),0.5),L,'',FONTSIZE30,COLORYELLOW;//S
?
SAR11:=SAR1(18,2,10),CIRCLEDOT;SAR2:=SAR11;
//QSA:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;//QSA1:(MA(CLOSE,2)+MA(CLOSE,4)+MA(CLOSE,8)+MA(CLOSE,16))/4,COLORBLUE,LINETHICK3,NOTEXT;
//DRAWICON(C<ABS(SAR2) AND C<REF(C,1)*0.9995 ,QSA1,'CO11';//DRAWICON(C>ABS(SAR2) AND C>REF(C,1)*1.0005 ,QSA1,'CO12';
//PARTLINE1(C>ABS(SAR2) AND SAR2>0,QSA1),COLORRED,LINETHICK3;?//PARTLINE1(C<ABS(SAR2) AND SAR2>0,QSA1),COLORFF0000,LINETHICK3;
//QS1:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;//KJC:=QS1*0.93;//DRAWTEXT(CROSS(KJC,C) AND C<KJC,L*0.99,'單減倉',COLORYELLOW;MI1:=C-REF(C,1);MI:=IF(PERIOD-6>=2 AND PERIOD-6<6,MI1,0);AMI:=SMA(MI,3,1);F:=MA(REF(AMI,1),10)-MA(REF(AMI,1),20);DD:=SMA(F,10,1);DRAWBMP( CROSS(DD,F ) AND C>SAR2 ,H*1.007,'陽眼',VALIGN2;
DRAWBMP(FILTER(CROSS(C,ABS(SAR2)),10),L*0.9995,'CON5',VALIGN0;//B,S點//DRAWBMP(FILTER(CROSS(ABS(SAR2),C),10),H*1.0015,'CON9',VALIGN2;//{加速點}//壓力支持位1:=MA(CLOSE,26);//{壓力支撐線}//
//線條:MA(CLOSE,28),COLORFF00FF,LINETHICK3,NOTEXT;
//PARTLINE1(C>壓力支持位1 AND 壓力支持位1>0,線條),COLORFF00FF,LINETHICK3;?//PARTLINE1(C<壓力支持位1 AND 壓力支持位1>0,線條),COLOR00FFFF,LINETHICK3;?//PARTLINE1(C=壓力支持位1 AND 壓力支持位1>0,線條),COLOR000000,LINETHICK3;
A:=BARSLAST(HHH&&TJX2);B:=BARSLAST(LLL&&TJX1);
//STICKLINE1(A>B,H,MAX(O,C),0,0),COLORRED;//STICKLINE1(A>B,L,MIN(O,C),0,0),COLORRED;//{紅色K}//STICKLINE1(A>B&&ISUP,C,O,3,1),COLORRED;//STICKLINE1(A>B&&ISDOWN,C,O,3,0),COLORRED;
?
//STICKLINE1(A<B,H,MAX(O,C),0,0),COLORGREEN;//STICKLINE1(A<B,L,MIN(O,C),0,0),COLORGREEN;//{綠色K}//STICKLINE1(A<B&&ISUP,C,O,3,1),COLORGREEN;//STICKLINE1(A<B&&ISDOWN,C,O,3,0),COLORGREEN;
?
?
?
MA3:=MA(C,170);//DRAWGBK(MA3>C,RGB(0,0,0),RGB(9,60,1),0);//DRAWGBK(MA3<C,RGB(0,0,0),RGB(62,1,1),0);//DRAWGBK(MA3=0,RGB(0,0,0),RGB(0,0,0),0);TY:=H;TY1:=L;A1:=REF(TY,10)=HHV(TY,2*10+1);?VB1:=FILTER(A1,10);?C11:=BACKSET(VB1,10+1);?HD:=FILTER(C11,10);A2:=REF(TY1,10)=LLV(TY1,2*10+1);?VB2:=FILTER(A2,10);?C2:=BACKSET(VB2,10+1);?LD:=FILTER(C2,10);AA:=REF(H,BARSLAST(HD));?BA:=REF(L,BARSLAST(LD));T1:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD);T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);A3:=LLV(LOW,1);A4:=LLV(LOW,5);A5:=LLV(LOW,8);A6:=HHV(H,21);A7:=LLV(LOW,21),COLORRED;A8:=(A6+A7)/2;
上漲壓力:IF(T1,AA,AA),COLORLIGHTGREEN,DASH,NODRAW,PRECIS0;下跌支撐:IF(T2,BA,BA),COLORRED,DASH,NODRAW,PRECIS0;
開盤價:O,NODRAW,PRECIS0,COLORWHITE;收盤價:C,NODRAW,PRECIS0,COLORYELLOW;最高價:H,NODRAW,PRECIS0,COLORRED;最低價:L,NODRAW,PRECIS0,COLORGREEN;
?
?
支撐:=REF(LOW,BARSLAST(LD)),COLOR008000,DASHDOT;壓力:=REF(HIGH,BARSLAST(HD)),COLORFF0000,DASHDOT;
DRAWSL(ISLASTBAR ?,支撐,0,-BARSLAST(CROSS(BACKSET(ISLASTBAR,BARSLAST(LLL&&TJX1)+1),0.5))+1,0,COLOR008000),COLORMAGENTA,DASHDOT;DRAWSL(ISLASTBAR ? ,壓力,0,-BARSLAST(CROSS(BACKSET(ISLASTBAR,BARSLAST(HHH&&TJX2)+1),0.5))+1,0,COLORFF0000),COLORYELLOW,DASHDOT;
DRAWNUMBER1(ISLASTBAR,上漲壓力,上漲壓力,0),COLORYELLOW,FONTSIZE30,ALIGN0,VALIGN1;DRAWNUMBER1(ISLASTBAR,下跌支撐,下跌支撐,0),COLORMAGENTA,FONTSIZE30,ALIGN0,VALIGN1;
LC:= REF(CLOSE,1);RSI:=SMA(MAX(CLOSE-LC, 0), 6, 1)/SMA(ABS(CLOSE-LC), 6, 1)*100;//DRAWTEXT(FILTER(CROSS(RSI,30) AND (CLOSE>REF(HIGH,1.5)),5),LOW-LOW*0.001,'止贏',COLORGREEN,FONTSIZE26;//DRAWTEXT(FILTER(CROSS(70,RSI) AND (CLOSE<REF(LOW,1.5)),5),HIGH+HIGH*0.001,'止贏',COLORRED,FONTSIZE26;
DRAWTEXT(HHH&&TJX2,H,'',COLORYELLOW,FONTSIZE26;DRAWTEXT(LLL&&TJX1,L,'',COLORMAGENTA,FONTSIZE26,VALIGN0;
HZDWR:=MA((CLOSE-LLV(LOW,98))/(HHV(HIGH,98)-LLV(LOW,98))*120,8),COLORWHITE;?HZZWR:=MA((CLOSE-LLV(LOW,88))/(HHV(HIGH,88)-LLV(LOW,88))*120,8),COLORYELLOW;?RSV:=(CLOSE-LLV(LOW,26))/(HHV(HIGH,26)-LLV(LOW,26));?DY1:=(OPEN+CLOSE+HIGH+LOW)/4;?DY2:=LLV(LOW,13);?DY3:=HHV(HIGH,13);?DYA:=MA((DY1-DY2)/(DY3-DY2)*100,1);?DYB:=MA(DYA,5);?A11:=EMA((DY1-DY2)/(DY3-DY2)*180,20);?B1:=EMA(REF(A1,1),1);?B2:=MA((0.667*REF(RSV,1)+0.333*RSV),1);?RSV1:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;RSV2:=(CLOSE-LLV(LOW,26))/(HHV(HIGH,26)-LLV(LOW,26))*100;J1:=SMA(RSV1,3,1);J2:=SMA(J1,3,1);MA1:=MA(CLOSE,92);資金線1:=3*SMA(RSV2,5,1)-2*SMA(SMA(RSV2,5,1),3,1),NODRAW,COLOR00FFFF;資金線:3*SMA(RSV2,5,1)-2*SMA(SMA(RSV2,5,1),3,1),NODRAW,COLOR00FFFF,NOTEXT;
DRAWBKBMP( 資金線>=70.0000 AND 資金線<101.0000, ?'FKP',ALIGN2;DRAWBKBMP(資金線>=36.0000 AND 資金線<69.0000, ? ? 'KZD',ALIGN2;DRAWBKBMP( 資金線>=1.0000 AND 資金線<36.0000, ? ? ?'FKP',ALIGN2;
//DRAWNUMBER(ISLASTBAR,線條,線條,0,COLORCYAN),FONTSIZE20,ALIGN0,VALIGN1;
文件名：1564494695(1).jpg?
?來源:程序化99
-
文華技術人員：
?參考：
M:=5;//M值需要大于等于5?G:=MA(C,5);D:=MA(C,10);NNH:=BARSLAST(H=HHV(H,M)) ,NODRAW;NNL:=BARSLAST(L=LLV(L,M)) ,NODRAW;NNY:=IF(REF(G,NNH)>REF(D,NNH) AND NNH<=M-3,NNH,IF(REF(G,NNL)<REF(D,NNL) AND NNL<=M-3,NNL,M-2)) ,NODRAW;NNN:=IF(ISLASTBAR AND NNY>0,NNY,M-2) ,NODRAW;H1:=REF(H,NNN)=HHV(H,M-1);L1:=REF(L,NNN)=LLV(L,M-1);FG01:=BACKSET(H1,NNN+1)>BACKSET(H1,NNN),NODRAW;//只設置前面第M-1個FD01:=BACKSET(L1,NNN+1)>BACKSET(L1,NNN) ,NODRAW;FG02:=FG01=FD01 AND G>D,NODRAW;FD02:=FG01=FD01 AND G<D,NODRAW;TTTT:=BARSLAST(FD01),NODRAW;FG0:=FG01 AND IF(FG02=1,H=HHV(H,BARSLAST(REF(FD01,1))+1),H=HHV(H,IF(BARSLAST(L=LLV(L,M))>=M-2,M-2,BARSLAST(FD01)))) AND FD02=0 ,NODRAW;FD0:=FD01 AND IF(FD02=1,L=LLV(L,BARSLAST(REF(FG01,1))+1),L=LLV(L,IF(BARSLAST(H=HHV(L,M))>=M-2,M-2,BARSLAST(FG01))))? AND FG02=0 ,NODRAW;//高低點間周期GT:=BARSLAST(FG0),NODRAW;DT:=BARSLAST(FD0),NODRAW;//第一次處理高低點間多余的點LLLL:=DT=0 AND REF(DT,1)<GT AND L>REF(L,REF(DT,1)+1),NODRAW;FG1:=BACKSET(REFX(GT,1)=0 AND GT<DT AND REFX(H,1)>=REF(H,GT),GT+1),NODRAW;FD1:=BACKSET(REFX(DT,1)=0 AND DT<GT AND REFX(L,1)<=REF(L,DT),DT+1),NODRAW;FG11:=IF(GT=0 AND REF(GT,1)<DT AND IF(REF(G,BARSLAST(L=LLV(L,M)))>REF(D,BARSLAST(L=LLV(L,M))),BARSLAST(L=LLV(L,M))<M-2,1) AND? H<REF(H,REF(GT,1)+1),1,0),NODRAW;FD11:=IF(DT=0 AND REF(DT,1)<GT AND IF(REF(G,BARSLAST(H=HHV(H,M)))<REF(D,BARSLAST(H=HHV(H,M))),BARSLAST(H=HHV(H,M))<M-2,1) AND L>REF(L,REF(DT,1)+1),1,0),NODRAW;//再次周期GT1:=BARSLAST(FG11<>1 AND FG1<>1 AND FG0),NODRAW;DT1:=BARSLAST(FD11<>1 AND FD1<>1 AND FD0),NODRAW;FD2:=BACKSET(REFX(GT1,1)=0 AND DT1<3 AND GT1-DT1<4 AND REF(L,DT1)>LLV(L,GT1+M-2),DT1+1),NODRAW;FG2A:=BACKSET(REFX(GT1,1)=0 AND DT1<3 AND GT1-DT1<4 AND REF(L,DT1)<=LLV(L,GT1+M-2) AND REF(H,GT1)>HHV(H,GT1+M-2),GT1+1),NODRAW;FG2B:=IF(GT1=0 AND DT1<4 AND REF(GT1,1)-DT1<4 AND REF(L,DT1)<=LLV(L,REF(GT1,1)+M-1) AND H>HHV(H,REF(GT1,1)+M-1),1,0),NODRAW;FG2:=BACKSET(REFX(DT1,1)=0 AND GT1<3 AND DT1-GT1<4 AND REF(H,GT1)<HHV(H,DT1+M-2),GT1+1),NODRAW;FD2A:=BACKSET(REFX(DT1,1)=0 AND GT1<3 AND DT1-GT1<4 AND REF(H,GT1)>=HHV(L,DT1+M-2) AND REF(L,DT1)>LLV(L,DT1+M-2),DT1+1),NODRAW;FD2B:=IF(DT1=0 AND GT1<4 AND REF(DT1,1)-GT1<4 AND REF(H,GT1)>=HHV(H,REF(DT1,1)+6) AND L>LLV(L,REF(DT1,1)+M-1),1,0),NODRAW;TTTTTT:= H<REF(H,REF(GT1,1)+1) AND DT1<4,NODRAW;HHHHHH:=REF(LLV(L,10),DT1),NODRAW;//前長后短;FG21:=IF(GT1=0 AND DT1<4 AND H<=REF(H,REF(GT1,1)+1)? ,1,0),NODRAW;FD21:=IF(DT1=0 AND GT1<4? AND L>=REF(L,REF(DT1,1)+1) ,1,0),NODRAW;//前短后長,前低后高（去低）;FD231:=BACKSET(REFX(GT1,1)=0 AND DT1>3 AND GT1>DT1 AND GT1-DT1<4 AND REFX(H,1)>REF(H,GT1) AND REF(L,DT1)>REF(LLV(L,10),DT1),DT1+1),NODRAW;FG23:=BACKSET(REFX(GT1,1)=0 AND DT1>3 AND GT1>DT1 AND? GT1-DT1<4 AND REFX(H,1)>REF(H,GT1) AND (REF(H,GT1)<REF(HHV(H,13),GT1) OR REF(FD231,DT1)=0),GT1+1),NODRAW;//前短后長，去2;FG231:=BACKSET(REFX(DT1,1)=0 AND GT1>3? AND DT1>GT1 AND DT1-GT1<4 AND REFX(L,1)<REF(L,DT1) AND REF(H,GT1)<REF(HHV(H,10),GT1) ,GT1+1),NODRAW;FD23:=BACKSET(REFX(DT1,1)=0 AND GT1>3? AND DT1>GT1 AND DT1-GT1<4 AND REFX(L,1)<REF(L,DT1) AND ( REF(L,DT1)>REF(LLV(L,13),DT1) OR REF(FG231,GT1)=0),DT1+1),NODRAW;//前短后長，去3;FDD23:=REF(H,GT1)<REF(HHV(H,10),GT1) OR REF(FD23,DT1)=0,NODRAW;FD24:=BACKSET(REFX(GT1,1)=0 AND DT1>3 AND GT1>DT1 AND GT1-DT1<4 AND REFX(H,1)<HHV(H,GT1+3) AND REF(L,DT1)>LLV(L,DT1+5),DT1+1),NODRAW;FG24:=BACKSET(REFX(DT1,1)=0 AND GT1>3? AND DT1>GT1 AND DT1-GT1<4 AND REFX(L,1)>LLV(L,DT1+3) AND REF(H,GT1)<HHV(H,GT1+5),GT1+1),NODRAW;//做兩次高低點間多余的點GT2:=BARSLAST(FG21<>1 AND FG23<>1 AND FG231<>1 AND FG24<>1? ?AND FG2<>1 AND FG2A<>1 AND FG2B<>1 AND GT1=0),NODRAW;DT2:=BARSLAST(FD21<>1 AND FD23<>1 AND FD231<>1 AND FD24<>1? AND FD2<>1 AND FD2A<>1 AND FD2B<>1 AND DT1=0),NODRAW;FG3:=BACKSET(REFX(GT2,1)=0 AND GT2<DT2 AND REFX(H,1)>=REF(H,GT2),GT2+1),NODRAW;FD3:=BACKSET(REFX(DT2,1)=0 AND DT2<GT2 AND REFX(L,1)<=REF(L,DT2),DT2+1),NODRAW;FG31:=IF(GT2=0 AND REF(GT2,1)<DT2 AND H<REF(H,REF(GT2,1)+1),1,0),NODRAW;FD31:=IF(DT2=0 AND REF(DT2,1)<GT2 AND L>REF(L,REF(DT2,1)+1),1,0),NODRAW;GT3:=BARSLAST(GT2=0 AND FG3<>1 AND FG31<>1 ),NODRAW;DT3:=BARSLAST(DT2=0 AND? FD3<>1 AND FD31<>1),NODRAW;FG4:=BACKSET(REFX(GT3,1)=0 AND GT3<DT3 AND REFX(H,1)>=REF(H,GT3),GT3+1),NODRAW;FD4:=BACKSET(REFX(DT3,1)=0 AND DT3<GT3 AND REFX(L,1)<=REF(L,DT3),DT3+1),NODRAW;FG41:=IF(GT3=0 AND REF(GT3,1)<DT3 AND H<REF(H,REF(GT3,1)+1),1,0),NODRAW;FD41:=IF(DT3=0 AND REF(DT3,1)<GT3 AND L>REF(L,REF(DT3,1)+1),1,0),NODRAW;HHH:=GT3=0 AND FG31<>1 AND? FG3<>1,NODRAW;LLL:=DT3=0 AND FD31<>1 AND? FD3<>1,NODRAW;?
//最后一段畫線N1:=BARSLAST(HHH)+1;NY2:=BARSLAST(LLL)+1;TJX1:=BARSLAST(HHH)+1>=5,NODRAW;TJX2:=BARSLAST(LLL)+1>=5,NODRAW;?
HAC:=VALUEWHEN(HHH,H);LAC:=VALUEWHEN(LLL,L);TLC:=BARSLAST(LLL);THC:=BARSLAST(HHH);NNNC:=COUNT(HHH||LLL,BARPOS);AAAC:=MOD(NNNC,2);?
//DRAWLINE1(HHH&&TJX2 ,H,LLL&&TJX1||ISLASTBAR,L,0),RGB(0,128,255),LINETHICK2;//分型線//DRAWLINE1(LLL&&TJX1,L,HHH&&TJX2||ISLASTBAR ,H,0),COLORMAGENTA,LINETHICK2;//分型線
//DRAWNUMBER(ISLASTBAR&&BARSLAST(HHH&&TJX2)<BARSLAST(LLL&&TJX1),C,C,0,RGB(0,128,255)),FONTSIZE30,ALIGN0;//DRAWNUMBER(ISLASTBAR&&BARSLAST(HHH&&TJX2)>BARSLAST(LLL&&TJX1),C,C,0,COLORMAGENTA),FONTSIZE30,ALIGN0;
?
?
HHR:=H>HV(H,BARSLAST(LLL)),NODRAW;DRAWSL((BARSLAST(HHH)>=BARSLAST(LLL)||HHH)&&MOD(COUNT(HHR,BARSLAST(LLL)),3)=0&&HHR,H,0,1,0,RGB(0,128,255)),LINETHICK2;LLR:=L<LV(L,BARSLAST(HHH)),NODRAW;DRAWSL((BARSLAST(HHH)<=BARSLAST(LLL)||LLL)&&MOD(COUNT(LLR,BARSLAST(HHH)),3)=0&&LLR,L,0,1,0,RGB(0,128,255)),LINETHICK2;
HHPP1:=VALUEWHEN((BARSLAST(HHH)>=BARSLAST(LLL)||HHH)&&MOD(COUNT(HHR,BARSLAST(LLL)),3)=0&&HHR,AVPRICE),COLORRED,LINETHICK2;HHPP2:=VALUEWHEN((BARSLAST(HHH)<=BARSLAST(LLL)||LLL)&&MOD(COUNT(LLR,BARSLAST(HHH)),3)=0&&LLR,AVPRICE),COLORGREEN,LINETHICK2;
//CROSS(BACKSET(LLL||ISLASTBAR,BARSLAST((BARSLAST(HHH)<=BARSLAST(LLL)||LLL)&&MOD(COUNT(LLR,BARSLAST(HHH)),3)=0&&LLR)+1),0.5),ICON(1,'ICO107');//B//CROSS(BACKSET(HHH||ISLASTBAR,BARSLAST((BARSLAST(HHH)>=BARSLAST(LLL)||HHH)&&MOD(COUNT(HHR,BARSLAST(LLL)),3)=0&&HHR)+1),0.5),ICON(1,'ICO106');//S//DRAWTEXT(CROSS(BACKSET(LLL||ISLASTBAR,BARSLAST((BARSLAST(HHH)<=BARSLAST(LLL)||LLL)&&MOD(COUNT(LLR,BARSLAST(HHH)),3)=0&&LLR)+1),0.5),L,'B'),FONTSIZE30,COLORYELLOW;//B//DRAWTEXT(CROSS(BACKSET(HHH||ISLASTBAR,BARSLAST((BARSLAST(HHH)>=BARSLAST(LLL)||HHH)&&MOD(COUNT(HHR,BARSLAST(LLL)),3)=0&&HHR)+1),0.5),L,'S'),FONTSIZE30,COLORYELLOW;//S
?
SAR11:=SAR1(18,2,10),CIRCLEDOT;SAR2:=SAR11;
//QSA:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;//QSA1:(MA(CLOSE,2)+MA(CLOSE,4)+MA(CLOSE,8)+MA(CLOSE,16))/4,COLORBLUE,LINETHICK3,NOTEXT;
//DRAWICON(C<ABS(SAR2) AND C<REF(C,1)*0.9995 ,QSA1,'ICO11');//DRAWICON(C>ABS(SAR2) AND C>REF(C,1)*1.0005 ,QSA1,'ICO12');
//PARTLINE1(C>ABS(SAR2) AND SAR2>0,QSA1),COLORRED,LINETHICK3;?//PARTLINE1(C<ABS(SAR2) AND SAR2>0,QSA1),COLORFF0000,LINETHICK3;
//QS1:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;//KJC:=QS1*0.93;//DRAWTEXT(CROSS(KJC,C) AND C<KJC,L*0.99,'空單減倉'),COLORYELLOW;MI1:=C-REF(C,1);MI:=IF(PERIOD-6>=2 AND PERIOD-6<6,MI1,0);AMI:=SMA(MI,3,1);F:=MA(REF(AMI,1),10)-MA(REF(AMI,1),20);DD:=SMA(F,10,1);DRAWBMP( CROSS(DD,F ) AND C>SAR2 ,H*1.007,'太陽眼'),VALIGN2;
DRAWBMP(FILTER(CROSS(C,ABS(SAR2)),10),L*0.9995,'ICON5'),VALIGN0;//B,S點//DRAWBMP(FILTER(CROSS(ABS(SAR2),C),10),H*1.0015,'ICON9'),VALIGN2;//{加速點}//壓力支持位1:=MA(CLOSE,26);//{壓力支撐線}//
//線條:MA(CLOSE,28),COLORFF00FF,LINETHICK3,NOTEXT;
//PARTLINE1(C>壓力支持位1 AND 壓力支持位1>0,線條),COLORFF00FF,LINETHICK3;?//PARTLINE1(C<壓力支持位1 AND 壓力支持位1>0,線條),COLOR00FFFF,LINETHICK3;?//PARTLINE1(C=壓力支持位1 AND 壓力支持位1>0,線條),COLOR000000,LINETHICK3;
A:=BARSLAST(HHH&&TJX2);B:=BARSLAST(LLL&&TJX1);
//STICKLINE1(A>B,H,MAX(O,C),0,0),COLORRED;//STICKLINE1(A>B,L,MIN(O,C),0,0),COLORRED;//{紅色K}//STICKLINE1(A>B&&ISUP,C,O,3,1),COLORRED;//STICKLINE1(A>B&&ISDOWN,C,O,3,0),COLORRED;
?
//STICKLINE1(A<B,H,MAX(O,C),0,0),COLORGREEN;//STICKLINE1(A<B,L,MIN(O,C),0,0),COLORGREEN;//{綠色K}//STICKLINE1(A<B&&ISUP,C,O,3,1),COLORGREEN;//STICKLINE1(A<B&&ISDOWN,C,O,3,0),COLORGREEN;
?
?
?
MA3:=MA(C,170);//DRAWGBK(MA3>C,RGB(0,0,0),RGB(9,60,1),0);//DRAWGBK(MA3<C,RGB(0,0,0),RGB(62,1,1),0);//DRAWGBK(MA3=0,RGB(0,0,0),RGB(0,0,0),0);TY:=H;TY1:=L;A1:=REF(TY,10)=HHV(TY,2*10+1);?VB1:=FILTER(A1,10);?C11:=BACKSET(VB1,10+1);?HD:=FILTER(C11,10);A2:=REF(TY1,10)=LLV(TY1,2*10+1);?VB2:=FILTER(A2,10);?C2:=BACKSET(VB2,10+1);?LD:=FILTER(C2,10);AA:=REF(H,BARSLAST(HD));?BA:=REF(L,BARSLAST(LD));T1:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD);T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);A3:=LLV(LOW,1);A4:=LLV(LOW,5);A5:=LLV(LOW,8);A6:=HHV(H,21);A7:=LLV(LOW,21),COLORRED;A8:=(A6+A7)/2;
上漲壓力:IF(T1,AA,AA),COLORLIGHTGREEN,DASH,NODRAW,PRECIS2;下跌支撐:IF(T2,BA,BA),COLORRED,DASH,NODRAW,PRECIS2;
開盤價:O,NODRAW,PRECIS2,COLORWHITE;收盤價:C,NODRAW,PRECIS2,COLORYELLOW;最高價:H,NODRAW,PRECIS2,COLORRED;最低價:L,NODRAW,PRECIS2,COLORGREEN;
?
?
支撐:=REF(LOW,BARSLAST(LD)),COLOR008000,DASHDOT;壓力:=REF(HIGH,BARSLAST(HD)),COLORFF0000,DASHDOT;
DRAWSL(ISLASTBAR? ,支撐,0,-BARSLAST(CROSS(BACKSET(ISLASTBAR,BARSLAST(LLL&&TJX1)+1),0.5))+1,0,COLOR008000),COLORMAGENTA,DASHDOT;DRAWSL(ISLASTBAR? ?,壓力,0,-BARSLAST(CROSS(BACKSET(ISLASTBAR,BARSLAST(HHH&&TJX2)+1),0.5))+1,0,COLORFF0000),COLORYELLOW,DASHDOT;
DRAWNUMBER1(ISLASTBAR,上漲壓力,上漲壓力,2),COLORYELLOW,FONTSIZE30,ALIGN0,VALIGN1;DRAWNUMBER1(ISLASTBAR,下跌支撐,下跌支撐,2),COLORMAGENTA,FONTSIZE30,ALIGN0,VALIGN1;
LC:= REF(CLOSE,1);RSI:=SMA(MAX(CLOSE-LC, 0), 6, 1)/SMA(ABS(CLOSE-LC), 6, 1)*100;//DRAWTEXT(FILTER(CROSS(RSI,30) AND (CLOSE>REF(HIGH,1.5)),5),LOW-LOW*0.001,'空止贏'),COLORGREEN,FONTSIZE26;//DRAWTEXT(FILTER(CROSS(70,RSI) AND (CLOSE<REF(LOW,1.5)),5),HIGH+HIGH*0.001,'多止贏'),COLORRED,FONTSIZE26;
DRAWTEXT(HHH&&TJX2,H,'賣'),COLORYELLOW,FONTSIZE26;DRAWTEXT(LLL&&TJX1,L,'買'),COLORMAGENTA,FONTSIZE26,VALIGN0;
HZDWR:=MA((CLOSE-LLV(LOW,98))/(HHV(HIGH,98)-LLV(LOW,98))*120,8),COLORWHITE;?HZZWR:=MA((CLOSE-LLV(LOW,88))/(HHV(HIGH,88)-LLV(LOW,88))*120,8),COLORYELLOW;?RSV:=(CLOSE-LLV(LOW,26))/(HHV(HIGH,26)-LLV(LOW,26));?DY1:=(OPEN+CLOSE+HIGH+LOW)/4;?DY2:=LLV(LOW,13);?DY3:=HHV(HIGH,13);?DYA:=MA((DY1-DY2)/(DY3-DY2)*100,1);?DYB:=MA(DYA,5);?A11:=EMA((DY1-DY2)/(DY3-DY2)*180,20);?B1:=EMA(REF(A1,1),1);?B2:=MA((0.667*REF(RSV,1)+0.333*RSV),1);?RSV1:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;RSV2:=(CLOSE-LLV(LOW,26))/(HHV(HIGH,26)-LLV(LOW,26))*100;J1:=SMA(RSV1,3,1);J2:=SMA(J1,3,1);MA1:=MA(CLOSE,92);資金線1:=3*SMA(RSV2,5,1)-2*SMA(SMA(RSV2,5,1),3,1),NODRAW,COLOR00FFFF;資金線:3*SMA(RSV2,5,1)-2*SMA(SMA(RSV2,5,1),3,1),NODRAW,COLOR00FFFF,NOTEXT;
DRAWBKBMP( 資金線>=70.0000 AND 資金線<101.0000,? 'DFKP'),ALIGN2;DRAWBKBMP(資金線>=36.0000 AND 資金線<69.0000,? ? ?'DKZD'),ALIGN2;DRAWBKBMP( 資金線>=1.0000 AND 資金線<36.0000,? ? ? 'KFKP'),ALIGN2;
//DRAWNUMBER(ISLASTBAR,線條,線條,0,COLORCYAN),FONTSIZE20,ALIGN0,VALIGN1;?
?來源: www.tumamayizhan.com
-
文華客服：
?還有，能否將出現 了 買賣的字樣后， 出一個 鈴聲提示
?
-
網友回復：
?謝謝老師拉
?
- 網友回復： ?老師，修改的還是不對，我看 歐元09的時候，只有小數點后兩位
有思路，想編寫各種指標公式，程序化交易模型，選股公式，預警公式的朋友
可聯系技術人員 QQ: 262069696 或微信：cxhjy888 進行 有償 編寫！
相關文章
-
沒有相關內容
會員登錄/注冊