分享修改一蒙圈通道可讨论

frlin2003 · 发表于 2016-3-15 20:30

最大化中文版，便于看懂。
去伪存真，留下了精华。

通道.zip (1.45 KB, 下载次数: 5)

#property description "三条线通道"
#property strict
#property indicator_chart_window//主窗口显示
extern int 第一个开 = 1; // 从第一个k开始画 extern=屏幕上显示可修改。去掉则只能从代码处修改。
extern int 最后一开 = 50; // 通道包括50个k
extern ENUM_TIMEFRAMES FixedPeriod = 0; // 通道使用时间周期 ENUM_TIMEFRAMES ？？？ Fixedperiod 似乎很难理解。容我消化
extern double cDeviation = 1; // 通道可调宽度
extern ENUM_LINE_STYLE cStyle = 0; // 通道样式0表直线
extern color cColor = clrRoyalBlue;// 通道颜色蓝色
extern int cWidth = 1; // 通道宽度1像素
string StdDevChannel="通道";
datetime 首k画,尾k完;
int OnInit()
{
IndicatorShortName("简称通道");
return(INIT_SUCCEEDED);
}
void OnDeinit(const int reason)
{
if(ObjectFind(StdDevChannel) >= 0) ObjectDelete(StdDevChannel);//
Comment("");
}
int OnCalculate(const int rates_total, // 输入时间序列大小
const int prev_calculated,// 前一次调用处理的柱
const datetime &time[],// 时间
const double &open[], // 开盘价
const double &high[], // 最高价
const double &low[], // 最低价
const double &close[], // 收盘价
const long &tick_volume[], // 订单交易量
const long &volume[], // 真实交易量
const int &spread[]) // 点差
{
int counted_bars=IndicatorCounted(),
limit=Bars-counted_bars,i;
if(counted_bars < 0) return(-1);//如果图表没k，程序运行结束
if(counted_bars>0) counted_bars--;//如果图表正常，继续统计k
for(i=limit-1; i>=0; i--)
{
首k画 = iTime(NULL, FixedPeriod, i+第一个开);//默认品种默认周期默认指定k起画
尾k完 = iTime(NULL, FixedPeriod, i+最后一开);
}
DrawSDChannel(StdDevChannel,cDeviation,尾k完,首k画,cColor,cStyle,cWidth);//控制蓝线
/*画通道公式（通道，可调宽度，尾k，首k画，颜色，样式，宽度）神奇的公式
*/
return(rates_total);
}
void DrawSDChannel(string name,double deviation,datetime t1,datetime t2,color clr,int style,int width)
/*画通道公式（通道名，可调宽度，t1尾k，t2首k画，clr颜色，style样式，width宽度）神奇的公式
*/
{
ObjectDelete(name);
ObjectCreate(name,OBJ_STDDEVCHANNEL,0,t1,0,t2,0);
ObjectSet(name,OBJPROP_DEVIATION,deviation);
ObjectSet(name,OBJPROP_COLOR,clr);
ObjectSet(name,OBJPROP_STYLE,style);
ObjectSet(name,OBJPROP_WIDTH,width);
ObjectSet(name,OBJPROP_RAY,true);
}

复制代码

可中文名 · 发表于 2016-3-15 20:34

看看，咱也帮你找一个，嘿嘿

53120tracy · 发表于 2016-3-15 20:35

学习下，虽然不懂

frlin2003 · 发表于 2016-3-15 20:37

extern ENUM_TIMEFRAMES FixedPeriod  = 0;

教科书
extern doubule  xxxx=12323
变成
extern ENUM_TIMEFRAMES FixedPeriod  = 0;
啥意思

ENUM_TIMEFRAMES =应该跟double意思一样，因为位置一样
FixedPeriod  =起的名字，按理可以随意修改。

忽然发现
mt4升级了。
ENUM_TIMEFRAMES应该是个公式。且是跟时间周期相关的公式。
卧槽，soga，

以此类推

10.extern ENUM_LINE_STYLE cStyle    = 0;          // 通道样式0表直线

ENUM_LINE_STYLE =画图的样式，画直线？画虚线？妥了。

frlin2003 · 发表于 2016-3-15 20:39

