커뮤니티
수정부탁드립니다=================
2018-02-11 11:31:29
359
글번호 116518
// 첨부파일의 아래 그림 과 같이 당일 처음 교차라인만 추가로 수평으로 표시하고 싶슴니다 수정부탁드립니다 항상 감사합니다
//=======================================================================
Input:델타조정(0),downn(0.98),LENGTH1(50),LENGTH2(10),비교봉(5),비교봉1(5),양합상승(1.008),양합하락(0.985),표시2(0);
Input:소리2(0),소리22(0),표시위치(0.7),최고저기준(30),교차간격(0);
var : sum2(0,data1),sum4(0,data1),sum6(0,data1),TEMA1atm2(0),TEMA1atm4(0),TEMA1atm6(0),ss(0);
var : HH(0,data2),LL(0,data2),hl(0,data2),ii(0,data2);;
var : crup(0),crdn(0),sum22(0),ccurnt(0),cgap(0),callgap(0),putgap(0),plemeumgap(0),chanline(0);
var :linegi(0),data2yc(0),data3yc(0),hapyc(0),hapycrt(0),TEMA1hapycrt(0),crup96(0);
sum2 = (data2(c)+data3(c));
sum22 =(data2(c)+data3(c))/2*250000;
if data2(bdate != bdate[1]) Then{
ii = 0;
HH = sum22;
LL = sum22;
}
else
{
ii = ii+1;
if ii < 최고저기준 Then
{
if sum22 > HH Then
HH = sum22;
if sum22 < LL Then
LL = sum22;
}
else{
HH = data2(highest(sum22,최고저기준));
LL = data2(lowest(sum22,최고저기준));
hl = (hh + ll)/2;
}
}
//plot1(sum2,"양합");
PLOT3(sum22,"수정양합");
plot21(HH,"Data2 H" );
plot22(LL,"Data2 L");
plot23(hL,"hl",iff((hL )>(hL[1])+00,RED,iff((hL )<(hL[1] )-00,BLUE,BLACK)));
if hl > hl[1] then {
PLOT24(hl,"상승");
PlaySound("C:￦Users￦Administrator￦Desktop￦sound￦up01.wav");
}
if hl < hl[1] then {
PLOT25(hl,"하락");
PlaySound("C:￦Users￦Administrator￦Desktop￦sound￦dow.wav");
}
TEMA1atm2 = (3 * Ema(sum22,LENGTH1)) - (3 * Ema(Ema(sum22,LENGTH1),LENGTH1)) +
(Ema(Ema(Ema(sum22,LENGTH1),LENGTH1),LENGTH1));
plot5(TEMA1atm2,"태마2",iff((TEMA1atm2 )>(TEMA1atm2[1])+00,RED,iff((TEMA1atm2 )<(TEMA1atm2[1] )-00,BLUE,BLACK)));
/*
if 표시2 == 1 then
{
if sum22[비교봉]*양합상승< sum22 Then
{
PLOT11((sum22 ),"매수2");
if 소리2 == 1 then {
PlaySound("C:￦Users￦Administrator￦Desktop￦sound￦alert.wav");
}
}
if sum22[비교봉1]*양합하락> sum22 Then {
PLOT12((sum22 ),"매도2");
if 소리22 == 1 then {
PlaySound("C:￦Users￦Administrator￦Desktop￦sound￦reject.wav");
}
}
if sum22[비교봉1]*양합하락 == sum22 Then {
PLOT13((sum22 ),"매3");
}
}
*/
//plot6(Data2(c),"콜");
//plot7(Data3(c),"풋");
if ( Data2(c) > Data3(c)) and ( Data2(c) - Data3(c)) < 교차간격 Then{
// if CrossUp ( Data2(c),Data3(c)) Then{
// PLOT8(Data2(c),"상승교차");
crup = (Data2(c)+Data3(c))/2*250000;
ccurnt = c;
// PlaySound("C:￦Users￦Administrator￦Desktop￦효과￦Bandi.wav");
}
if ( Data3(c) > Data2(c)) and ( Data3(c) - Data2(c)) < 교차간격 Then{
// if CrossDown ( Data2(c) ,Data3(c)) Then{
// PLOT9(Data2(c),"하락교차");
crup = (Data2(c)+Data3(c))/2*250000;
ccurnt = c;
// PlaySound("C:￦Users￦Administrator￦Desktop￦효과￦click08.wav");
}
PLOT31(crup,"교차라인");
/*
cgap = (c - ccurnt)*250000 ;
plot41(cgap,"선물손익",iff((cgap )>00,RED,iff((cgap )<00,BLUE,BLACK)));
callgap = (Data2(c) - crup) * 250000;
plot42(callgap,"콜손익",iff((callgap )>00,RED,iff((callgap )<00,BLUE,BLACK)));
putgap = (Data3(c) - crup) * 250000;
plot43(putgap,"풋손익",iff((putgap )>00,RED,iff((putgap )<00,BLUE,BLACK)));
plemeumgap = (sum22 - crup)/sum22*100;
plot44(plemeumgap,"합손익",iff((plemeumgap )>00,RED,iff((plemeumgap )<00,BLUE,BLACK)));
*/
/* plotbaseline1(0);
plot45(linegi,"라인지정");
if sum22 < linegi * (100-downn)/100 then{
PLOT46(sum22 ,"양수찬스");
// PlaySound("C:￦Users￦Administrator￦Desktop￦sound￦reject.wav");
}
chanline = linegi * (100-downn)/100;
PLOT47(chanline ,"찬스라인");
data2yc = data2(closeD(1));
data3yc = data3(closeD(1));
PLOT48(data2yc ,"전데이타2");
PLOT49(data3yc ,"전데이타3");
hapyc = ( data2yc + data3yc ) / 2;
linegi = hapyc;
PLOT50(hapyc ,"전일양합평균");
hapycrt = (sum22 - crup) * 500000;
PLOT51(hapycrt ,"전일양합대비",iff((hapycrt )>00,BLACK,iff((hapycrt )<00,BLACK,BLACK)));
*/
if ( Data2(c) > Data3(c)) and ( Data2(c) - Data3(c)) < 교차간격 Then{
PLOT52(crup,"상승교차");
// PLOT54(hapycrt,"상승교차가격");
PlaySound("C:￦Users￦Administrator￦Desktop￦sound￦up01.wav");
}
if ( Data3(c) > Data2(c)) and ( Data3(c) - Data2(c)) < 교차간격 Then{
PLOT53(crup,"하락교차");
// PLOT55(hapycrt,"하락교차가격");
PlaySound("C:￦Users￦Administrator￦Desktop￦sound￦dn2.wav");
}
/*
TEMA1hapycrt = (3 * Ema(hapycrt,LENGTH2)) - (3 * Ema(Ema(hapycrt,LENGTH2),LENGTH2)) +
(Ema(Ema(Ema(hapycrt,LENGTH2),LENGTH2),LENGTH2));
PLOT56(TEMA1hapycrt,"양합대비테마");
if TEMA1hapycrt > TEMA1hapycrt[1] then {
PLOT57(TEMA1hapycrt,"상승");
PlaySound("C:￦Users￦Administrator￦Desktop￦sound￦up01.wav");
}
if TEMA1hapycrt < TEMA1hapycrt[1] then {
PLOT58(TEMA1hapycrt,"하락");
PlaySound("C:￦Users￦Administrator￦Desktop￦sound￦dow.wav");
}
*/
if sTime == 090000 Then {
plot99( crup,"장시작" );
}
crup96 = crup * 델타조정;
plot98( crup96,"델타조정" );
- 1. 117096_선긋기.xlsx (0.05 MB)
답변 1
예스스탁 예스스탁 답변
2018-02-13 11:16:46
안녕하세요
예스스탁입니다.
정확한 내용 판단이 되지 않습니다.
수식에 다수의 plot이 있는데 어떤 선의 교차를 의미하시는지 모르겠습니다.
많은 선중에 당일 최초 교차식이면 해당내용은 식작성에 시간이 많이 소모되ㅓ
작성해 드리지 않습니다.
좀더 자센한 내용 올려주시기 바랍니다.
즐거운 하루되세요
> leekss1 님이 쓴 글입니다.
> 제목 : 수정부탁드립니다=================
> // 첨부파일의 아래 그림 과 같이 당일 처음 교차라인만 추가로 수평으로 표시하고 싶슴니다 수정부탁드립니다 항상 감사합니다
//=======================================================================
Input:델타조정(0),downn(0.98),LENGTH1(50),LENGTH2(10),비교봉(5),비교봉1(5),양합상승(1.008),양합하락(0.985),표시2(0);
Input:소리2(0),소리22(0),표시위치(0.7),최고저기준(30),교차간격(0);
var : sum2(0,data1),sum4(0,data1),sum6(0,data1),TEMA1atm2(0),TEMA1atm4(0),TEMA1atm6(0),ss(0);
var : HH(0,data2),LL(0,data2),hl(0,data2),ii(0,data2);;
var : crup(0),crdn(0),sum22(0),ccurnt(0),cgap(0),callgap(0),putgap(0),plemeumgap(0),chanline(0);
var :linegi(0),data2yc(0),data3yc(0),hapyc(0),hapycrt(0),TEMA1hapycrt(0),crup96(0);
sum2 = (data2(c)+data3(c));
sum22 =(data2(c)+data3(c))/2*250000;
if data2(bdate != bdate[1]) Then{
ii = 0;
HH = sum22;
LL = sum22;
}
else
{
ii = ii+1;
if ii < 최고저기준 Then
{
if sum22 > HH Then
HH = sum22;
if sum22 < LL Then
LL = sum22;
}
else{
HH = data2(highest(sum22,최고저기준));
LL = data2(lowest(sum22,최고저기준));
hl = (hh + ll)/2;
}
}
//plot1(sum2,"양합");
PLOT3(sum22,"수정양합");
plot21(HH,"Data2 H" );
plot22(LL,"Data2 L");
plot23(hL,"hl",iff((hL )>(hL[1])+00,RED,iff((hL )<(hL[1] )-00,BLUE,BLACK)));
if hl > hl[1] then {
PLOT24(hl,"상승");
PlaySound("C:￦Users￦Administrator￦Desktop￦sound￦up01.wav");
}
if hl < hl[1] then {
PLOT25(hl,"하락");
PlaySound("C:￦Users￦Administrator￦Desktop￦sound￦dow.wav");
}
TEMA1atm2 = (3 * Ema(sum22,LENGTH1)) - (3 * Ema(Ema(sum22,LENGTH1),LENGTH1)) +
(Ema(Ema(Ema(sum22,LENGTH1),LENGTH1),LENGTH1));
plot5(TEMA1atm2,"태마2",iff((TEMA1atm2 )>(TEMA1atm2[1])+00,RED,iff((TEMA1atm2 )<(TEMA1atm2[1] )-00,BLUE,BLACK)));
/*
if 표시2 == 1 then
{
if sum22[비교봉]*양합상승< sum22 Then
{
PLOT11((sum22 ),"매수2");
if 소리2 == 1 then {
PlaySound("C:￦Users￦Administrator￦Desktop￦sound￦alert.wav");
}
}
if sum22[비교봉1]*양합하락> sum22 Then {
PLOT12((sum22 ),"매도2");
if 소리22 == 1 then {
PlaySound("C:￦Users￦Administrator￦Desktop￦sound￦reject.wav");
}
}
if sum22[비교봉1]*양합하락 == sum22 Then {
PLOT13((sum22 ),"매3");
}
}
*/
//plot6(Data2(c),"콜");
//plot7(Data3(c),"풋");
if ( Data2(c) > Data3(c)) and ( Data2(c) - Data3(c)) < 교차간격 Then{
// if CrossUp ( Data2(c),Data3(c)) Then{
// PLOT8(Data2(c),"상승교차");
crup = (Data2(c)+Data3(c))/2*250000;
ccurnt = c;
// PlaySound("C:￦Users￦Administrator￦Desktop￦효과￦Bandi.wav");
}
if ( Data3(c) > Data2(c)) and ( Data3(c) - Data2(c)) < 교차간격 Then{
// if CrossDown ( Data2(c) ,Data3(c)) Then{
// PLOT9(Data2(c),"하락교차");
crup = (Data2(c)+Data3(c))/2*250000;
ccurnt = c;
// PlaySound("C:￦Users￦Administrator￦Desktop￦효과￦click08.wav");
}
PLOT31(crup,"교차라인");
/*
cgap = (c - ccurnt)*250000 ;
plot41(cgap,"선물손익",iff((cgap )>00,RED,iff((cgap )<00,BLUE,BLACK)));
callgap = (Data2(c) - crup) * 250000;
plot42(callgap,"콜손익",iff((callgap )>00,RED,iff((callgap )<00,BLUE,BLACK)));
putgap = (Data3(c) - crup) * 250000;
plot43(putgap,"풋손익",iff((putgap )>00,RED,iff((putgap )<00,BLUE,BLACK)));
plemeumgap = (sum22 - crup)/sum22*100;
plot44(plemeumgap,"합손익",iff((plemeumgap )>00,RED,iff((plemeumgap )<00,BLUE,BLACK)));
*/
/* plotbaseline1(0);
plot45(linegi,"라인지정");
if sum22 < linegi * (100-downn)/100 then{
PLOT46(sum22 ,"양수찬스");
// PlaySound("C:￦Users￦Administrator￦Desktop￦sound￦reject.wav");
}
chanline = linegi * (100-downn)/100;
PLOT47(chanline ,"찬스라인");
data2yc = data2(closeD(1));
data3yc = data3(closeD(1));
PLOT48(data2yc ,"전데이타2");
PLOT49(data3yc ,"전데이타3");
hapyc = ( data2yc + data3yc ) / 2;
linegi = hapyc;
PLOT50(hapyc ,"전일양합평균");
hapycrt = (sum22 - crup) * 500000;
PLOT51(hapycrt ,"전일양합대비",iff((hapycrt )>00,BLACK,iff((hapycrt )<00,BLACK,BLACK)));
*/
if ( Data2(c) > Data3(c)) and ( Data2(c) - Data3(c)) < 교차간격 Then{
PLOT52(crup,"상승교차");
// PLOT54(hapycrt,"상승교차가격");
PlaySound("C:￦Users￦Administrator￦Desktop￦sound￦up01.wav");
}
if ( Data3(c) > Data2(c)) and ( Data3(c) - Data2(c)) < 교차간격 Then{
PLOT53(crup,"하락교차");
// PLOT55(hapycrt,"하락교차가격");
PlaySound("C:￦Users￦Administrator￦Desktop￦sound￦dn2.wav");
}
/*
TEMA1hapycrt = (3 * Ema(hapycrt,LENGTH2)) - (3 * Ema(Ema(hapycrt,LENGTH2),LENGTH2)) +
(Ema(Ema(Ema(hapycrt,LENGTH2),LENGTH2),LENGTH2));
PLOT56(TEMA1hapycrt,"양합대비테마");
if TEMA1hapycrt > TEMA1hapycrt[1] then {
PLOT57(TEMA1hapycrt,"상승");
PlaySound("C:￦Users￦Administrator￦Desktop￦sound￦up01.wav");
}
if TEMA1hapycrt < TEMA1hapycrt[1] then {
PLOT58(TEMA1hapycrt,"하락");
PlaySound("C:￦Users￦Administrator￦Desktop￦sound￦dow.wav");
}
*/
if sTime == 090000 Then {
plot99( crup,"장시작" );
}
crup96 = crup * 델타조정;
plot98( crup96,"델타조정" );