Tchart-wykresy

Mam takie zadanie,że muszę w sposób graficzny przedstawić analizę stanów nieustalonych w obwodzie RL,RC oraz RLC. Mam wszystkie wzory, kwestia w tym przedstawić je w sposób graficzny(Wykresy). Wykresy te są w funkcji czasu. Szukałem wszędzie i nic konkretnego nie znalazłem. Mogłby mi ktoś pomóc i podać przykład jak zrobić wykres mając gotowy wzór uzalezniony od jednej zmiennej w Tcharcie np. wykres funkcji exp(t). Z góry wielkie dzięki.

Wielkie dzięki za podpowiedź. Wiele storn przejrzałem przed założeniem tego tematu ale wszędzie tylko napisany było o zaletach "T charta" itp. Nareszcie konkretna wskazówka. Wielkie dzięki.

Mam tylko jeszcze jedno pytanie. Rysując wykres liniowy definiuje jedną zmienną w pętli for (for x:=0 to 10 do). Krok iteracji jest równy 1 i wykres jest bardzo kanciaty. Czy da się jakość ustawić krok np co 0.1 by wykres był bardziej gładki. Jeśli tak to jakiego typu zmienna x ma być? A może jest gdzieś opcja w komponencie "T chart" tylko ja nie potrafię jej znaleźć. Będę wdzięczny za podpowiedź. Pozdrawiam

jak chcesz mniejszy krok to zwyczajnie zamiast dawac for'a do "10" to daj do np "10 000" a wewnatrz petli nie uzywaj wtedy "i" tylko "i/1000".

procedure TForm1.Button1Click(Sender: TObject);

var
x:integer;
begin

for x:=0 to 10 do
  begin

chart1.Series[0].AddXY(x/100,sin(x))

 end;


end;

end.

Mimo tego nadal moja funkcja sinus jest kanciata. Może robię jeszcze coś nie tak? Z góry dzięki za odpowiedź.

zastanawiam sie czy w ogole rozumiesz co robisz...
powiedz mi, skoro dodales 11 punktow to jakim cudem wykres mialby nie byc kanciasty?
napisalem Ci wyraznie jak to ominac ale skorzystales tylko z polowy mojej rady a i to zle.
musisz myslec troche nad tym co robisz a nie pisac na pale...

procedure TForm1.Button1Click(Sender: TObject);
var x:integer;
begin
  for x:=0 to 10000 do
      chart1.Series[0].AddXY(  x/1000,   sin(x/1000)   );
end;

lub jesli bedzie wecej operacji z x to troche wygodniej:

procedure TForm1.Button1Click(Sender: TObject);
var x:integer;
    xx:real;
begin
  for x:=0 to 10000 do
    begin
      xx:=x/1000;
      chart1.Series[0].AddXY(  xx,   sin(xx)   );
      {...}
    end;
end;

Wielkie dzięki za pomoc.