本帖最后由 frlin2003 于 2016-3-15 20:40 编辑

通道是斜的，那句话控制的？

极度蒙圈
教科书通道＝
最少三点才能确定

现在，只要两点，一地鸡毛。

frlin2003 · 发表于 2016-3-15 20:43

第一个k起画，默认第50个k是最后一个k；=2个点。

frlin2003 · 发表于 2016-3-15 20:44

DrawSDChannel 好像问题都集中在这个单词上，soga，还是自言自语好。突然找到了蛋

frlin2003 · 发表于 2016-3-15 20:44

DrawSDChannel 貌似这个词，具有一个功能就是；
直接画出三条线。给出2个点，就自动生成。

frlin2003 · 发表于 2016-3-15 20:45

神奇的大爷

可中文名 · 发表于 2016-3-15 20:46

村支书，改编一下吧。

通道.rar (9.77 KB, 下载次数: 9)

嘿嘿

frlin2003 · 发表于 2016-3-15 20:46

容我马上紧急换个算法，
测试 DrawSDChannel的神奇功能

frlin2003 · 发表于 2016-3-15 20:51

可中文名发表于 2016-3-15 20:46
村支书，改编一下吧。

如何改编

frlin2003 · 发表于 2016-3-15 21:03

本帖最后由 frlin2003 于 2016-3-15 21:07 编辑

日，OBJ_STDDEVCHANNEL这个单词才是自动画通道的核心。
darw不是。只是表示。

中文名称：标准差通道

frlin2003 · 发表于 2016-3-15 21:10

怪不得测试没效果，没有丝毫反应，md，把文件保存到桌面上了。

今天game over，明天接着斗

frlin2003 · 发表于 2016-3-15 21:12

本帖最后由 frlin2003 于 2016-3-15 21:21 编辑

加个班
@可中文名

