改指標-情人節增強版=-晉承│愛情公寓交友網站與聊天室

改程式-情人節增強版=嘎殺用KD比較輕鬆.
若天羅地網通道還得過濾情況較多..
殺多完易見底..嘎空沒力易見高!!
*************************************
Parameter:布林中線長度(12),KD(9),轉折k(3),顯示偏移(12),布林(1),
中線(0),破空(1),加空(0),殺多(0),陰陽(0),突多(1),加多(0),嘎空(0)
Variables:天(0),羅(0),中(0),地(0),網(0),通道壓縮比(0),標準差(0),
破空進(0),破加空(0),破殺多(0),陰陽界(0),
突多進(0),突加多(0),突嘎空(0),壓縮比(0),三日轉折(0),
str1("a"),str2("a"),str3("a"),str4("a"),str5("a"),str6("a"),
短週期(0),中週期(0),長週期(0),今轉折(0),明轉折(0),
RB(0),RB1(0),RB2(0), TR(0)//三日紅黑

Array:換行[25]("|n")

/*
中 =MAfc((O+H+L+C+C)/5,布林中線長度)//中
標準差=StdDev(Close,布林中線長度)
標準差=標準差[1]*2/3+標準差/3
天 =中 +2*標準差//天
羅 =中 + 標準差//羅
地 =中 - 標準差//地
網 =中 -2*標準差//網
*/

中 =MAfc((O+H+L+C+C)/5,布林中線長度)//中
天 =中 +2*StdDev(Close,布林中線長度)//天
羅 =中 + StdDev(Close,布林中線長度)//羅
地 =中 - StdDev(Close,布林中線長度)//地
網 =中 -2*StdDev(Close,布林中線長度)//網

//移動威廉通道
Value1=HighestValue(High,60) //高檔線
Value2=LowestValue (Low ,60) //低檔線
陰陽界=Value2+(Value1-Value2)*0.5 //陰陽
//KD
Value9=Fastk(High,Low,Close,KD)//RSV(KD)
Value10=ema(Value9,3) //K
Value12=SMA(Value10,3) //D
Value13=(Value10*3)-(Value12*2)//J值

Value14=Fastk(High,Low,Close,KD*3)//3倍KD箱RSV
Value15=ema(Value14,5) //K
Value16=SMA(Value15,5) //D
Value17=(Value15*3)-(Value16*2)//J值

Value11=天-羅

通道壓縮比=(天-網)/中*100

短週期=MAfc(c,3)
中週期=MAfc(c,9)
長週期=MAfc(c,21)

//今轉折
今轉折=(C[1]*2-C[4]+C[3])/2
//明轉折
明轉折=(C*2-C[3]+C[2])/2

//三日紅黑值指標..3日紅黑值由負轉正，動能超越。
//判斷近三日收紅或收黑
IF C > O THEN
RB = C-L ELSE
RB = C-H
END IF

IF C[1] > O[1] THEN
RB1 = C[1]-L[1] ELSE
RB1 = C[1]-H[1]
END IF

IF C[2] > O[2] THEN
RB2 = C[2]-L[2] ELSE
RB2 = C[2]-H[2]
END IF

//計算三日紅黑值
TR = RB + RB1 + RB2

/*
將紅黑轉折值畫在圖表上???
DRAW1(TR,"三日紅黑值",iff(TR>0,red,blue))
DRAW2(RB + RB1 ,"紅黑轉折值",iff(TR>0,red,blue))

DrawBase1(0, "分界", DarkGray, 1)
*/

/*
三日轉折=C[3]*2-C[3*2]
//破空進
If HIGH>=羅 AND CLOSE<三日轉折 AND close<open and HIGH[1]>HIGH AND RSV[1]<80 then
破空進=HighestValue(High,3)
End if
//突多進
If LOW<=地 AND CLOSE>三日轉折 AND close>open and LOW[1]<LOW AND RSV[1]>20 then
突多進=LowestValue(Low,3)
End if
*/
//破空進

If Value17 CROSS UNDER 88 then
破空進=HighestValue(High,KD)
End if

//突多進
If Value17 cross over 8 then
突多進=LowestValue(Low,KD)
End if

//破加空***********
If FastK(High,Low,low,KD)<=50 AND FastK(High,Low,high,KD)>=50 AND CLOSE<OPEN then
破加空=low
End if
If FastK(High,Low,high,KD)>=50 AND FastK(High,Low,close,KD)<=50 AND CLOSE<OPEN then
破加空=high
End if
If FastK(High,Low,close,KD) cross under 50 then
破加空=high
End if
//突加多************
If Value10 cross over Value12 then
突加多=low
End if

//破殺多**KDJ之J值殺*OR*=K值80以上殺多鈍化
If Value13 CROSS UNDER 2 OR Value10 CROSS UNDER 20 then
破殺多=LOW
End if
//突嘎空************
If Value13 cross over 98 OR Value10 CROSS over 80 then
突嘎空=HIGH
End if

//***********************
Draw1 (天 ,"天",RED)
Draw2 (羅 ,"羅",GREEN)
Draw3 (中 ,"中",iff(中>中[1],Magenta,darkblue ),1,2)
Draw4 (地 ,"地",RED)
Draw5 (網 ,"網",GREEN)
Draw6 (破空進,"破空進",DarkRed ,1,1)
Draw7 (破加空,"破加空",black ,1,1)
Draw8 (破殺多,"破殺多",MAGENTA ,1,1)
Draw9 (陰陽界,"陰陽界",blue ,1,1)
Draw10(突嘎空,"突嘎空",CYAN ,1,1)
Draw11(突加多,"突加多",RGB(188,66,33 ),1,1)
Draw12(突多進,"突多進",RGB(222,166,66),1,1)

if 布林=0 Then
NoDraw(1)
NoDraw(2)
NoDraw(4)
NoDraw(5)
end if
if 中線=0 Then
NoDraw(3)
end if
if 破空=0 Then
NoDraw(6)
end if
if 加空=0 Then
NoDraw(7)
end if
if 殺多=0 Then
NoDraw(8)
end if
if 陰陽=0 Then
NoDraw(9)
end if
if 嘎空=0 Then
NoDraw(10)
end if
if 加多=0 Then
NoDraw(11)
end if
if 突多=0 Then
NoDraw(12)
end if

//******顯示箭頭方向和數值************
str1=iff(天>天[1], "▲天"+NumToStr(天,2) , "▼天"+NumToStr(天,2))
str2=iff(羅>羅[1], "▲羅"+NumToStr(羅,2) , "▼羅"+NumToStr(羅,2))
str3=iff(中>中[1], "▲中"+NumToStr(中,2) , "▼中"+NumToStr(中,2))
str4=iff(地>地[1], "▲地"+NumToStr(地,2) , "▼地"+NumToStr(地,2))
str5=iff(網>網[1], "▲網"+NumToStr(網,2) , "▼網"+NumToStr(網,2))
str6=iff(TR>0 ,NumToStr(TR,1)+ "▲三日紅黑值" ,NumToStr(TR,1)+"▼三日紅黑值")

for value998 = 2 to 24
換行[value998] = 換行[value998-1] + "|n"
end for

value999=HighestValue(High,66)
//在最後一行顯示解盤文字
IF LastBarOnChart THEN
TXT_SetColor(TXT_New(Date,Time,value999, space(顯示偏移)+str1),RED) //天
TXT_SetColor(TXT_New(Date,Time,value999,換行[1]+space(顯示偏移)+str2),GREEN) //羅
TXT_SetColor(TXT_New(Date,Time,value999,換行[2]+space(顯示偏移)+str3),iff(中>中[1],MAGENTA,black))//中
TXT_SetColor(TXT_New(Date,Time,value999,換行[3]+space(顯示偏移)+str4),RED) //地
TXT_SetColor(TXT_New(Date,Time,value999,換行[4]+space(顯示偏移)+str5),GREEN) //網

TXT_SetColor(TXT_New(Date,Time,value999,換行[5]+space(顯示偏移)+"收盤："+NumToStr(close,2)),iff(TR>0,red,blue))
//以三日紅黑值顯示收盤價顏色
TXT_SetColor(TXT_New(Date,Time,value999,換行[6]+space(顯示偏移)+str6),iff(TR>0,red,blue))
//▲三日紅黑值

//設定文字的垂直位置******
VALUE21=TXT_New(Date,Time,value999,"")
//設定文字的水平位置
TXT_SetString(Value21,換行[7]
+space(顯示偏移)+"通道扣抵:"+NumToStr(close[布林中線長度-1],0)+"|r|n"
+space(顯示偏移)+"BB壓縮比:"+NumToStr(通道壓縮比,2)+"|r|n"
+space(顯示偏移)+"今轉折="+NumToStr(今轉折,2)+"|r|n"
+space(顯示偏移)+"明轉折@"+NumToStr(明轉折,2)+"|r|n"
+space(顯示偏移)+"破空進"+NumToStr(破空進,2)+"|r|n"
+space(顯示偏移)+"破加空"+NumToStr(破加空,2)+"|r|n"
+space(顯示偏移)+"破殺多"+NumToStr(破殺多,2)+"|r|n"
+space(顯示偏移)+"陰陽界"+NumToStr(陰陽界,2)+"|r|n"
+space(顯示偏移)+"突嘎空"+NumToStr(突嘎空,2)+"|r|n"
+space(顯示偏移)+"突加多"+NumToStr(突加多,2)+"|r|n"
+space(顯示偏移)+"突多進"+NumToStr(突多進,2))
//設定顏色
TXT_SetColor(Value21,DarkRed)
//
VALUE21=TXT_New(Date,Time,Value2, space(顯示偏移-2)+"*")

END IF

/*
CONDITION1 = DATE <1060301 //不顯示過去
CONDITION2 = DATE >1060710 //不顯示未來

IF CONDITION1 THEN
NoDraw(6)
NoDraw(5)
NoDraw(4)
END IF

IF CONDITION2 THEN
NoDraw(6)
NoDraw(5)
NoDraw(4)
end if
*/