请教一下GET的使用

koniqiwa · 发表于 2009-9-5 12:13:43

昨天才用GET8.0 发现GET的角度线和江恩箱没有起点定位角度线可以设置斜率江恩箱却不可以。起点定位直接看游标解决差不多就行。箱子的周期和箱子1*1斜率是不是只能用手工移动到指定位置来解决啊？

xmhenry · 发表于 2009-10-20 09:46:09

Fox和GET的数据转换原代码
数据输出=1 输出eWave/GET 伪日线数据(0/1) ,可同时输出两种格式的数据
Datalength= 输出数据天数(0~99999,0/全输出)
1)嵌入一个指标到下面的公式里面,把公式调入副图,想转换时调整数据输出=1,输出个股
2)全输出: 用嵌入其他指标的公式在A股板快选股

输出位置在 D:\Stock\TXTData,可自己修改

[ 本帖最后由 xmhenry 于 2009-10-20 02:02 编辑 ]

xmhenry · 发表于 2009-10-20 09:45:04

Fox和GET的数据转换原代码
数据输出=1 输出eWave/GET 伪日线数据(0/1) ,可同时输出两种格式的数据
Datalength= 输出数据天数(0~99999,0/全输出)
1)嵌入一个指标到下面的公式里面,把公式调入副图,想转换时调整数据输出=1,输出个股
2)全输出: 用嵌入其他指标的公式在A股板快选股
------------------------------
参数:
数据输出 0,0,1
DATALENGTH 1900,1,99999
//
vertline(barpos=datacount-Datalength and datalength>0 and datalength<=datacount),colormagenta;
转换天数:if(datalength=0 or datalength>datacount,datacount,datalength),colormagenta,linethick0;
数据转换:数据输出,colorred,linethick0;

IF 数据输出=1 then begin
   _Barpos := BARPOS;
   _Year := YEAR;
   _Month := MONTH;
      _Day := DAY;
_Datatype := DATATYPE;
_Marketlabel := MARKETLABEL;
_StkName := STKLABEL;
   _Open := OPEN;
   _High := HIGH;
      _Low := LOW;
   _Close := CLOSE;
      _Vol := VOL;
   _Amount := AMOUNT;
_Datalength := Datalength;

<%
Dim Marketlabels,Stknames,Datatypes,Opens,Highs,Lows,Closes,Vols,Amounts,Years,Months,Days
   Barposes = ffl.vardata("_Barpos")
      Years = ffl.vardata("_Year")
   Months = ffl.vardata("_Month")
      Days = ffl.vardata("_Day")
Datatypes = ffl.vardata("_Datatype")
Marketlabels = ffl.vardata("_Marketlabel")
   Stknames = ffl.vardata("_Stkname")
      Opens = ffl.vardata("_Open")
      Highs = ffl.vardata("_High")
      Lows = ffl.vardata("_Low")
   Closes = ffl.vardata("_Close")
      Vols = ffl.vardata("_Vol")
   Amounts = ffl.vardata("_Amount")
  Datalengths = FFL.vardata("_Datalength")

If ReportFolderStatus("D:\Stock\TXTData") = 0 Then CreatFolder()
SelectCreatAsciiDataType(Datatypes)

Function SelectCreatAsciiDataType(Types)
      Select Case Types
            Case 0

            Case 1
                     Call CreateAsciiDataMin("_m01")
            Case 2
                     Call CreateAsciiDataMin("_m05")
            Case 3
                     Call CreateAsciiDataMin("_m15")
            Case 4
                     Call CreateAsciiDataMin("_m30")
            Case 5
                     Call CreateAsciiDataMin("_m60")
            Case 6
                     Call CreateAsciiDataDayes()
            Case 7
                     Call CreateAsciiDataMin("_wk")
            Case 8
                     Call CreateAsciiDataMin("_mth")
            Case 9
                     Call CreateAsciiDataMin("_yr")
            Case 10

            Case 11

            Case Else

            End Select
End Function

