안녕하세요 예스스탁입니다. 올려주신식 따로 줄일만한 내용이 보이지 않습니다. 하나의 지표식에서 3개의 이평으로 값을 보고자 하시면 작성하신부분 그대로 사용하셔야 합니다. 다만 현재 식상에 이평의 기간값이 외부변수로 처리되어 있습니다. 아래와 같이 한개의 이평값만 출력되는 식으로 작성하시고 지표식을 3번 적용해서 각각 외부변수에서 기간값만 변경하시면 됩니다. 차트에는 동일이름의 지표도 갯수에 제한없이 적용이 가능합니다. Input:af(0.06),maxAF(0.25),ssk(10); Var:오늘(0),극대(0),극저(0),가속(0),내일(0),추세(0),상승(1),하락(-1); Var1 = Ema(C,ssk); if Var1 > 0 and 극대 == 0 and 극저 == 0 then { 극대 = Var1; 극저 = Var1; } if Var1 > 0 and 오늘[1] == 0 then { if 추세[1] == 0 then { if Var1[1] < Var1 then 추세 = 상승; if Var1[1] > Var1 then 추세 = 하락; } if 추세[1] == 상승 and Var1[1] > Var1 then { 추세 = 하락; 오늘 = 극대[1]; 가속 = af; } if 추세[1] == 하락 and Var1[1] < Var1 then { 추세 = 상승; 오늘 = 극저[1]; 가속 = af; } 극저 = min(Var1,극저); 극대 = max(Var1,극대); } if 오늘[1] > 0 then { if 추세[1] == 상승 then { if Var1 > 내일[1] then { 오늘 = 내일[1]; 극저 = 0; if Var1 > 극대[1] then { 극대 = Var1; 가속 = min(maxAF,가속+af); } } else { 추세 = 하락; 오늘 = 극대[1]; 극대 = 0; 극저 = Var1; 가속 = af; } } if 추세[1] == 하락 then { if Var1 < 내일[1] then { 오늘 = 내일[1]; 극대 = 0; if Var1 < 극저[1] then { 극저 = Var1; 가속 = min(maxAF,가속+af); } } else { 추세 = 상승; 오늘 = 극저[1]; 극저 = 0; 극대 = Var1; 가속 = af; } } } 내일 = (max(극대,극저) - 오늘) * 가속 + 오늘; //Plot1(오늘); if var1 >= C Then Plot1(var1, "오늘",BLUE); if var1 <= C Then Plot1(var1, "오늘",RED); 즐거운 하루되세요 > 외국인 님이 쓴 글입니다. > 제목 : 수정부탁드립니다. > 안녕하세요 수식을 간편하게 수정부탁드립니다. Input:af(0.06),maxAF(0.25),ssk(10); Var:오늘(0),극대(0),극저(0),가속(0),내일(0),추세(0),상승(1),하락(-1); Var1 = Ema(C,ssk); if Var1 > 0 and 극대 == 0 and 극저 == 0 then { 극대 = Var1; 극저 = Var1; } if Var1 > 0 and 오늘[1] == 0 then { if 추세[1] == 0 then { if Var1[1] < Var1 then 추세 = 상승; if Var1[1] > Var1 then 추세 = 하락; } if 추세[1] == 상승 and Var1[1] > Var1 then { 추세 = 하락; 오늘 = 극대[1]; 가속 = af; } if 추세[1] == 하락 and Var1[1] < Var1 then { 추세 = 상승; 오늘 = 극저[1]; 가속 = af; } 극저 = min(Var1,극저); 극대 = max(Var1,극대); } if 오늘[1] > 0 then { if 추세[1] == 상승 then { if Var1 > 내일[1] then { 오늘 = 내일[1]; 극저 = 0; if Var1 > 극대[1] then { 극대 = Var1; 가속 = min(maxAF,가속+af); } } else { 추세 = 하락; 오늘 = 극대[1]; 극대 = 0; 극저 = Var1; 가속 = af; } } if 추세[1] == 하락 then { if Var1 < 내일[1] then { 오늘 = 내일[1]; 극대 = 0; if Var1 < 극저[1] then { 극저 = Var1; 가속 = min(maxAF,가속+af); } } else { 추세 = 상승; 오늘 = 극저[1]; 극저 = 0; 극대 = Var1; 가속 = af; } } } 내일 = (max(극대,극저) - 오늘) * 가속 + 오늘; //Plot1(오늘); if var1 >= C Then Plot1(var1, "오늘",BLUE); if var1 <= C Then Plot1(var1, "오늘",RED); Var1 = Ema(C,20); if Var1 > 0 and 극대 == 0 and 극저 == 0 then { 극대 = Var1; 극저 = Var1; } if Var1 > 0 and 오늘[1] == 0 then { if 추세[1] == 0 then { if Var1[1] < Var1 then 추세 = 상승; if Var1[1] > Var1 then 추세 = 하락; } if 추세[1] == 상승 and Var1[1] > Var1 then { 추세 = 하락; 오늘 = 극대[1]; 가속 = af; } if 추세[1] == 하락 and Var1[1] < Var1 then { 추세 = 상승; 오늘 = 극저[1]; 가속 = af; } 극저 = min(Var1,극저); 극대 = max(Var1,극대); } if 오늘[1] > 0 then { if 추세[1] == 상승 then { if Var1 > 내일[1] then { 오늘 = 내일[1]; 극저 = 0; if Var1 > 극대[1] then { 극대 = Var1; 가속 = min(maxAF,가속+af); } } else { 추세 = 하락; 오늘 = 극대[1]; 극대 = 0; 극저 = Var1; 가속 = af; } } if 추세[1] == 하락 then { if Var1 < 내일[1] then { 오늘 = 내일[1]; 극대 = 0; if Var1 < 극저[1] then { 극저 = Var1; 가속 = min(maxAF,가속+af); } } else { 추세 = 상승; 오늘 = 극저[1]; 극저 = 0; 극대 = Var1; 가속 = af; } } } 내일 = (max(극대,극저) - 오늘) * 가속 + 오늘; //Plot1(오늘); if var1 >= C Then Plot2(var1, "오늘",BLUE); if var1 <= C Then Plot2(var1, "오늘",RED); Var1 = Ema(C,30); if Var1 > 0 and 극대 == 0 and 극저 == 0 then { 극대 = Var1; 극저 = Var1; } if Var1 > 0 and 오늘[1] == 0 then { if 추세[1] == 0 then { if Var1[1] < Var1 then 추세 = 상승; if Var1[1] > Var1 then 추세 = 하락; } if 추세[1] == 상승 and Var1[1] > Var1 then { 추세 = 하락; 오늘 = 극대[1]; 가속 = af; } if 추세[1] == 하락 and Var1[1] < Var1 then { 추세 = 상승; 오늘 = 극저[1]; 가속 = af; } 극저 = min(Var1,극저); 극대 = max(Var1,극대); } if 오늘[1] > 0 then { if 추세[1] == 상승 then { if Var1 > 내일[1] then { 오늘 = 내일[1]; 극저 = 0; if Var1 > 극대[1] then { 극대 = Var1; 가속 = min(maxAF,가속+af); } } else { 추세 = 하락; 오늘 = 극대[1]; 극대 = 0; 극저 = Var1; 가속 = af; } } if 추세[1] == 하락 then { if Var1 < 내일[1] then { 오늘 = 내일[1]; 극대 = 0; if Var1 < 극저[1] then { 극저 = Var1; 가속 = min(maxAF,가속+af); } } else { 추세 = 상승; 오늘 = 극저[1]; 극저 = 0; 극대 = Var1; 가속 = af; } } } 내일 = (max(극대,극저) - 오늘) * 가속 + 오늘; //Plot1(오늘); if var1 >= C Then Plot3(var1, "오늘",BLUE); if var1 <= C Then Plot3(var1, "오늘",RED); Var1 = Ema(C,40); if Var1 > 0 and 극대 == 0 and 극저 == 0 then { 극대 = Var1; 극저 = Var1; } if Var1 > 0 and 오늘[1] == 0 then { if 추세[1] == 0 then { if Var1[1] < Var1 then 추세 = 상승; if Var1[1] > Var1 then 추세 = 하락; } if 추세[1] == 상승 and Var1[1] > Var1 then { 추세 = 하락; 오늘 = 극대[1]; 가속 = af; } if 추세[1] == 하락 and Var1[1] < Var1 then { 추세 = 상승; 오늘 = 극저[1]; 가속 = af; } 극저 = min(Var1,극저); 극대 = max(Var1,극대); } if 오늘[1] > 0 then { if 추세[1] == 상승 then { if Var1 > 내일[1] then { 오늘 = 내일[1]; 극저 = 0; if Var1 > 극대[1] then { 극대 = Var1; 가속 = min(maxAF,가속+af); } } else { 추세 = 하락; 오늘 = 극대[1]; 극대 = 0; 극저 = Var1; 가속 = af; } } if 추세[1] == 하락 then { if Var1 < 내일[1] then { 오늘 = 내일[1]; 극대 = 0; if Var1 < 극저[1] then { 극저 = Var1; 가속 = min(maxAF,가속+af); } } else { 추세 = 상승; 오늘 = 극저[1]; 극저 = 0; 극대 = Var1; 가속 = af; } } } 내일 = (max(극대,극저) - 오늘) * 가속 + 오늘; //Plot1(오늘); if var1 >= C Then Plot4(var1, "오늘",BLUE); if var1 <= C Then Plot4(var1, "오늘",RED); Var1 = Ema(C,50); if Var1 > 0 and 극대 == 0 and 극저 == 0 then { 극대 = Var1; 극저 = Var1; } if Var1 > 0 and 오늘[1] == 0 then { if 추세[1] == 0 then { if Var1[1] < Var1 then 추세 = 상승; if Var1[1] > Var1 then 추세 = 하락; } if 추세[1] == 상승 and Var1[1] > Var1 then { 추세 = 하락; 오늘 = 극대[1]; 가속 = af; } if 추세[1] == 하락 and Var1[1] < Var1 then { 추세 = 상승; 오늘 = 극저[1]; 가속 = af; } 극저 = min(Var1,극저); 극대 = max(Var1,극대); } if 오늘[1] > 0 then { if 추세[1] == 상승 then { if Var1 > 내일[1] then { 오늘 = 내일[1]; 극저 = 0; if Var1 > 극대[1] then { 극대 = Var1; 가속 = min(maxAF,가속+af); } } else { 추세 = 하락; 오늘 = 극대[1]; 극대 = 0; 극저 = Var1; 가속 = af; } } if 추세[1] == 하락 then { if Var1 < 내일[1] then { 오늘 = 내일[1]; 극대 = 0; if Var1 < 극저[1] then { 극저 = Var1; 가속 = min(maxAF,가속+af); } } else { 추세 = 상승; 오늘 = 극저[1]; 극저 = 0; 극대 = Var1; 가속 = af; } } } 내일 = (max(극대,극저) - 오늘) * 가속 + 오늘; //Plot1(오늘); if var1 >= C Then Plot5(var1, "오늘",BLUE); if var1 <= C Then Plot5(var1, "오늘",RED); Var1 = Ema(C,60); if Var1 > 0 and 극대 == 0 and 극저 == 0 then { 극대 = Var1; 극저 = Var1; } if Var1 > 0 and 오늘[1] == 0 then { if 추세[1] == 0 then { if Var1[1] < Var1 then 추세 = 상승; if Var1[1] > Var1 then 추세 = 하락; } if 추세[1] == 상승 and Var1[1] > Var1 then { 추세 = 하락; 오늘 = 극대[1]; 가속 = af; } if 추세[1] == 하락 and Var1[1] < Var1 then { 추세 = 상승; 오늘 = 극저[1]; 가속 = af; } 극저 = min(Var1,극저); 극대 = max(Var1,극대); } if 오늘[1] > 0 then { if 추세[1] == 상승 then { if Var1 > 내일[1] then { 오늘 = 내일[1]; 극저 = 0; if Var1 > 극대[1] then { 극대 = Var1; 가속 = min(maxAF,가속+af); } } else { 추세 = 하락; 오늘 = 극대[1]; 극대 = 0; 극저 = Var1; 가속 = af; } } if 추세[1] == 하락 then { if Var1 < 내일[1] then { 오늘 = 내일[1]; 극대 = 0; if Var1 < 극저[1] then { 극저 = Var1; 가속 = min(maxAF,가속+af); } } else { 추세 = 상승; 오늘 = 극저[1]; 극저 = 0; 극대 = Var1; 가속 = af; } } } 내일 = (max(극대,극저) - 오늘) * 가속 + 오늘; //Plot1(오늘); if var1 >= C Then Plot6(var1, "오늘",BLUE); if var1 <= C Then Plot6(var1, "오늘",RED);