Mam tylko jeszcze jedno pytanie. Rysuje wykres o wzorze U/R(1-exp((-R/L)x)-wzór na przebieg prądu w obwodzie RL. Parametry U,R,L podaje przy pomocy komponentu Edit. Wykres zależy głównie od stałej czasowej którą tworzą parametrów R i L. Jak zrobić aby oś X zmieniała się dynamicznie w zależności od podanych danych np do 8(R/L). Czy jest to możliwe?

Chce aby się x zmieniało od 0 do T. To pozwoliło by mi w zależności od parametrów(R,L) uzyskać dobrze widoczne wykresy. Program krzyczy że T musi być całkowita (integer). T zależy od R i L a to są zmienne rzeczywiste(real) kompilator nadal krzyczy o błędach ze zmiennymi. Proszę o pomoc czy da się to jakoś rozwiązać? Z góry dzięki za pomoc.

procedure TForm1.Button1Click(Sender: TObject);

var x,t:integer;
    xx:real;


begin

E:=StrToFloat(Form1.Edit1.Text);
R:=StrToFloat(Form1.Edit2.Text);
L:=StrToFloat(Form1.Edit3.Text);
T:=10*(R/L);

  for x:=0 to T do 
    begin
      xx:=x/100;
      chart1.Series[0].AddXY(  xx, (E/R)*(1-exp((-xx)*(R/L))) );
      chart1.Series[1].AddXY(  xx, E*(1-exp(-xx*(R/L))));
      chart1.Series[2].AddXY(  xx, E*exp((-xx)*(R/L)));
      {...}
    end;
end;

for x:=0 to T do round(t) do...
round zaokragla t do liczby calkowitej.

To fragment kodu

procedure TForm1.Button1Click(Sender: TObject);

var x:integer;
    xx:real;


begin

E:=StrToFloat(Form1.Edit1.Text);
R:=StrToFloat(Form1.Edit2.Text);
L:=StrToFloat(Form1.Edit3.Text);


  for x:=0 to 1000 do
    begin
      xx:=x/100;
      chart1.Series[0].AddXY(  xx, (E/R)*(1-exp((-xx)*(R/L))) );
      chart1.Series[1].AddXY(  xx, E*(1-exp(-xx*(R/L))));
      chart1.Series[2].AddXY(  xx, E*exp((-xx)*(R/L)));
      {...}
    end;
end;

A to wynik symulacji.
http://zapodaj.net/70ff004bc468.bmp.html

A teraz przejdę do sedna. Jak widać wykresy zależą od podanych parametrów. Z tym że oś X jest stała. Jak zrobić by zmieniała się dynamicznie niezależnie od podanych parametrów, aby wykres był dobrze widoczny jak np. wykres po lewej stronie zdjęcia? Brak mi już pomysłu jak to zrobić. Proszę o pomoc. Z góry dzięki.

z tego co widzę, funkcje dążą do pewnych wartosci i potem sa juz stałe.
musisz wiec znaleŹĆ x, po ktorym funkcje juz nie beda sie zmieniac.
teraz masz dwie mozliwosci:
albo poszukaj wzoru (popatrz, pomysl, napisz)
albo "jedz" po wszystkich funkcjach i sprawdzaj czy rosna/maleja. jesli przestana, lub po prostu osiagna max/min wartosc to mozesz przestac dodawac kolejne punkty.

Wartość X po których funkcja się nie zmienia zależy od parametrów R i L a dokładnie L/R. Po 7*(L/R) lub 8*(L/R) funkcja już nie będzie się zmieniać. Próbowałem już umieszczać to w pętli for i pisałem o tym w poprzednich postach niestety nadal wykresy nie są takie jak chce.

cos zle chyba robiles...

  for x:=0 to Round(8*(L/R)*100) do

P.S.
proponuje pogrubić linie na wyresie bo srednio widac kolory, o legendzie juz nie wspominając.
po 2. jesli w edicie bedzie cos innego niz liczba to wywali blad. najlepiej jest zablokowac mozliwosc wpisania znakow innych niz 0..9, backspace do editow.
po 3. jesli to program na zaliczenie obowiazkowo zmien nazwy komponentow, bo "Edit1,2,3..milion" nic nie mowi.

Dzięki już jestem bliżej celu. Tylko że co w przypadku gdy stosunek L/R jest mniejszy od 1 (np 0,00001). Wtedy wykres nadal się wyglądają nie tak jak chce. Spróbuje jeszcze coś pozmieniać.

P.S.
Na razie powalczę z tymi wykresami żeby wychodziły tak jak chce. A co do linii legendy i editów to pozmieniam jak już opanuje prawidłowe rysowanie. Pozdrawiam.

hultaj87 napisał(a)

Tylko że co w przypadku gdy stosunek L/R jest mniejszy od 1 (np 0,00001).

jakos tak..:

mnoznik:=1000*(1/(L/R));

  for x:=0 to Round(8*(L/R)*mnoznik) do
    begin
      xx:=x/mnoznik;
      {...}
    end;

Wielkie dzięki. :)