Function CreateAsciiDataMin(FolderName)
      Const ForReading = 1, ForWriting = 2, ForAppending = 8
      Const TristateTrue = -1,TristateFalse = 0,TristateUseDefault = -2
      Dim Fso,FileName,TextStream,LineData,FileNameA,TextStreamA,LineDataA,ArrayLast,LastDate,AforeDate,AforeYear,AforeMonth,AforeDay
      Set Fso = CreateObject("Scripting.FileSystemObject")
      FileName = "D:\Stock\TXTData\GET\" & StkNames & FolderName & ".txt"
      FileNameA = "D:\Stock\TXTData\ttpcn\" & StkNames & FolderName & ".txt"
      Set TextStream = Fso.OpenTextFile(FileName, ForWriting, True)
      Set TextStreamA = Fso.OpenTextFile(FileNameA, ForWriting, True)
      ArrayLast = Ubound(Barposes)
      LastDate = Years(ArrayLast) & "-" & Months(ArrayLast) & "-" & Days(ArrayLast)

      if (Datalengths=0 or datalengths>=ArrayLast) then
      Datalengths=ArrayLast
      end if
      Datastart = ArrayLast-Datalengths

      For i = Datastart To ArrayLast
            AforeDate = DateAdd("d",(i-ArrayLast),LastDate)
            AforeYear = Year(AforeDate)
            AforeMonth = Month(AforeDate)
            If Len(AforeMonth) = 1 Then AforeMonth = "0" & AforeMonth
            AforeDay = Day(AforeDate)
            If Len(AforeDay) = 1 Then AforeDay = "0" & AforeDay
            Opens(i) = FormatNumber(Opens(i),3,,,TristateFalse)
            Highs(i) = FormatNumber(Highs(i),3,,,TristateFalse)
            Lows(i) = FormatNumber(Lows(i),3,,,TristateFalse)
            Closes(i) = FormatNumber(Closes(i),3,,,TristateFalse)
         Vols(i) = FormatNumber(Vols(i),3,,,TristateFalse)
            Amounts(i) = FormatNumber(Amounts(i),3,,,TristateFalse)
                     If Opens(i)<1 Then Opens(i)="0" & Opens(i)
                     If Highs(i)<1 Then Highs(i)="0" & Highs(i)
                     If Lows(i)<1 Then Lows(i)="0" & Lows(i)
                     If Closes(i)<1 Then Closes(i)="0" & Closes(i)
                     If Vols(i)<1 Then Vols(i)="0" & Vols(i)
                     If Amounts(i)<1 Then Amounts(i)="0" & Amounts(i)
            LineData = AforeYear & AforeMonth & AforeDay & " " & Opens(i) & " " & Highs(i) & " " & Lows(i) & " " & Closes(i) & " " & Vols(i) & " " & Amounts(i)
            LineDataA = AforeYear & AforeMonth & AforeDay & "," & Opens(i) & "," & Highs(i) & "," & Lows(i) & "," & Closes(i) & "," & Vols(i) & "," & Amounts(i)
            TextStream.WriteLine LineData
            TextStreamA.WriteLine LineDataA
      Next
      TextStream.Close
      TextStreamA.Close

End Function

