| 以文本方式查看主题 - 金字塔客服中心 - 专业程序化交易软件提供商 (http://weistock.com/bbs/index.asp) -- 公式模型编写问题提交 (http://weistock.com/bbs/list.asp?boardid=4) ---- 在金字塔中<%符号代表什么意义 (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=10551) |
| -- 作者：asd123asd159 -- 发布时间：2012/3/13 16:25:32 -- 在金字塔中<%符号代表什么意义 有的语句之前带<%，去除<%提示是缺少分号 |
| -- 作者：just -- 发布时间：2012/3/13 16:43:29 -- 能否把完整的语句写出来？
|
| -- 作者：asd123asd159 -- 发布时间：2012/3/13 16:45:36 -- MA10:=MA(CLOSE,10); MA5:=MA(CLOSE,5); MA1:=MA5-MA10; MA2:=MA10; MA3:=MA10; DATANUMBER:=DATATYPE; DATANUMBER1:=DATATYPE; DATANUMBER2:=DATATYPE; DATANUMBER3:=DATATYPE; LING:=HIGH; <% vbdatanumber = FFL.VarData("datanumber") vbdatanumber1 = FFL.VarData("datanumber1") vbdatanumber2 = FFL.VarData("datanumber2") vbdata=1 vbdata1=0.001 vbdata2=1 Select Case vbdatanumber Case 0 vbdata=0.015 vbdata1=0.001 vbdata2=0.015 Case 1 vbdata=0.018 vbdata1=0.001 vbdata2=0.018 Case 2 vbdata=0.037 vbdata1=0.001 vbdata2=0.037 Case 3 vbdata=0.052 vbdata1=0.001 vbdata2=0.052 Case 4 vbdata=0.067 vbdata1=0.001 vbdata2=0.067 Case 5 vbdata=0.13 vbdata1=0.001 vbdata2=0.13 Case 6 vbdata=0.28 vbdata1=0.001 vbdata2=0.28 Case 7 vbdata=0.45 vbdata1=0.001 vbdata2=0.45 Case 8 vbdata=0.73 vbdata1=0.001 vbdata2=0.73 Case 9 vbdata=1.2 vbdata1=0.001 vbdata2=1.2 Case 10 vbdata=0.6 vbdata1=0.001 vbdata2=0.6 Case 11 vbdata=0.1 vbdata1=0.001 vbdata2=0.1 Case 12 vbdata=0.02 vbdata1=0.001 vbdata2=0.02 Case else vbdata=2 vbdata1=0.001 vbdata2=2 End Select FFL.VarData("datanumber") =vbdata FFL.VarData("datanumber1") =vbdata1 FFL.VarData("datanumber2") =vbdata2 vbling = FFL.VarData("ling") vbma = FFL.VarData("ma1") vbma2 = FFL.VarData("ma2") vbma3 = FFL.VarData("ma3") nlast = UBound( vbma ) nvalue = 0.0000 nvaluefu = 0.0000 bianhua = 2 oldbianhua = 0 for m = 0 to nlast vbma2(m) = 0 vbma3(m) = 0 vbling(m)=0 next m= 0 for i = 0 to nlast m=m+1 \'nlast - m \'vbma2(i) = 0 if (vbma(i) > 0) then bianhua = 1 nvalue = nvalue + vbma(i) else bianhua = 2 nvaluefu = nvaluefu + vbma(i) end if if (oldbianhua = bianhua) then else vbma3(i) = m m=0 if (bianhua = 1) then vbma2(i) = nvaluefu nvaluefu = 0 \'nvaluefu = 0 else vbma2(i) = nvalue nvalue = 0 \'nvalue = 0 end if end if oldbianhua = bianhua next FFL.VarData("ma2") = vbma2 FFL.VarData("ma3") = vbma3 FFL.VarData("ling") =vbling %> DRAWNUMBER(REF(MA2,0)<0 AND 0=1,LLV(LOW,5),REF(MA2,0)*1000,0),colorFF00; DRAWNUMBER(REF(MA2,0)<0 AND 0=1,LLV(LOW,5)-DATANUMBER,REF(MA3,0),0),colorFFFF; DRAWNUMBER(REF(MA2,0)<0 AND 0=1,LLV(LOW,5)-DATANUMBER*2,REF(MA2,0)*1000/REF(MA3,0),0),colorFF00; DRAWNUMBER(REF(MA2,0)>0 AND 0=1,HHV(HIGH,5),REF(MA2,0)*1000,0),colorFF; DRAWNUMBER(REF(MA2,0)>0 AND 0=1,HHV(HIGH,5)+DATANUMBER,REF(MA3,0),0),colorFFFF; DRAWNUMBER(REF(MA2,0)>0 AND 0=1,HHV(HIGH,5)+DATANUMBER*2,REF(MA2,0)*1000/REF(MA3,0),0),colorFF; |
| -- 作者：asd123asd159 -- 发布时间：2012/3/13 16:47:43 -- 这是我在网上找到的，一个公式里面有符号链接 |
| -- 作者：董小球 -- 发布时间：2012/3/13 16:47:59 -- 表示在指标里使用VBA的代码 |
| -- 作者：just -- 发布时间：2012/3/13 16:49:01 -- 这个应该是vbs的语句，具体你可以参考我们的高级功能http://www.weistock.com/bbs/dispbbs.asp?boardid=2&Id=370 VBScript所能进行的计算、处理能力非常强大，甚至可进行文件操作等，所以，只要是想得到的计算，都应该能够实现。类似编制ASP、PHP动态网页，可在公式中多处嵌入脚本（用<%...%>括起即可），可在脚本中定义函数、过程供脚本自己调用。 <!--EndFragment--> |
| -- 作者：Leon -- 发布时间：2012/3/13 17:21:22 -- 这个符号叫做“代码块语句”是很多编程语言嵌入代码时使用的，VBA就是这样 |
| -- 作者：Leon -- 发布时间：2012/3/13 17:24:00 -- 以<%开头，以%>结尾，其中是内嵌的代码块。 |
| -- 作者：asd123asd159 -- 发布时间：2012/3/13 18:41:16 -- 又学了一招，谢谢。看来金字塔功能很强大。多了解 |
| -- 作者：dwjgwsm -- 发布时间：2013/5/22 22:35:32 -- 顶一下， [此贴子已经被作者于2013-5-22 22:37:14编辑过]
|