Mam jeszcze jedno pytanie. Zablokowałem litery oraz inne znaki w Edicie, wpisanie 0 wyświetla stosowny komunikat. A jak zapobiegać sytuacji, gdy nic nie wpiszemy do Editu. Próbowałem Edit.Text='', ale nie działa. Pomocy, co robię źle. Poniżej zamieszczam fragment programu. Pozdrawiam.

begin


E:=StrToFloat(Form1.Nap.Text);
R:=StrToFloat(Form1.Rez.Text);
L:=StrToFloat(Form1.Ind.Text);

if (Nap.Text='') or (Rez.Text='') or (Ind.Text='') then
begin
Application.MessageBox('Brak parametrów E,L lub R', 'UWAGA!', MB_ICONEXCLAMATION );
Exit;
  end;

if (E=0)or(L=0)or(R=0) then
begin
Application.MessageBox('Parametry E,L,R muszą byc większe od 0.', 'UWAGA!', MB_ICONEXCLAMATION );
Exit;
end;

Już znalazłem błąd. Najpierw trzeba było ustawić sprawdzanie czy Edity są puste a dopiero StrToFloat. Pozdrawiam. :)

begin

 if (Form1.Nap.Text='') or (Form1.Rez.Text='') or (Form1.Ind.Text='') then
begin
Application.MessageBox('Brak parametrów E,L lub R', 'UWAGA!', MB_ICONEXCLAMATION );
Exit;
  end;

E:=StrToFloat(Form1.Nap.Text);
R:=StrToFloat(Form1.Rez.Text);
L:=StrToFloat(Form1.Ind.Text);



if (E=0)or(L=0)or(R=0) then
begin
Application.MessageBox('Parametry E,L,R muszą byc większe od 0.', 'UWAGA!', MB_ICONEXCLAMATION );
Exit;
end;

Czy macie jakaś radę na błąd "Floating point overflow"? W necie znalazłem ze to jest Nadmiar zmiennoprzecinkowy tz. że wartość jest za duża. Próbowałem rożnych kombinacji ale znów utknąłem w martwym punkcie. Program działa pozornie dobrze np (dla wartości E=10,R=100,L=1,C=1). Ale gdy już chce wstawić wartości bardziej rzeczywiste tj.(C=0,00001 i L=0,001) dostaje komunikat o błędzie o którym już wspomniałem na początku postu. Jest jakaś na to rada? Pozdrawiam.

procedure TForm1.Button1Click(Sender: TObject);

var x:integer;
    xx:real;


begin

if (Form1.Nap.Text='') or (Form1.Rez.Text='') or (Form1.Poje.Text='') or (Form1.Indu.Text='')then
begin
Application.MessageBox('Brak parametrów E,L,C lub R.', 'UWAGA!', MB_ICONEXCLAMATION );
Exit;
  end;

E:=StrToFloat(Form1.Nap.Text);
R:=StrToFloat(Form1.Rez.Text);
C:=StrToFloat(Form1.Poje.Text);
L:=StrToFloat(Form1.Indu.Text);
Alfa:=R/(2*L)   ;
Beta:=sqrt((Alfa*Alfa)-(1/(L*C)))   ;


if (E=0)or(C=0)or(R=0)or(L=0) then
begin
Application.MessageBox('Parametry E,L,R,C muszą byc większe od 0.', 'UWAGA!', MB_ICONEXCLAMATION );
Exit;
end;


      chart1.Series[0].Clear;
      chart1.Series[1].Clear;
      chart1.Series[2].Clear;
      chart2.Series[0].Clear;
      chart2.Series[1].Clear;
 for x:=0 to 1000 do
    begin

      xx:=x/100;

      chart1.Series[0].AddXY( xx,(E*exp(-xx*Alfa))*(cosh(Beta*xx)-((Alfa/Beta)*(sinh(Beta*xx)))) );
      chart1.Series[1].AddXY( xx,E-E*exp(-xx*Alfa)*(cosh(Beta*xx)+((Alfa/Beta)*(sinh(Beta*xx)))));
      chart1.Series[2].AddXY(xx,E );
      chart2.Series[0].AddXY( xx,(E/(Beta*L)*exp(-xx*Alfa)*sinh(Beta*xx)) );
      //chart2.Series[1].AddXY(xx, );

    end;
