請幫忙轉成文華可用

作者：文華財經來源：cxh99.com 發布時間：2024年02月08日

咨詢內容： ?N1:=10;X1:(MA(CLOSE,5)+MA(CLOSE,10)+MA(CLOSE,25))/3,COLORGREEN;X2:(MA(CLOSE,5)+MA(CLOSE,10)+MA(CLOSE,20)+MA(CLOSE,30)+MA(CLOSE,60)+MA(CLOSE,120))/6,COLORGREEN;X3:(MA(CLOSE,20)+MA(CLOSE,60)+MA(CLOSE,120))/3,COLORGREEN;X4:=(MA(CLOSE,13)+MA(CLOSE,34)+MA(CLOSE,55))/3;DRAWLINE(X1>X4,X1,X1>X4,X4,COLORRED);DRAWLINE(X1<X4,X1,X1<X4,X4,COLORGREEN);DRAWTEXT(CROSS(X1,X4),X1,'買';PARTLINE(X1>X2,X3),COLORRED;PARTLINE(X1>X2,X1),COLORRED;PARTLINE(X2>X3,X2),COLORRED;
DAYBARPOS:=BARSLAST(REF(HOUR,1)=15 AND HOUR<>15);
OO:VALUEWHEN(DAYBARPOS=1,O);LC1:=REF(CLOSE,1);TR1:=MIN((HIGH - LOW),MAX((HIGH - LC1),(LC1 - LOW)));ATR1:=SMA(TR1,20,1);?AA1A:=(LLV(LOW,N1) - (2 * ATR1));BB1A:=CROSS(REF(LLV(LOW,55),1),CLOSE);SSS1:=CROSS(CLOSE,MAX(MA(CLOSE,13),AA1A));BBB1:=BARSLAST(BB1A);SSSB1:=BARSLAST(SSS1);B11:=((BBB1 = 0) && (REF(SSSB1,1) > REF(BBB1,1)));B1B1:=BARSLAST(B11);B21:=((((BB1A = 1) && (B1B1 > SSSB1)) && (B1B1 < 0)) && (COUNT(BB1A,SSSB1) > 3));B2B1:=BARSLAST(B21);B31:=((((BB1A = 1) && (B2B1 > B1B1)) && (COUNT(BB1A,SSSB1) > 4)) && (COUNT(BB1A,SSSB1) < 2));B3B1:=BARSLAST(B31);SS1A:=CROSS(CLOSE,MIN(AA1A,MA(CLOSE,13)));SS11:=(((SS1A && ((B3B1 > B2B1) || (B2B1 > B1B1))) && (SSSB1 < B1B1)) && (COUNT(SS1A,B2B1) > 2));SS1B1:=BARSLAST(SS11);SS21:=((((SS1A && (SS1B1 > SSSB1)) && (B3B1 > B2B1)) && (SS1B1 < 0)) && (COUNT(SS1A,B2B1) > 3));SSSS1:=(SSS1 && (REF(SSSB1,1) > REF(B1B1,1)));DRAWTEXT(B11,(LOW - 0.25),'1/2';DRAWTEXT((B21),(LOW - 0.25),'2/3';DRAWTEXT((B31),(LOW - 0.25),'1/3';DRAWTEXT((SS11),(HIGH + 0.25),'買100%';DRAWTEXT((SS21),(HIGH + 0.25),'買100%';DRAWTEXT((SSSS1),(HIGH + 0.25),'買100%';?
?
?來源:程序化99
文華技術人員： ? 參考：
?N1:=10;X1:(MA(CLOSE,5)+MA(CLOSE,10)+MA(CLOSE,25))/3,COLORGREEN;X2:(MA(CLOSE,5)+MA(CLOSE,10)+MA(CLOSE,20)+MA(CLOSE,30)+MA(CLOSE,60)+MA(CLOSE,120))/6,COLORGREEN;X3:(MA(CLOSE,20)+MA(CLOSE,60)+MA(CLOSE,120))/3,COLORGREEN;X4:=(MA(CLOSE,13)+MA(CLOSE,34)+MA(CLOSE,55))/3;DRAWLINE(X1>X4,X1,X1>X4,X4,COLORRED);DRAWLINE(X1<X4,X1,X1<X4,X4,COLORGREEN);DRAWTEXT(CROSS(X1,X4),X1,'買';PARTLINE1(X1>X2,X3),COLORRED;PARTLINE1(X1>X2,X1),COLORRED;PARTLINE1(X2>X3,X2),COLORRED;
DAYBARPOS1:=BARSLAST(REF(HOUR,1)=15 AND HOUR<>15);OO:VALUEWHEN(DAYBARPOS1=1,O);LC1:=REF(CLOSE,1);TR1:=MIN((HIGH - LOW),MAX((HIGH - LC1),(LC1 - LOW)));ATR1:=SMA(TR1,20,1);?AA1A:=(LLV(LOW,N1) - (2 * ATR1));BB1A:=CROSS(REF(LLV(LOW,55),1),CLOSE);SSS1:=CROSS(CLOSE,MAX(MA(CLOSE,13),AA1A));BBB1:=BARSLAST(BB1A);SSSB1:=BARSLAST(SSS1);B11:=((BBB1 = 0) && (REF(SSSB1,1) > REF(BBB1,1)));B1B1:=BARSLAST(B11);B21:=((((BB1A = 1) && (B1B1 > SSSB1)) && (B1B1 < 0)) && (COUNT(BB1A,SSSB1) > 3));B2B1:=BARSLAST(B21);B31:=((((BB1A = 1) && (B2B1 > B1B1)) && (COUNT(BB1A,SSSB1) > 4)) && (COUNT(BB1A,SSSB1) < 2));B3B1:=BARSLAST(B31);SS1A:=CROSS(CLOSE,MIN(AA1A,MA(CLOSE,13)));SS11:=(((SS1A && ((B3B1 > B2B1) || (B2B1 > B1B1))) && (SSSB1 < B1B1)) && (COUNT(SS1A,B2B1) > 2));SS1B1:=BARSLAST(SS11);SS21:=((((SS1A && (SS1B1 > SSSB1)) && (B3B1 > B2B1)) && (SS1B1 < 0)) && (COUNT(SS1A,B2B1) > 3));SSSS1:=(SSS1 && (REF(SSSB1,1) > REF(B1B1,1)));DRAWTEXT(B11,(LOW - 0.25),'1/2';DRAWTEXT((B21),(LOW - 0.25),'2/3';DRAWTEXT((B31),(LOW - 0.25),'1/3';DRAWTEXT((SS11),(HIGH + 0.25),'買100%';DRAWTEXT((SS21),(HIGH + 0.25),'買100%';DRAWTEXT((SSSS1),(HIGH + 0.25),'買100%';?