#property copyright "ANG3110@latchess.com"
//---------ang_PR (Din)--------------------
#property indicator_chart_window//主窗口显示指标
#property indicator_buffers 5//一共5个公式数组需要进行处理
#property indicator_color1 RoyalBlue//指标1蓝色
#property indicator_color2 LimeGreen//绿色
#property indicator_color3 LimeGreen//绿色
#property indicator_color4 Goldenrod//黄色
#property indicator_color5 Goldenrod//黄色
//-----------------------------------
extern int bars_back = 125; //统计125个k
extern int m = 2;//m=？
extern int i = 0;
extern double kstd = 2.0;
extern int sName = 1102;
//-----------------------
double fx[], sqh[], sql[], stdh[], stdl[];
double ai[10,10], b[10], x[10], sx[20];
double sum;
int ip, p, n, f;
double qq, mm, tt;
int ii, jj, kk, ll, nn;
double sq, std;
//*******************************************
int init()
{
IndicatorShortName("Center of Gravity");
SetIndexStyle(0, DRAW_LINE);
SetIndexBuffer(0, fx);
SetIndexBuffer(1, sqh);
SetIndexBuffer(2, sql);
SetIndexBuffer(3, stdh);
SetIndexBuffer(4, stdl);
p = MathRound(bars_back);
nn = m + 1;
ObjectCreate("pr" + sName, 22, 0, Time[p], fx[p]);
ObjectSet("pr" + sName, 14, 159);
return(0);
}
//----------------------------------------------------------
int deinit()
{
ObjectDelete("pr" + sName);
}
//**********************************************************************************************
int start()
{
int mi;
//-------------------------------------------------------------------------------------------
ip = iBarShift(Symbol(), Period(), ObjectGet("pr" + sName, OBJPROP_TIME1));
p = bars_back;
sx[1] = p + 1;
SetIndexDrawBegin(0, Bars - p - 1);//开始画的位置
SetIndexDrawBegin(1, Bars - p - 1);
SetIndexDrawBegin(2, Bars - p - 1);
SetIndexDrawBegin(3, Bars - p - 1);
SetIndexDrawBegin(4, Bars - p - 1);
//----------------------sx-------------------------------------------------------------------
for(mi = 1; mi <= nn * 2 - 2; mi++)//n-mi之间的k 求和
{
sum = 0;
for(n = i; n <= i + p; n++)
{
sum += MathPow(n, mi);
}
sx[mi + 1] = sum;
}
//----------------------syx-----------
for(mi = 1; mi <= nn; mi++)
{
sum = 0.00000;
for(n = i; n <= i + p; n++)
{
if(mi == 1)
sum += Close[n];//收盘价求和
else
sum += Close[n] * MathPow(n, mi - 1);//收盘价 *前一根之前绝对值，有点恍惚
}
b[mi] = sum;
}
//===============Matrix=======================================================================================================
for(jj = 1; jj <= nn; jj++)
{
for(ii = 1; ii <= nn; ii++)
{
kk = ii + jj - 1;
ai[ii, jj] = sx[kk];
}
}
//===============Gauss========================================================================================================
for(kk = 1; kk <= nn - 1; kk++)
{
ll = 0; mm = 0;
for(ii = kk; ii <= nn; ii++)
{
if(MathAbs(ai[ii, kk]) > mm)
{
mm = MathAbs(ai[ii, kk]);
ll = ii;
}
}
if(ll == 0)
return(0);
if(ll != kk)
{
for(jj = 1; jj <= nn; jj++)
{
tt = ai[kk, jj];
ai[kk, jj] = ai[ll, jj];
ai[ll, jj] = tt;
}
tt = b[kk]; b[kk] = b[ll]; b[ll] = tt;
}
for(ii = kk + 1; ii <= nn; ii++)
{
qq = ai[ii, kk] / ai[kk, kk];
for(jj = 1; jj <= nn; jj++)
{
if(jj == kk)
ai[ii, jj] = 0;
else
ai[ii, jj] = ai[ii, jj] - qq * ai[kk, jj];
}
b[ii] = b[ii] - qq * b[kk];
}
}
x[nn] = b[nn] / ai[nn, nn];
for(ii = nn - 1; ii >= 1; ii--)
{
tt = 0;
for(jj = 1; jj <= nn - ii; jj++)
{
tt = tt + ai[ii, ii + jj] * x[ii + jj];
x[ii] = (1 / ai[ii, ii]) * (b[ii] - tt);
}
}
//===========================================================================================================================
for(n = i; n <= i + p; n++)
{
sum = 0;
for(kk = 1; kk <= m; kk++)
{
sum += x[kk + 1] * MathPow(n, kk);
}
fx[n] = x[1] + sum;
}
//-----------------------------------Std-----------------------------------------------------------------------------------
sq = 0.0;
for(n = i; n <= i + p; n++)
{
sq += MathPow(Close[n] - fx[n], 2);
}
sq = MathSqrt(sq / (p + 1)) * kstd;
std = iStdDev(NULL, 0, p, MODE_SMA, 0, PRICE_CLOSE, i) * kstd;
for(n = i; n <= i + p; n++)
{
sqh[n] = fx[n] + sq;
sql[n] = fx[n] - sq;
stdh[n] = fx[n] + std;
stdl[n] = fx[n] - std;
}
//-------------------------------------------------------------------------------
ObjectMove("pr" + sName, 0, Time[p], fx[p]);
//----------------------------------------------------------------------------------------------------------------------------
return(0);
}
//==========================================================================================================================

复制代码

qwer · 发表于 2016-3-15 21:15

我发现搞外汇的到最后很有可能搞成精神分裂

frlin2003 · 发表于 2016-3-15 21:18

qwer 发表于 2016-3-15 21:15
我发现搞外汇的到最后很有可能搞成精神分裂

自学习的过程，往往先被鄙视N次

qwer · 发表于 2016-3-15 21:21

frlin2003 发表于 2016-3-15 21:18
自学习的过程，往往先被鄙视N次

大爷神级，无人可极，后来者只能仰望了！

frlin2003 · 发表于 2016-3-15 21:22

qwer 发表于 2016-3-15 21:21
大爷神级，无人可极，后来者只能仰望了！

神奇

frlin2003 · 发表于 2016-3-15 21:37

admin 发表于 2016-3-15 21:35
Alpha*大爷

		自动登录	找回密码
密码			快捷注册(禁q号)

[其他] 分享修改一蒙圈通道可讨论

评分