안녕하세요 예스스탁입니다. input : N(20); var : diff1(0),diff2(0),diff3(0),diff4(0); var : sum1(0),sum2(0),sum3(0),sum4(0); var : rate1(0),rate2(0),sim(0); diff1 = iff(C>C[1],1,0); diff2 = iff(C>C[1],abs(C-C[1]),0); sum1 = accumn(diff1,N);# N기간 상승일수의 합 sum2 = accumn(diff2,N);# N기간 상승폭의 합 diff3 = iff(C<C[1],1,0); diff4 = iff(C<C[1],abs(C[1]-C),0); sum3 = accumn(diff3,N);# N기간 하락일수의 합 sum4 = accumn(diff4,N);# N기간 하락폭의 합 Rate1 = (sum1*sum2)/(sum2+sum4)*100; Rate2 = (sum3*sum4)/(sum2+sum4)*100; sim = ((Rate1-Rate2)/N+100)/2; if crossup(sim,50) Then buy(); if CrossDown(sim,50) Then sell(); 즐거운 하루되세요 > 외국인 님이 쓴 글입니다. > 제목 : 심리도 수식수정부탁합니다 > 안녕하세요 심리도 수식을 수정부탁드립니다 VAR 과 value 을 사용하지 않는 식으로 부탁 드립니다 input : N(20); var1 = iff(C>C[1],1,0); var2 = iff(C>C[1],abs(C-C[1]),0); var3 = accumn(var1,N);# N기간 상승일수의 합 var4 = accumn(var2,N);# N기간 상승폭의 합 var5 = iff(C<C[1],1,0); var6 = iff(C<C[1],abs(C[1]-C),0); var7 = accumn(var5,N);# N기간 하락일수의 합 var8 = accumn(var6,N);# N기간 하락폭의 합 value1 = (var3*var4)/(var4+var8)*100; value2 = (var7*var8)/(var4+var8)*100; value3 = ((value1-value2)/N+100)/2; if crossup(value3,50) Then buy(); if CrossDown(value3,50) Then sell();