Function CreateAsciiDataDayes()
      Const ForReading = 1, ForWriting = 2, ForAppending = 8
      Const TristateTrue = -1,TristateFalse = 0,TristateUseDefault = -2
      Dim i,Fso,FileName,TextStream,LineData,FileNameA,TextStreamA,LineDataA,AforeLast,ArrayLast
      Set Fso = CreateObject("Scripting.FileSystemObject")
      FileName = "D:\Stock\TXTData\GET\" & StkNames & "_day.txt"
      FileNameA = "D:\Stock\TXTData\ttpcn\" & StkNames & "_day.txt"
            Set TextStream = Fso.OpenTextFile(FileName,ForWriting,True)
            Set TextStreamA = Fso.OpenTextFile(FileNameA,ForWriting,True)
            ArrayLast = Ubound(Barposes)
      if (Datalengths=0 or datalengths>=ArrayLast) then
      Datalengths=ArrayLast
      end if
      Datastart = ArrayLast-Datalengths

            For i = Datastart To ArrayLast
                     If Len(Months(i)) = 1 Then Months(i) = "0" & Months(i)
                     If Len(Days(i)) = 1 Then Days(i) = "0" & Days(i)
                     Opens(i) = FormatNumber(Opens(i),3,,,TristateFalse)
                     Highs(i) = FormatNumber(Highs(i),3,,,TristateFalse)
                     Lows(i) = FormatNumber(Lows(i),3,,,TristateFalse)
                     Closes(i) = FormatNumber(Closes(i),3,,,TristateFalse)
                     Vols(i) = FormatNumber(Vols(i),3,,,TristateFalse)
                     Amounts(i) = FormatNumber(Amounts(i),3,,,TristateFalse)
                     If Opens(i)<1 Then Opens(i)="0" & Opens(i)
                     If Highs(i)<1 Then Highs(i)="0" & Highs(i)
                     If Lows(i)<1 Then Lows(i)="0" & Lows(i)
                     If Closes(i)<1 Then Closes(i)="0" & Closes(i)
                     If Vols(i)<1 Then Vols(i)="0" & Vols(i)
                     If Amounts(i)<1 Then Amounts(i)="0" & Amounts(i)
                     LineData = Years(i) & Months(i) & Days(i) & " " & Opens(i) & " " & Highs(i) & " " & Lows(i) & " " & Closes(i) & " " & Vols(i) & " " & Amounts(i)
                     LineDataA = Years(i) & Months(i) & Days(i) & "," & Opens(i) & "," & Highs(i) & "," & Lows(i) & "," & Closes(i) & "," & Vols(i) & "," & Amounts(i)
                     TextStream.WriteLine LineData
                     TextStreamA.WriteLine LineDataA
            Next
            TextStream.Close
            TextStreamA.Close
End Function

Function ReportFolderStatus(FolderDir)
      Dim Fso, Status
      Set Fso = CreateObject("Scripting.FileSystemObject")
      If (Fso.FolderExists(FolderDir)) Then
            Status = 1
      Else
            Status = 0
      End If
      ReportFolderStatus = Status
End Function

Function CreatFolder()
      Dim Fso
      Set Fso = CreateObject("Scripting.FileSystemObject")
      Dim Folder
      Set Folder = Fso.CreateFolder("D:\Stock\TXTData")
      Set Folder = Fso.CreateFolder("D:\Stock\TXTData\GET")
Set Folder = Fso.CreateFolder("D:\Stock\TXTData\ttpcn")
End Function
%>

explain(1,'--非日线为伪日线输出,两种输出格式:');
explain(1,'1) YearsMonthsDays" "Opens" "Highs" "Lows" "Closes" "Vols" "Amounts >>D:\stock\txtdata\get');
explain(1,'2) YearsMonthsDays,Opens, Highs,Lows,Closes,Vols, Amounts >>D:\stock\txtdata\ttpcn');

[ 本帖最后由 xmhenry 于 2009-10-20 02:02 编辑 ]

hello · 发表于 2009-9-5 18:11:24

vista系统支持GET。

length · 发表于 2009-9-5 16:10:26

win7不支持get???

koniqiwa · 发表于 2009-9-5 13:06:57

原帖由 yay 于 2009-9-5 13:04 发表 B7 n! j+ H F' F0 F

