معادلات تكرتشارت ، فنياً ، تجميع جميع معادلات الفنية (متجدد )

[ابوسارة]

السلام عليكم


عدلتها امس و كنت برد عليك و نسيت

عموماً تفضل هذي المعادلة

اذا فيه اي خطأ او تعديل بلغني

لان عدلت عليها ع السريع


N := Input("Number of Days",1,1000,100);
f0 := Input("Level 0",0,100,0);
f1 := Input("Level 1",0,100,11.4);
f2 := Input("Level 2",0,100,23.6);
f3 := Input("Level 2",0,100,38.2);
f4 := Input("Level 3",0,100,50);
f5 := Input("Level 4",0,100,61.8);
f6 := Input("Level 5",0,100,76.4);
f7 := Input("Level 5",0,100,88.6);
f8 := Input("Level 6",0,100,100);
f9 := Input("Level 7",0,262,127.2);
f10 := Input("Level 8",0,262,161.8);
f11 := Input("Level 9",0,262,261.80);

lowPoiont := LLV(LOW,N);
highPoint := HHV(HIGH,N);
diff := LastValue(highPoint) - LastValue(lowPoiont);
v0:=LastValue(lowPoiont) + diff * f0 /100;
v1:=LastValue(lowPoiont) + diff * f1 /100;
v2:=LastValue(lowPoiont) + diff * f2 /100;
v3:=LastValue(lowPoiont) + diff * f3 /100;
v4:=LastValue(lowPoiont) + diff * f4 /100;
v5:=LastValue(lowPoiont) + diff * f5 /100;
v6:=LastValue(lowPoiont) + diff * f6 /100;
v7:=LastValue(lowPoiont) + diff * f7 /100;
v8:=LastValue(lowPoiont) + diff * f8 /100;
v9:=LastValue(lowPoiont) + diff * f9 /100;
v10:=LastValue(lowPoiont) + diff * f10 /100;
v11:=LastValue(lowPoiont) + diff * f11 /100;
currentCum := Cum(CLOSE/CLOSE);
lastCum := LastValue(currentCum - N);
line0:=ValueWhen(1,currentCum>=lastCum,v0);
line1:=ValueWhen(1,currentCum>=lastCum,v1);
line2:=ValueWhen(1,currentCum>=lastCum,v2);
line3:=ValueWhen(1,currentCum>=lastCum,v3);
line4:=ValueWhen(1,currentCum>=lastCum,v4);
line5:=ValueWhen(1,currentCum>=lastCum,v5);
line6:=ValueWhen(1,currentCum>=lastCum,v6);
line7:=ValueWhen(1,currentCum>=lastCum,v7);
line8:=ValueWhen(1,currentCum>=lastCum,v8);
line9:=ValueWhen(1,currentCum>=lastCum,v9);
line10:=ValueWhen(1,currentCum>=lastCum,v10);
line11:=ValueWhen(1,currentCum>=lastCum,v11);

line0;line1;line2;line3;line4;line5;line6;line7;li ne8;line9;line10;line11;



FillRegion(line0,1,line1,line0);

FillRegion(line1,1,line2,line1);

FillRegion(line2,1,line3,line2);

FillRegion(line3,1,line4,line3);

FillRegion(line4,1,line5,line4);

FillRegion(line5,1,line6,line5);

FillRegion(line6,1,line7,line6);

FillRegion(line7,1,line8,line7);