widerstandsschaltung

[mic]

in einem labor gibt es n verschiedene widerstände mit den werten R1 bis Rn(jeweils mehrere stück). beim aufbau einer schaltung braucht man einen widerstand mit dem wert Rx, der möglichst genau realisiert werden soll
1.durch vorhandenen widerstand
2.durch parallelschaltung 2er widerstände(Rpar=Ri*Rj/ Ri+Rj)
oder
3.durch serienschaltung 2er widerstände(Rser=Ri+Rj)
,wobei jener fall auszuwählen ist, bei dem der kleinste relative fehler(in %)auftritt (Fr=100*abs(Rx-R)/Rx)

meine frage dazu: ich weiß nicht genau wie ich die abfragen für Rx schreiben soll, da ich mehrere widerstände (verschiedene wie gleiche)in einem vorrat habe (helfen mir hier permutationen?)..
für ein paar unterstützende ideen wär ich sehr dankbar!
:roll:

[TeronG]

Hi
erstmal Wellcome :hello: :party:

Also ich hätt da ne ungefähre vorgehensweise ....
Und zwar würd ich einfach mal (evtl. mit ner WHILE-Schleife) vom Gesammtwiederstand (Rx) den größten einzelwiederstand (sofern er nicht größer ist als der Rx) abziehen und dann das gleiche mit dem Restwiederstand.
Das währ hald dann die Serienschaltung wenn du auch Parallelschaltungen machen willst musst du hald die Leitwerte (1/r) auch noch durchtesten wird dann aber aufwändiger weil du alle möglichen Kombinationen durchgehen musst ^^

(hatte mal ne arabische zu römische Zahlen procedure die das machte ^^)

[ibp]

ja natürlich helfen dir da permutationen, wobei aus der gesamtmenge nur jeweils 2 entnommen werden und es unerheblich ist ob r1+r2=r2+r1 ist.

[ibp]

oops vergessen...herzlich willkommen :dp:

zum thema: es sollte reichen ein array und zwei schleifen, da du ja nur zwei widerstände brauchst.
schematisch:

Code:

für die widersände:
r=array (1..n) 
rpar,rser=array


für die auswahl

for i=1 to n-1 do
  for j=i to n do
    rser[n]=r[i]+r[j]  
    ...

das sollte helfen!

[TeronG]

Zitat:

Zitat von ibp

... da du ja nur zwei widerstände brauchst ...

Ohh ... na dann Ich dachte du willst mehrere verschiedene zusammenbasteln ... wenn es nur 2 sind dann is mein Ansatz wohl n bissl übertrieben/aufwändig :mrgreen:

[atreju2oo0]

Ich glaube das Dein Ansatz aber richtig war Teron...
Es sollen ja an beliebige Rx angenähert werden, oder?
Und das heisst es kann alles benutzt werden!

(so hab ich das verstanden...) :gruebel:

[ibp]

also ich habe es so verstanden: es gibt n widerstände, aus denen zwei ausgewählt werden sollen, die möglicht genau an der vorgabe liegen!

[TeronG]

Bevor wir noch lange Rätseln warten wir doch einfach bis MIC antwortet :mrgreen:

[trifid]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
   var R : array[1..5] of integer;
   var Rp : Double;
   var Rs : Double;
   var Rx : Double;
   var E  : Double;
   var Ep : Double;
   var Es : Double;
   var c  : Char;
begin
   R[1] := 10;
   R[2] := 47;
   R[3] := 147;
   R[4] := 237;
   R[5] := 347;

   c := '0';

   Rx := 144; 
   E  := 10000000.0;

   for n := 1 to 5 do
   begin
      for m := 1 to 5 do
      begin
         Rp := (R[n] * R[m]) / (R[n] + R[m]);
         Rs := R[n] + R[m];

         Ep := (Rx - Rp) / Rx;
         Es := (Rx - Rs) / Rx;

         if Ep < E then
         begin
            E := Ep;
            R1 := R[n];
            R2 := R[m];
            c := 'P';
         end;
         if Es < E then
         begin
            E := Es;
            R1 := R[n];
            R2 := R[m];
            c := 'S';
         end;
      end;
   end;

   // Ergebnisse stehen nun in E, R1 und R2, c


end;

hab es gerade in 5min runter gehackt, nicht getestet
aber richtige richtung

man kann das auch mit einer repeat until realisieren
und schauen wo die Kostenfunktion

Zitat:

kleinste relative fehler(in %)auftritt (Fr=100*abs(Rx-R)/Rx)

ein Minimum aufweist :-D

[mic]

hi!

späte antwort, aber doch... danke danke vorerst an alle!!

sollte so gemeint sein:
Rx wird von mir eingegeben, und aus einem Lagerbestand(den ich aus beliebigen widerständen auffülle) sollen jene zwei widerstände ausgewählt werden, wo der kleinste relative fehler ist ... entweder es gibt den gewählten widerstand Rx im lagerbestand (vorhanden)od er soll durch parallel bzw serienschaltung realisiert, also bestmöglich an Rx angenähert werden....

