[求助]關于樞紐點問題

作者：文華財經來源：cxh99.com 發布時間：2019年03月28日

咨詢內容： ?關于樞紐點的計算，第一部分已編碼解決，現在想老師幫忙第二部分的。第一部分是根據昨日的最高最低價和收盤價來計算的；第二部分要根據前日的最高價、最低價、收盤價來計算，并且把數值標注在畫線中間部位，文字標注在畫線的最左側。請老師幫修改完善第二部分。編碼如下，第一部分： N:=BARSLAST(DATE<>REF(DATE,1))+1;OO:=REF(O,N-1);//開盤價HH:=HHV(H,N);//當前最高價LL:=LLV(L,N);//當前最低價CZ:=REF(C,N);//昨日收盤價HZ:=REF(HH,N);//昨日最高價LZ:=REF(LL,N);//昨日最低價PP:=(CZ+HZ+LZ)/3;R1:=2*PP-LZ;R2:=PP+(HZ-LZ);R3:=HZ+2*(PP-LZ);S1:=2*PP-HZ;S2:=PP-(HZ-LZ);S3:=LZ-2*(HZ-PP);DRAWSL(ISLASTBAR,PP,0,-100,0,COLORWHITE),LINETHICK3;// 樞紐點(PP)=(最高價+最低價+收盤價)/3DRAWSL(ISLASTBAR,R1,0,-100,0,COLORGREEN),DASH; ? ? ?// 第一阻力位(R1) = (2 X PP)-最低價DRAWSL(ISLASTBAR,R2,0,-100,0,COLORGREEN),DASH; ? // 第二阻力位(R2) = PP+(最高價-最低價)DRAWSL(ISLASTBAR,R3,0,-100,0,COLORGREEN),DASH; // 第三阻力位(R3) = 最高價+2(PP-最低價)DRAWSL(ISLASTBAR,S1,0,-100,0,COLORMAGENTA); ? ? ? ? // 第一支撐位(S1) = (2 X PP)- 最高價DRAWSL(ISLASTBAR,S2,0,-100,0,COLORMAGENTA); ? ? ?// 第二支撐位(S2) = PP-(最高價-最低價)DRAWSL(ISLASTBAR,S3,0,-100,0,COLORMAGENTA); ? ?// 第三支撐位(S3) = 最低價-2(最高價-PP)DRAWTEXT(ISLASTBAR=1,PP,'? ? ? ? ? ? (樞紐點) ';DRAWTEXT(ISLASTBAR=1,R1,'? ? ? ? ? ? (第一阻力位) ';DRAWTEXT(ISLASTBAR=1,S1,'? ? ? ? ? ? (第一支撐位) ';DRAWTEXT(ISLASTBAR=1,S2,'? ? ? ? ? ? (第二支撐位) ';AAA:=CROSS(BACKSET(ISLASTBAR,50),0.5),NODRAW;DRAWNUMBER(AAA,PP,PP,0 ,COLORWHITE );DRAWNUMBER(AAA,R1,R1,0 ,COLORWHITE );DRAWNUMBER(AAA,S1,S1,0 ,COLORWHITE );DRAWNUMBER(AAA,S2,S2,0 ,COLORWHITE );第二部分：PPQ:=( REF(REF(C,N),N)+ REF(REF(HH,N),N)+ REF(REF(LL,N),N))/3;RQ1:=2*PPQ- REF(REF(LL,N),N);RQ2:=PPQ+ REF(REF(HH,N),N)- REF(REF(LL,N),N);RQ3:= REF(REF(HH,N),N) +2* (PPQ - REF(REF(LL,N),N) );SQ1:=2*PPQ- REF(REF(HH,N),N);SQ2:= PPQ- (REF(REF(HH,N),N)- REF(REF(LL,N),N));SQ3:= REF(REF(LL,N),N)- 2* ( REF(REF(HH,N),N)- PP);DRAWSL(ISLASTBAR,PPQ,0,-500,0,COLORWHITE),DASHDOT; ? ? ? // 樞紐點(PPQ)=(前日最高價+前日最低價+前日收盤價)/3DRAWSL(ISLASTBAR, RQ1,0, -500,0,COLORGRAY),DOT; ? ? ?// 第一阻力位(RQ1) = (2 X PP)-前日最低價DRAWSL(ISLASTBAR,RQ2,0, -500,0,COLORGRAY),DOT; ? ? ? // 第二阻力位(RQ2) = PP+(前日最高價-前日最低價)DRAWSL(ISLASTBAR,RQ3,0, -500,0,COLORGRAY),DOT; ? ? ? // 第三阻力位(RQ3) = 前日最高價+2(PP-前日最低價)DRAWSL(ISLASTBAR,SQ1,0, -500,0,COLORMAGENTA),DOT; ? ? ? ? // 第一支撐位(SQ1) = (2 X PP)- 前日最高價DRAWSL(ISLASTBAR,SQ2,0,- 500,0,COLORMAGENTA),DOT; ? ? ? ? // 第二支撐位(SQ2) = PP-(前日最高價-前日最低價)DRAWSL(ISLASTBAR,SQ3,0,- 500,0,COLORMAGENTA),DOT; ? ? ? ? // 第三支撐位(SQ3) = 前日最低價-2(前日最高價-PP)AAA2:CROSS(BACKSET(ISLASTBAR,500),0.5),NODRAW;DRAWTEXT(AAA2,PPQ,'樞紐點) ',COLORWHITE;DRAWTEXT(AAA2,RQ1,'第一阻力位)',COLORWHITE;DRAWTEXT(AAA2,RQ2,'第二阻力位)',COLORWHITE;DRAWTEXT(AAA2,RQ3,'第三阻力位)',COLORWHITE;DRAWTEXT(AAA2,SQ1,'第一支撐位)',COLORWHITE;DRAWTEXT(AAA2,SQ2,'第二支撐位)',COLORWHITE;DRAWTEXT(AAA2,SQ3,'第三支撐位)',COLORWHITE;DRAWNUMBER(AAA2,-250,PPQ,0 ,COLORWHITE );DRAWNUMBER(AAA2,-250,RQ1,0 ,COLORWHITE );DRAWNUMBER(AAA2,-250,SQ1,0 ,COLORWHITE );DRAWNUMBER(AAA2,-250,SQ2,0 ,COLORWHITE );
?
?來源:程序化99
文華技術人員： 第二部分參考：
PPQ:=( REF(REF(C,N),N)+ REF(REF(HH,N),N)+ REF(REF(LL,N),N))/3;
RQ1:=2*PPQ- REF(REF(LL,N),N);
RQ2:=PPQ+ REF(REF(HH,N),N)- REF(REF(LL,N),N);
RQ3:= REF(REF(HH,N),N) +2* (PPQ - REF(REF(LL,N),N) );
SQ1:=2*PPQ- REF(REF(HH,N),N);
SQ2:= PPQ- (REF(REF(HH,N),N)- REF(REF(LL,N),N));
SQ3:= REF(REF(LL,N),N)- 2* ( REF(REF(HH,N),N)- PP);
DRAWSL(ISLASTBAR,PPQ,0,-500,0,COLORWHITE),DASHDOT;?????? // 樞紐點(PPQ)=(前日最高價+前日最低價+前日收盤價)/3
DRAWSL(ISLASTBAR, RQ1,0, -500,0,COLORGRAY),DOT;????? // 第一阻力位(RQ1) = (2 X PP)-前日最低價
DRAWSL(ISLASTBAR,RQ2,0, -500,0,COLORGRAY),DOT;?????? // 第二阻力位(RQ2) = PP+(前日最高價-前日最低價)
DRAWSL(ISLASTBAR,RQ3,0, -500,0,COLORGRAY),DOT;?????? // 第三阻力位(RQ3) = 前日最高價+2(PP-前日最低價)
DRAWSL(ISLASTBAR,SQ1,0, -500,0,COLORMAGENTA),DOT;???????? // 第一支撐位(SQ1) = (2 X PP)- 前日最高價
DRAWSL(ISLASTBAR,SQ2,0,- 500,0,COLORMAGENTA),DOT;???????? // 第二支撐位(SQ2) = PP-(前日最高價-前日最低價)
DRAWSL(ISLASTBAR,SQ3,0,- 500,0,COLORMAGENTA),DOT;???????? // 第三支撐位(SQ3) = 前日最低價-2(前日最高價-PP)
KTEXT(ISLASTBAR,-500,PPQ,1,COLORWHITE,'(樞紐點) ');
KTEXT(ISLASTBAR,-500,RQ1,1,COLORWHITE,'(第一阻力位)');
KTEXT(ISLASTBAR,-500,RQ2,1,COLORWHITE,'(第二阻力位)');
KTEXT(ISLASTBAR,-500,RQ3,1,COLORWHITE,'(第三阻力位)');
KTEXT(ISLASTBAR,-500,SQ1,1,COLORWHITE,'(第一支撐位)');
KTEXT(ISLASTBAR,-500,SQ2,1,COLORWHITE,'(第二支撐位)');
KTEXT(ISLASTBAR,-500,SQ3,1,COLORWHITE,'(第三支撐位)');
DRAWNUMBER(CROSS(BACKSET(ISLASTBAR,250),0.5),PPQ,PPQ,0 ,COLORWHITE );
DRAWNUMBER(CROSS(BACKSET(ISLASTBAR,250),0.5),RQ1,RQ1,0 ,COLORWHITE );
DRAWNUMBER(CROSS(BACKSET(ISLASTBAR,250),0.5),SQ1,SQ1,0 ,COLORWHITE );
DRAWNUMBER(CROSS(BACKSET(ISLASTBAR,250),0.5),SQ2,SQ2,0 ,COLORWHITE );
?
?
?來源: www.tumamayizhan.com
文華客服： ?老師好能在線上同時標注點位嗎？右邊有字的在左邊標注價位，左邊有字的在右邊標注價位。謝謝
?
網友回復： ?這樣看下
N:=BARSLAST(DATE<>REF(DATE,1))+1; OO:=REF(O,N-1);//開盤價 HH:=HHV(H,N);//當前最高價 LL:=LLV(L,N);//當前最低價 CZ:=REF(C,N);//昨日收盤價 HZ:=REF(HH,N);//昨日最高價 LZ:=REF(LL,N);//昨日最低價 PP:=(CZ+HZ+LZ)/3; R1:=2*PP-LZ; R2:=PP+(HZ-LZ); R3:=HZ+2*(PP-LZ); S1:=2*PP-HZ; S2:=PP-(HZ-LZ); S3:=LZ-2*(HZ-PP); DRAWSL(ISLASTBAR,PP,0,-100,0,COLORWHITE),LINETHICK3;// 樞紐點(PP)=(最高價+最低價+收盤價)/3 DRAWSL(ISLASTBAR,R1,0,-100,0,COLORGREEN),DASH; ? ? ?// 第一阻力位(R1) = (2 X PP)-最低價 DRAWSL(ISLASTBAR,R2,0,-100,0,COLORGREEN),DASH; ? // 第二阻力位(R2) = PP+(最高價-最低價) DRAWSL(ISLASTBAR,R3,0,-100,0,COLORGREEN),DASH; // 第三阻力位(R3) = 最高價+2(PP-最低價) DRAWSL(ISLASTBAR,S1,0,-100,0,COLORMAGENTA); ? ? ? ? // 第一支撐位(S1) = (2 X PP)- 最高價 DRAWSL(ISLASTBAR,S2,0,-100,0,COLORMAGENTA); ? ? ?// 第二支撐位(S2) = PP-(最高價-最低價) DRAWSL(ISLASTBAR,S3,0,-100,0,COLORMAGENTA); ? ?// 第三支撐位(S3) = 最低價-2(最高價-PP) DRAWTEXT(ISLASTBAR=1,PP,'? ? ? ? ? ? (樞紐點) '; DRAWTEXT(ISLASTBAR=1,R1,'? ? ? ? ? ? (第一阻力位) '; DRAWTEXT(ISLASTBAR=1,S1,'? ? ? ? ? ? (第一支撐位) '; DRAWTEXT(ISLASTBAR=1,S2,'? ? ? ? ? ? (第二支撐位) '; AAA:=CROSS(BACKSET(ISLASTBAR,50),0.5),NODRAW; DRAWNUMBER(AAA,PP,PP,0 ,COLORWHITE ); DRAWNUMBER(AAA,R1,R1,0 ,COLORWHITE ); DRAWNUMBER(AAA,S1,S1,0 ,COLORWHITE ); DRAWNUMBER(AAA,S2,S2,0 ,COLORWHITE );