end;

Ja bym to rozwiązał tak, że w OnChange dla Editów dał bym coś w stylu:

  NazwijPorzadnieButtonNieSamymButton1BoToTakieLame.Enabled := (NazwijEditPorzadnie1.Text <> '')
    and (TenEditTezNazwijJakTrzeba.Text <> '') and {... i tak dalej ...};

Natomiast kiedyś na innym forum polecono mi taki sposób aby sprawić by w pole edycyjne
dało się wpisać tylko prawidłowe liczby zmiennoprzecinkowe - z określoną ilościa miejsc po
sepatatorze dziesiętnym. Może kod nie jest idealny, ale działa. Można dodać tu też jakaś
zmienną globalną typu boolean i na początku kodu ustawić ja na False, zaś na końcu na
True i dodatkowo sprawdzać w OnChange: ... and (CzyTaZmiennaTypuBoolean = True);

procedure TMainForm.LiczbaEditKeyPress(Sender : TObject; var Key : Char);
var
  Przecinek : string;
  PozycjaKursora : Integer;
  PozycjaPrzecinka : Integer;
  IloscMiejscPoPrzecinku : integer;
begin
  Przecinek := DecimalSeparator;
  IloscMiejscPoPrzecinku := 3;
  with Sender as TEdit do
  begin
    PozycjaKursora := 0;
    PozycjaKursora := SelStart - SendMessage(Handle, EM_LINEINDEX, PozycjaKursora, 0);
    PozycjaPrzecinka := Pos(Przecinek, Text);

    if (Key in ['0'..'9', #8]) or (Key = Przecinek[1])
      and (PozycjaKursora > 0) and (PozycjaKursora >= Length(Text) - IloscMiejscPoPrzecinku) then
    begin
      // Nie rób nic!
    end
    else
    begin
      Key := Chr(0);
      Exit;
    end;

    if (Length(Text) = 0)
      and (Key = Przecinek[1])
      or (Length(Text) > 0)
      and (Key = Przecinek[1])
      and (Pos(Przecinek, Text) > 0) then
    begin
      Key := #0;
      Exit;
    end;

    if Key in [#8] = False then
    begin
      if (Pos(Przecinek, Text) > 0) then
      begin
        if PozycjaKursora >= PozycjaPrzecinka then
          if ((Length(Text)) < (Pos(Przecinek[1], Text)) + IloscMiejscPoPrzecinku) then
          else
          begin
            Key := #0;
            Exit;
          end;
      end;
    end;
  end;
end;

Oczywiście w OnCreate czy tam w OnShow ustawiasz Enabled Buttona na False.
I taki sposób jak pokazałem jest bardziej elegancki, niż zmęczenie użytkownika
przez ciągłe pokazywanie mu MessageBoxa. Lepiej i ładniej - blokowac przycisk.

hultaj87 napisał(a)

Czy macie jakaś radę na błąd "Floating point overflow"?

google: delphi "Floating point overflow"
przyjrzyj sie dyrektywom {$J-} i {$Q-} oraz funkcjom isNAN i isINFINITY.
mozesz tez zastanowic sie nad uzyciem bibliotek ktore zapewniaja obsluge liczb o wiekszym zakresie. bylo o tym pare razy na forum, poczukaj.

Wielkie dzięki za wszystkie rady :). Uporałem się już ze wszystkim. Dzięki za wyrozumiałość, bo praktycznie nie mam kontaktu z programowanie (po za jednym semestrem na I roku ale to głownie Pascal a Delphi tylko szczątkowo). Przez jakieś widzimisię doktorka na 3 roku studiów Elektrotechniki, zostałem zmuszony do zrobienia projektu w Delphi jak by nie było innych programów wspomagających projektowanie. Na laborce ćwiczymy Excela, MatchCada, AutoCada, Delphi a przecież jest wiele programów związanych bardziej z moim kierunkiem studiów. Są jednak plusy tego mojego projektu, programowanie to fajna sprawa i wciąga. :) Raz jeszcze wielkie dzięki. Pozdrawiam :)

