請老師修改下程序

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

咨詢內容： 老師，我想把標注到K線上的數字做兩步修改：
第一：在數字的前面顯示它的倍數值
第二：光標點擊某一根K線作為最新的一根K線按原來的方式進行重新計算，包括向前移動K線的根數：如圖例：
A:=DEA0+0.15*CZ,COLORGREEN;
B:=DEA0-0.05*CZ,COLORGREEN;
CC:=DEA0-0.10*CZ,COLORGREEN;
D:=DEA0-0.15*CZ,COLORGREEN;
E:=DEA0-0.20*CZ,COLORGREEN;
F:=DEA0-0.25*CZ,COLORGREEN;
G:=DEA0-0.30*CZ,COLORGREEN;
HH:=DEA0-0.35*CZ,COLORGREEN;
I:=DEA0-0.40*CZ,COLORGREEN;
J:=DEA0-0.45*CZ,COLORGREEN;
K:=DEA0-0.50*CZ,COLORGREEN;
LL:=DEA0-0.55*CZ,COLORGREEN;
當天收盤價:=(945/52)*DEA0-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1);
當天收盤價A:=(945/52)*A-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1);
當天收盤價B:=(945/52)*B-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1);
當天收盤價CC:=(945/52)*CC-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1);
當天收盤價D:=(945/52)*D-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1);
當天收盤價E:=(945/52)*E-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1);
當天收盤價F:=(945/52)*F-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1);
當天收盤價G:=(945/52)*G-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1);
當天收盤價HH:=(945/52)*HH-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1);
當天收盤價I:=(945/52)*I-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1);
當天收盤價J:=(945/52)*J-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1);
當天收盤價K:=(945/52)*K-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1);
當天收盤價LL:=(945/52)*LL-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1);
DRAWNUMBER(REFX1(BARPOS,9999)-BARPOS=7,DIFF,REFX1(當天收盤價A,9999),1,COLORMAGENTA),FONTSIZE15;
DRAWNUMBER(REFX1(BARPOS,9999)-BARPOS=7,DIFF,REFX1(當天收盤價,9999),1,COLORWHITE),FONTSIZE15,VALIGN0;
DRAWNUMBER(REFX1(BARPOS,9999)-BARPOS=12,DIFF,REFX1(當天收盤價B,9999),1,COLORCYAN),FONTSIZE15;
DRAWNUMBER(REFX1(BARPOS,9999)-BARPOS=12,DIFF,REFX1(當天收盤價CC,9999),1,COLORGREEN),FONTSIZE15,VALIGN0;
DRAWNUMBER(REFX1(BARPOS,9999)-BARPOS=16,

文件名：ED842DCF-4F8F-4B56-A706-B97686D36D37.jpeg
?
?來源:程序化99
文華技術人員：
思路2實現不了，編寫取不到光標所在位置

?

另外，思路1可以實現，但是1樓源碼不全，您復制完整源碼我們看下

?

?來源: www.tumamayizhan.com
文華客服： DIFF:EMA(CLOSE,SHORT) - EMA(CLOSE,LONG),NOTEXT;
DEA1:EMA(DIFF,M),NOTEXT;
MACD:=1*(DIFF-DEA1),COLORSTICK,NODRAW;
CZ:=REF(DEA1,1)-REF(DEA1,2),NODRAW;//差值
DEA0:=REF(DEA1,1)+CZ,NODRAW,COLORWHITE;
DRAWLINE3(ISLASTBAR,DEA0,0,1,REF(DEA1,1),1,0),COLORRED,SOLID;
TN:=(DEA1-DEA0)/CZ;
DRAWICON(ISLASTBAR&&CZ>0&&TN>=-0.79&&TN<=-0.60,DEA1,'ICO4');
DRAWICON(ISLASTBAR&&CZ<0&&TN>=-0.79&&TN<=-0.60,DEA1,'ICO5'),VALIGN0;
DRAWICON(ISLASTBAR&&CZ>0&&TN>=-1.1&&TN<=-0.90,DEA1,'ICO4');
DRAWICON(ISLASTBAR&&CZ<0&&TN>=-1.1&&TN<=-0.90,DEA1,'ICO5'),VALIGN0;
DRAWICON(ISLASTBAR&&CZ>0&&TN>=-1.45&&TN<=-1.34,DEA1,'ICO4');
DRAWICON(ISLASTBAR&&CZ<0&&TN>=-1.45&&TN<=-1.34,DEA1,'ICO5'),VALIGN0;
DRAWICON(ISLASTBAR&&CZ>0&&TN>=-1.96&&TN<=-1.74,DEA1,'ICO4');
DRAWICON(ISLASTBAR&&CZ<0&&TN>=-1.96&&TN<=-1.74,DEA1,'ICO5'),VALIGN0;
DRAWICON(ISLASTBAR&&CZ>0&&TN>=-2.35&&TN<=-2.1,DEA1,'ICO4');
DRAWICON(ISLASTBAR&&CZ<0&&TN>=-2.35&&TN<=-2.1,DEA1,'ICO5'),VALIGN0;
DRAWICON(ISLASTBAR&&CZ>0&&TN>=-2.82&&TN<=-2.55,DEA1,'ICO4');
DRAWICON(ISLASTBAR&&CZ<0&&TN>=-2.82&&TN<=-2.55,DEA1,'ICO5'),VALIGN0;
X:=2;//移動距離
AA:=BACKSET(ISLASTBAR,4);
DRAWNUMBER(CROSS(AA,0.5)&&REFX1(TN,10000)>0,REFX1(DEA0,10000)+0,REFX1(TN,10000),2,COLORRED),FONTSIZE15;
DRAWNUMBER(CROSS(AA,0.5)&&REFX1(TN,10000)<0,REFX1(DEA0,10000)+0,REFX1(TN,10000),2,COLORGREEN),FONTSIZE15;
?
網友回復： T1:0.10,PRECIS2,NODRAW;
TA1:=DEA0+CZ*T1;
TB1:=DEA0-CZ*T1;
IF(TN>0&&CZ>0,(945/52)*TA1-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1),NULL),COLORRED,NODRAW;//兩個判斷條件，并列編寫即可
IF(TN<0&&CZ>0,(945/52)*TA1-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1),NULL),COLORRED,NODRAW;
IF(TN>0&&CZ<0,(945/52)*TA1-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1),NULL),COLORRED,NODRAW;
IF(TN<0&&CZ<0,(945/52)*TA1-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1),NULL),COLORRED,NODRAW;
T2:0.15,PRECIS2,NODRAW;
TA2:=DEA0+CZ*T2;
TB2:=DEA0-CZ*T2;
IF(TN>0&&CZ>0,(945/52)*TA2-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1),NULL),COLORRED,NODRAW;//兩個判斷條件，并列編寫即可
IF(TN<0&&CZ>0,(945/52)*TA2-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1),NULL),COLORRED,NODRAW;
IF(TN>0&&CZ<0,(945/52)*TA2-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1),NULL),COLORRED,NODRAW;
IF(TN<0&&CZ<0,(945/52)*TA2-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1),NULL),COLORRED,NODRAW;
T3:0.20,PRECIS2,NODRAW;
TA3:=DEA0+CZ*T3;
TB3:=DEA0-CZ*T3;
IF(TN>0&&CZ>0,(945/52)*TA3-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1),NULL),COLORRED,NODRAW;//兩個判斷條件，并列編寫即可
IF(TN<0&&CZ>0,(945/52)*TA3-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1),NULL),COLORRED,NODRAW;
IF(TN>0&&CZ<0,(945/52)*TA3-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1),NULL),COLORRED,NODRAW;
IF(TN<0&&CZ<0,(945/52)*TA3-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1),NULL),COLORRED,NODRAW;
T4:0.25,PRECIS2,NODRAW;
TA4:=DEA0+CZ*T4;
TB4:=DEA0-CZ*T4;
IF(TN>0&&CZ>0,(945/52)*TA4-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1),NULL),COLORRED,NODRAW;//兩個判斷條件，并列編寫即可
IF(TN<0&&CZ>0,(945/52)*TA4-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1),NULL),COLORRED,NODRAW;
IF(TN>0&&CZ<0,(945/52)*TA4-(245/52)*REF(EMA(C,8)
?
網友回復： A:=DEA0+0.15*CZ,COLORGREEN;
B:=DEA0-0.05*CZ,COLORGREEN;
CC:=DEA0-0.10*CZ,COLORGREEN;
D:=DEA0-0.15*CZ,COLORGREEN;
E:=DEA0-0.20*CZ,COLORGREEN;
F:=DEA0-0.25*CZ,COLORGREEN;
G:=DEA0-0.30*CZ,COLORGREEN;
HH:=DEA0-0.35*CZ,COLORGREEN;
I:=DEA0-0.40*CZ,COLORGREEN;
J:=DEA0-0.45*CZ,COLORGREEN;
K:=DEA0-0.50*CZ,COLORGREEN;
LL:=DEA0-0.55*CZ,COLORGREEN;
當天收盤價:=(945/52)*DEA0-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1);
當天收盤價A:=(945/52)*A-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1);
當天收盤價B:=(945/52)*B-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1);
當天收盤價CC:=(945/52)*CC-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1);
當天收盤價D:=(945/52)*D-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1);
當天收盤價E:=(945/52)*E-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1);
當天收盤價F:=(945/52)*F-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1);
當天收盤價G:=(945/52)*G-(245/52)*REF(EMA(C,8),1)+(297/52)*REF(EMA(C,34),1)-(315/26)*REF(DEA1,1);