OOZ:=REF(REF(O,N-1),N);//開盤價 HHZ:=REF(HHV(H,N),N);//當前最高價 LLZ:=REF(LLV(L,N),N);//當前最低價 CZZ:=REF(REF(C,N),N);//昨日收盤價 HZZ:=REF(REF(HH,N),N);//昨日最高價 LZZ:=REF(REF(LL,N),N);//昨日最低價
PPZ:=(CZZ+HZZ+LZZ)/3; R1Z:=2*PPZ-LZZ; R2Z:=PPZ+(HZZ-LZZ); R3Z:=HZZ+2*(PPZ-LZZ); S1Z:=2*PPZ-HZZ; S2Z:=PPZ-(HZZ-LZZ); S3Z:=LZZ-2*(HZZ-PPZ);
DRAWSL(ISLASTBAR,PPZ,0,-500,0,COLORWHITE),DASHDOT; ? ? ? // 樞紐點(PPQ)=(前日最高價+前日最低價+前日收盤價)/3 DRAWSL(ISLASTBAR, R1Z,0, -500,0,COLORGRAY),DOT; ? ? ?// 第一阻力位(RQ1) = (2 X PP)-前日最低價 DRAWSL(ISLASTBAR,R2Z,0, -500,0,COLORGRAY),DOT; ? ? ? // 第二阻力位(RQ2) = PP+(前日最高價-前日最低價) DRAWSL(ISLASTBAR,R3Z,0, -500,0,COLORGRAY),DOT; ? ? ? // 第三阻力位(RQ3) = 前日最高價+2(PP-前日最低價) DRAWSL(ISLASTBAR,S1Z,0, -500,0,COLORMAGENTA),DOT; ? ? ? ? // 第一支撐位(SQ1) = (2 X PP)- 前日最高價 DRAWSL(ISLASTBAR,S2Z,0,- 500,0,COLORMAGENTA),DOT; ? ? ? ? // 第二支撐位(SQ2) = PP-(前日最高價-前日最低價) DRAWSL(ISLASTBAR,S3Z,0,- 500,0,COLORMAGENTA),DOT; ? ? ? ? // 第三支撐位(SQ3) = 前日最低價-2(前日最高價-PP) KTEXT(ISLASTBAR,-500,PPZ,1,COLORWHITE,'樞紐點) '; KTEXT(ISLASTBAR,-500,R1Z,1,COLORWHITE,'第一阻力位)'; KTEXT(ISLASTBAR,-500,R2Z,1,COLORWHITE,'第二阻力位)'; KTEXT(ISLASTBAR,-500,R3Z,1,COLORWHITE,'第三阻力位)'; KTEXT(ISLASTBAR,-500,S1Z,1,COLORWHITE,'第一支撐位)'; KTEXT(ISLASTBAR,-500,S2Z,1,COLORWHITE,'第二支撐位)'; KTEXT(ISLASTBAR,-500,S3Z,1,COLORWHITE,'第三支撐位)'; DRAWNUMBER(CROSS(BACKSET(ISLASTBAR,250),0.5),PPZ,PPZ,0 ,COLORWHITE ); DRAWNUMBER(CROSS(BACKSET(ISLASTBAR,250),0.5),R1Z,R1Z,0 ,COLORWHITE ); DRAWNUMBER(CROSS(BACKSET(ISLASTBAR,250),0.5),S1Z,S1Z,0 ,COLORWHITE ); DRAWNUMBER(CROSS(BACKSET(ISLASTBAR,250),0.5),S2Z,S2Z,0 ,COLORWHITE );?
DRAWNUMBER(CROSS(BACKSET(ISLASTBAR,250),0.5),R2Z,R2Z,0 ,COLORWHITE ); DRAWNUMBER(CROSS(BACKSET(ISLASTBAR,250),0.5),S3Z,S3Z,0 ,COLORWHITE ); DRAWNUMBER(CROSS(BACKSET(ISLASTBAR,250),0.5),R3Z,R3Z,0 ,COLORWHITE );? ?