$ b$ a0 L! n7 f9 |6 u2 a7 `话讲回来，如此GANN就不可能留下最朴素的东西了！

是啊！宝贵的手工图！

yay · 发表于 2009-9-5 13:04:16

原帖由 koniqiwa 于 2009-9-5 05:00 发表
' {) b- @& K' N8 t, P+ Q" M, s' n0 [! g2 M( b% v+ Z0 |
明白了 * D" a+ N- H/ P5 S) g+ A
GANN要是用上了GET 那是相当的效率

话讲回来，如此GANN就不可能留下最朴素的东西了！

koniqiwa · 发表于 2009-9-5 13:00:36

原帖由 yay 于 2009-9-5 12:55 发表 ' N( R1 H7 V3 |" c1 @4 W- ?
! ^2 t/ ~) W2 ~. U
肯定是如此，所以看我的箱子会变化就是此原因！
$ K( s B9 J, Q& U( z现在有种网箱工具，就可扩大，不过我还是喜欢重新画，对K线走势过程又是很好的认识，功能太强大会失去思考机会！

明白了

GANN要是用上了GET 那是相当的效率

yay · 发表于 2009-9-5 12:55:48

原帖由 koniqiwa 于 2009-9-5 04:48 发表
" c0 T/ }# T. @) E# M8 E8 w. Q2 T) {/ @% K5 G
固定是360的分数或倍数自由可以自行设定箱子周期" S; ]8 L6 G% q8 w
但如果已经画好了一个就不能把画好的这个箱子按倍数再扩大了 K线多了以后只能重画个新箱子

肯定是如此，所以看我的箱子会变化就是此原因！
现在有种网箱工具，就可扩大，不过我还是喜欢重新画，对K线走势过程又是很好的认识，功能太强大会失去思考机会！

koniqiwa · 发表于 2009-9-5 12:48:01

原帖由 yay 于 2009-9-5 12:40 发表 3 H- L+ v6 D! F! _
3 K' u8 P, U7 D" K
光标放在箱子线上点右键有个设置框，缩放功能：有二种模式，自由与固定！
2 V6 b6 q/ k; O网络上找个说明书看看~~~~

固定是360的分数或倍数自由可以自行设定箱子周期
但如果已经画好了一个就不能把画好的这个箱子按倍数再扩大了 K线多了以后只能重画个新箱子

koniqiwa · 发表于 2009-9-5 12:42:01

如果不支持GET 那可哭了

这么好的东西丢掉了可惜

yay · 发表于 2009-9-5 12:40:03

原帖由 koniqiwa 于 2009-9-5 04:31 发表 h2 M5 s+ l/ z( r& X( D1 Q/ X2 [8 v
对了还有个问题箱子画好之后就不能改动了吗比如原来箱子周期是20 现在要变成40 就得重新画一个啊。。不能在原来基础上扩大吗？

光标放在箱子线上点右键有个设置框，缩放功能：有二种模式，自由与固定！
网络上找个说明书看看~~~~

yay · 发表于 2009-9-5 12:35:18

是，界面设计相当友好，连续多次获得美国相关大奖！
真搞不明白，如此优秀的软件没有得到继续发展！
现在正忧虑，如果WINDOWS持续升级后，不再支持GET，该怎么办？？？？？？

cry

koniqiwa · 发表于 2009-9-5 12:31:06

对了还有个问题箱子画好之后就不能改动了吗比如原来箱子周期是20 现在要变成40 就得重新画一个啊。。不能在原来基础上扩大吗？

koniqiwa · 发表于 2009-9-5 12:27:55

原帖由 yay 于 2009-9-5 12:20 发表 & r) d; A* A: H8 K. K
; i v6 n9 o) L* L- |, [) H
右下角有个吸铁工具原先就是用来精确定位的，现在WINDOWS升级后，失效了！
1 w( \9 e) e# N5 T. ]8 q' `. X1 }箱子用显示数字定位！

看着GET相当舒服

使用再方便些就更好了

yay · 发表于 2009-9-5 12:20:04

原帖由 koniqiwa 于 2009-9-5 04:13 发表
9 e9 G6 E- J+ F6 J昨天才用GET8.0 发现GET的角度线和江恩箱没有起点定位角度线可以设置斜率江恩箱却不可以。起点定位直接看游标解决差不多就行。箱子的周期和箱子1*1斜率是不是只能用手工移动到指定位置来解决啊？" /> " />

右下角有个吸铁工具原先就是用来精确定位的，现在WINDOWS升级后，失效了！
箱子用显示数字定位！

		自动登录	找回密码
密码			手机注册

请教一下GET的使用

Fox和GET的数据转换原代码

评分

评分

请教一下GET的使用

Fox和GET的 数据转换原代码

评分

评分

Fox和GET的数据转换原代码