График функции экспоненциальной

Question

Я пытаюсь создать линейный график показательной функции:

j:=IWcmbxCriterionName.ItemIndex; 

    p1a:=(-5000)*0.001; 
    p1c:= -(Exp(P1a * Min[j]))/(Exp(P1a * Max[j]) - Exp(P1a * Min[j])); 
    p1b := (1 - P1c)/Exp(P1a * Max[j]); 
    k1 := Max[j]; 
    i1 := Min[j]; 
    while i1 <= k1 do 
     begin 
     Serie1.AddXY(i1, P1b * Exp(p1a * (i1)) + p1c,'',clWebBLUE); 
     i1 := i1 + 0.01; 
     end; 
    chart1.BottomAxis.Maximum:=k1; 
    chart1.BottomAxis.Minimum:= min[j]; 
    chart1.UndoZoom; 

но serie1 не появляется на графике! Может кто-то может мне помочь?

Answer 1

Удалите линии, в которых вы установили нижнюю ось мин. и макс. и попытаться установить я в автоматический режим только в случае, если эти значения являются неправильными:

Chart1.BottomAxis.Automatic:=True; 

Если проблема не устранена, пожалуйста, пришлите нам простой пример проекта мы можем работать «как есть», чтобы воспроизвести проблему здесь. Вы можете размещать свои файлы на нашем upload page.