[fiasko]

Hallo,

den geringsten Fehler dürftest du bekommen wenn du möglichst ganz ganz viele gleiche Widerstände in Reihe oder Parallel schaltest (unter der Vorraussetzung das die Verteilungsfunktion der Widerstandswerte symetrisch verteilt ist).

[ibp]

welche der antworten hat dir denn weitergeholfen?

[mic]

Zitat:

Zitat von ibp

oops vergessen...herzlich willkommen :dp:

zum thema: es sollte reichen ein array und zwei schleifen, da du ja nur zwei widerstände brauchst.
schematisch:

Code:

für die widersände:
r=array (1..n) 
rpar,rser=array


für die auswahl

for i=1 to n-1 do
  for j=i to n do
    rser[n]=r[i]+r[j]  
    ...

das sollte helfen!

hab noch folgendes problem; wie kann ich widerstände aus einem lagerbestand (eingetragen in ein memofeld) m diesen schleifen verbinden.. fragen über fragen ... :?:

[ibp]

so..

Zitat:

Zitat von ibp

Code:

für die widersände:
r=array (1..n,1..n) < im zweiten feld des arrays stehen die lagerbestände 
rpar,rser=array


für die auswahl

for i=1 to n-1 do
  for j=i to n do
    rser[n]=r[i]+r[j]  
    ...

das sollte helfen!

[mic]

hab das jetzt mal so gelöst, nur stimmt die rechnung bei mir nicht, die fehler(in %) sind zu groß.. weiß wer wo der fehler liegt?

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
   var R : array[1..6] of integer;
    Rp : double;
    Rs : double;
    Rx : double;
    E  : double;
    Ep : double;
    Es : double;
    m,n,i : integer;

begin
  Rx := StrToInt(Edit2.text);
  E  := 10000000.0;

   if pos(floattostr(Rx),ListBox1.Items.text)<> 0 then
      begin
        ShowMessage('Widerstand vorhanden!');
         Edit3.text := '0';
         Edit4.text := 'Vorhanden';
      end
  else begin
      for n:=0 to ListBox1.items.count-1 do
       begin
         for m := 0 to ListBox1.items.count-1 do
           begin
             Rp := (R[n] * R[m]) / (R[n] + R[m]);
             Rs :=  R[n] + R[m];
             Ep := (Rx - Rp) / Rx;
             Es := (Rx - Rs) / Rx;

             if Ep < E then
               begin
                 E := Ep;

                 Edit3.text := FloatToStr(100*(abs(Ep)));
                 Edit4.text := 'P';
               end;
             if Es > E then
               begin
                 E := Es;
                 Edit3.text := FloatToStr(100*(abs(Es)));
                 Edit4.text := 'S';
               end;
            end;
       end;
   end;

 end;

end.

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]

[trifid]

na, das sieht nach meinen code aus :-D

Zitat:

die fehler(in %) sind zu groß

vielleicht an deiner Fehler Formel

Fehler = ((Rneu * 100.0) / Rx) - 100.0) in %

Zitat:

var R : array[1..6] of integer;

und dann ein

Delphi-Quellcode:

ListBox1.items.count

entweder du verwendest ein dynamisches Array oder schreibst eine Klasse die die Widerstandslösungen verwaltet, dann bist du flexibel

[ibp]

...
- was steht in R und wo schreibst du das rein?
- nimmst du nun ein array oder die listbox?
- wo steht die entgültige auswahl der widerstände?

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
   var R : array[1..6] of integer;
    Rp : double;
    Rs : double;
    Rx : double;
    E  : double;
    Ep : double;
    Es : double;
    m,n,anz : integer;

begin
  Rx := StrToInt(Edit2.text);
  E  := 10000000.0;

  if pos(Edit2.text,ListBox1.Items.text)<> 0 then
  begin
    ShowMessage('Widerstand vorhanden!');
    Edit3.text := '0';
    Edit4.text := 'Vorhanden';
  end
  else 
  begin
    anz:=ListBox1.items.count-1;
    for n:=0 to anz do
    begin
      for m := 0 to anz do
      begin
        Rp := (R[n] * R[m]) / (R[n] + R[m]);
        Rs :=  R[n] + R[m];
        Ep := (Rp / Rx) - 1;
        Es := (Rs / Rx) - 1;

        if Ep < E then
        begin
          E := Ep;
          Edit3.text := FloatToStr(100*(abs(Ep)));
          Edit4.text := 'P';
        end;
        if Es > E then
        begin
          E := Es;
          Edit3.text := FloatToStr(100*(abs(Es)));
          Edit4.text := 'S';
        end;
      end; // for
    end; // for
  end; // if
end;

[mic]

[quote="ibp"]...


- nimmst du nun ein array oder die listbox?
ich werde listbox verwenden, damit ich anzeigen kann welche widerstände im lagerbestand sind

- wo steht die entgültige auswahl der widerstände?
? muss zugeben hab etwas überblick verloren....:roll: