以下引用由 jeng 在 2006/08/13 09:07:49 所發表的內容：
我並沒有要找人單挑的意思,問題是大陸免費指標那麼多,隨便copy就賣那麼貴,古海大不覺得不妥嗎?而且也建議過若是轉貼須說來源嗎?否則我也可以一天隨便轉貼1000篇沒內容且要價30元的文章,及要價60元的無用指標,都說是自創的(而消費者買了後悔又不能退,換做是你,你願意嗎?),那我豈不賺翻了(股市卻賺不到錢),如此本網站且 ... |
|
**************************************
依妳所願...我砍掉版上所有指標...
給古海大一個乾淨的版面.......
順便送妳個HTS甘式角指標馬賽克版.....
和江恩矩陣半完成版
先說好...定義是看這邊網友提供的的....
有問題別在怪我呀...************************
LN_New(Begin_date,T,L,Begin_date,T,H) //垂直線
if date=Begin_date then LN_New(Begin_date,T,Begin_P,LastCalcDate,T,Begin_P) end if //水平線
LN_SetColor(Value1,blue)
LN_SetColor(Value2,blue) iff(Begin_P<L[1],1,-1)
Iff(Begin_P>200 and Begin_P<1000,Begin_P*0.0035*5,iff(Begin_P<=200,Begin_P*0.0043*5,Begin_P*0.003*5))
if date=Begin_date then
LN_SetBegin(11,Begin_date,Time,Begin_P)
LN_SetEnd(11,Begin_date+七天,Time,Begin_P+?
LN_SetExtRight(11,TRUE) LN_SetColor(11,MAGENTA) LN_SetBegin(12,Begin_date,Time,Begin_P)
LN_SetEnd(12,Begin_date+七天,Time,Begin_P+ ?
LN_SetExtRight(12,TRUE) LN_SetColor(12,6) LN_SetBegin(13,Begin_date,Time,Begin_P)
LN_SetEnd(13,Begin_date+七天,Time,Begin_P+ ?
LN_SetExtRight(13,TRUE) LN_SetColor(13,BLACK) LN_SetBegin(14,Begin_date,Time,Begin_P)
LN_SetEnd(14,Begin_date+七天,Time,Begin_P+ ?
LN_SetExtRight(14,TRUE) LN_SetColor(14,6) LN_SetBegin(15,Begin_date,Time,Begin_P)
LN_SetEnd(15,Begin_date+七天,Time,Begin_P+ ?
LN_SetExtRight(15,TRUE) LN_SetColor(15,MAGENTA)
end if
******************************************************
這是最新版的HTS矩陣 Parameter: 起點(6323), 倍數(10),圈數(5),顯示偏移(55)
Variables: i(0),步長(0),J(0),K(0),Q(0),STR1("F"),STR2("F"),跑幾圈(0) Array : LineNumber[99](-1), TextNumber[99](-1),顏色[5](-3),價位線[333](-3) 顏色[0]=BLACK 顏色[1]=MAGENTA 顏色[2]=GREEN 顏色[3]=CYAN value2=起點 **SORRY**馬賽克核心計算式一行** K=0
J=0
FOR 跑幾圈=0 TO 圈數
FOR Q=0 TO 3//顏色
LN_Delete( LineNumber[J] )
價位線[100+J]=VALUE2+J*步長+K*0.5*倍數
K=K+J
LineNumber[J]=LN_New(date[66],Time,價位線[100+J], Date, Time+5,價位線[100+J] )
LN_SetColor(LineNumber[J], 顏色[Q])
TXT_Delete(TextNumber[J] )
STR1=NumToStr(價位線[100+J],2)+SPACE(3)+"=>"+NumToStr(90*Q,0)+"°"+"↑"
TextNumber[J]=TXT_New( Date[顯示偏移],Time[顯示偏移],價位線[100+J],STR1)
TXT_SetColor(TextNumber[J],顏色[Q])
J=J+1//計數
END FOR
END FOR
|