P.S. Co do błędu "Floating point overflow" uporałem się z nim trochę inaczej tz matematycznie. Zastosowałem inne wzory funkcji tz. pozbyłem się funkcji hiperbolicznych i problem z dużymi liczbami sam się rozwiązał. Pozdrawia :)

Witam uczę się delphi, i nie wiem czy nie rzuciłem się na gołąbką wodę (
mam kod który sam sobie napisałem by nauczyć się komponentu TChart
unit wykresDany;

unit wykresDany;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, StdCtrls;

type
TForm1 = class(TForm)
WykresDanego: TChart;
Series1: TLineSeries;
CloseButton: TButton;
BRysuj: TButton;
Procedure Start (Sender: TObject);
procedure rysujwykres(Sender:TObject);
procedure CloseButtonClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Lista:array[0..1] of string;
Listaint:array[0..1] of integer;
implementation

{$R *.dfm}
procedure TForm1.Start(Sender: TObject);
var
x,y:integer;
s:string;
begin
for x:=0 to 1 do
y:=x+1;
Listaint[x]:= y;
s:=IntToStr(y);
Lista[x]:=s;
end;
procedure TForm1.rysujwykres(Sender:TObject);
var
a,c,j:integer;
b,i:string;

begin
  WykresDanego.Series[1].Clear;
  j:=0;
  a:=2;

     while j<=a do
      begin
      b:=IntToStr(j);
     WykresDanego.Series[0].Add(Lista[b],clred);
      j:=j+1;
    end;
  end;

procedure TForm1.CloseButtonClick(Sender: TObject);
begin
Close
end;

end.
Pokazuje mi błędy

a jak mi się go uda uruchomić to pokazuje mi błąd
"raised exeption class EListError with message 'List index out of bounds(1);"

wiem wiem że jestem leszczem ale kurcze nie rozumie tego co źle robie wiec prosze o podpowiedzi bym stosując sie do nich mógł szybciej to zrozumiec
z góry dzięki

Warning napisał(a)

FOR-Loop variable 'x' may be undefined after loop

Oznacza, że wykorzystujesz zmienną licznikową pętli for poza jej zakresem blokiem (jej wartość poza ciałem pętli nie została zdefiniowana);

Error napisał(a)

Incompatible types: 'Integer' and 'String'

Oznacza, że próbujesz do zmiennej liczbowej (typu Integer) wpisać wartość łańcuchową (typu String) co jest niedopuszczalne;

Exception napisał(a)

raised exeption class EListError with message 'List index out of bounds(1);

Oznacza, że próbujesz się odwołać do nieistniejącego elementu listy (indeks elementu poza zakresem listy);

Użyj czasem Google zanim zapytasz na forum... O.o

Użyj czasem Google zanim zapytasz na forum... O.o</quote>

Używam google ale czasem nic nie kumam, mam pytanie
Jak narysować wykres punktów które mam zapisane w tablicy [j,1] dla typu zmiennoprzecinkowego w komponencie TChart? (możecie mi podać jakiś przykład) bo error pokazuje mi cały czas że musza być dane typu integer a zamieniam dane na integer i dupa
i lepiej używać ADD czy ADDXY? jak chce wykres z osiami wartość do czasu?

Panowie, może coś doradzicie
Chcę zrobić wykres TChart, Zrobiłem układ symulacji regulatora którego poszczególne wyniki zapisywane są w tablicy dynamicznej, układ symulowałem przy typie danych extended. Teraz by zrobić wykres np. linia to muszę przejść z string albo float na double lub integer (tak?) - wykorzystując AddXY? możecie mi podsunąć jakis pomysł jak to rozwiązać?
z góry dziękuję
pozdrawiam