Program obliczający belke - drobna pomoc.

Program obliczający belke - drobna pomoc.
C8
  • Rejestracja:około 12 lat
  • Ostatnio:około 10 lat
  • Postów:10
0

Witam mam mały problem przy pisaniu programu który oblicza funkcje ugięcia belki dwu punktowo zamocowanej, przy czym niezbędne jest użycie całkowania metodą simpsona. I teraz moje pytanie mam wykres momentu, który robię w komponencie chart i tutaj pojawia się problem. Po podaniu zmiennych x,y wykres rysuje się ok do momentu gdy ostatnia zmienna ma postać 4;-10 ale wyświetlana jest jakoś 4;0. Zmienne do wykresu podane są ok bo w stringgrid wyświetlane są w sposób poprawny, czy ktoś może mi jakoś z tym pomóc? Ewentualnie też z dalszą częścią programu?

edytowany 1x, ostatnio: olesio
babubabu
  • Rejestracja:około 13 lat
  • Ostatnio:3 miesiące
  • Lokalizacja:Łódź
  • Postów:648
0

Błąd masz w 176 linijce

edytowany 1x, ostatnio: babubabu
Patryk27
Nie, nie widzisz tego? Przecież 176 linijka nie może spowodować błędu; jestem pewien, że to w 223, przyjrzyj się - array out of bounds ;P
C8
  • Rejestracja:około 12 lat
  • Ostatnio:około 10 lat
  • Postów:10
0

Tutaj część kodu odpowiedzialna za wykres:

Kopiuj
 
procedure TForm2.Wykres1Click(Sender: TObject);
var
   i:integer;
begin
n:=StrToInt(Edit5.Text)+1;
with Form3 do
begin
with Chart1 do
begin
series1.Clear;
Title.Text.Clear;
Title.Text.Add('Wykres funkcji M(x)');
 Legend.Visible:=false;
 //BottomAxis.Automatic := false;
// BottomAxis.SetMinMax(h[1]-10, h[n]+10);
//LeftAxis.Automatic := false;
//LeftAxis.AutomaticMaximum := false;
//LeftAxis.AutomaticMinimum := false;
//LeftAxis.SetMinMax(Mxt[n]-10, Mxt[1]+10);
LeftAxis.Title.Caption:='M(x)';
BottomAxis.Title.Caption:='h';

        for i := 0 to n-1 do
          begin
          series1.AddXY(h[i], Mxt[i]);
        end;


Form3.Show;
end;
end;

end;

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.