Bascom Single vs. Integer

[Marco P. (Gast)]

Guten Morgen zusammen!

Ich programmiere in Bascom und möchte einen PID-Regler realisieren.
Das ganze soll in möglichst kurzer Zeit ablaufen und da ist mir der 
Gedanke gekommen, bevor ich groß in Single und Double rechne kann ich 
die Zeit ja auch als Kehrwert 1/0,002s in die Berechnung nehmen und 
komplett in Integer rechnen.

Jetzt ist die Frage wie hoch ist der Zeitgewinn und ob ich überhaupt 
Zeit damit spare.

PID-Regler läuft nach dieser Formel

Abweichung = Soll - Ist;
 Summe_Abweichungen = Summe_Abweichungen + Abweichung;
 Differenz_zur_letzten_Abweichung = Abweichung - Abweichung_alt;
 
 Gegensteuern = Verstärkungsfaktor_Prop * Abweichung 
 + Verstärkungsfaktor_Inte * Zeit * Summe_Abweichungen
 + (Verstärkungsfaktor_Diff * Differenz_zur_letzten_Abweichung) / Zeit;
 
 Abweichung_alt = Abweichung;

Grüße
Marco

[Oliver (Gast)]

Der Zeitgewinn ist ganz erheblich, allerdings musst du aufpassen, daß du 
keine Überläufe in den Berechnungen bekommst.

Oliver

[Marco P. (Gast)]

Ok, danke.
Weißt du vielleicht auch wieviele Prozessortakte für Single berechnungen 
und wieviele für integer benötigt werden?

[screwdriver (Gast)]

Marco P. schrieb:
> Weißt du vielleicht auch wieviele Prozessortakte für Single berechnungen
> und wieviele für integer benötigt werden?

$regfile = "m32def.dat"
Dim Abweichung As Integer
Dim Soll As Integer , Ist As Integer
Dim Summe_abweichungen As Integer
Dim Differenz_zur_letzten_abweichung As Integer
Dim Abweichung_alt As Integer
Dim Gegensteuern As Integer
Dim Gegensteuern_temp As Integer
Dim Verstaerkungsfaktor_prop As Integer
Dim Verstaerkungsfaktor_inte As Integer
Dim Zeit As Integer
Dim Verstaerkungsfaktor_diff As Integer

nop
Abweichung = Soll - Ist
Summe_abweichungen = Summe_abweichungen + Abweichung
Differenz_zur_letzten_abweichung = Abweichung - Abweichung_alt

Gegensteuern = Verstaerkungsfaktor_prop * Abweichung

Gegensteuern_temp = Verstaerkungsfaktor_inte * Zeit
Gegensteuern_temp = Gegensteuern_temp * Summe_abweichungen
Gegensteuern = Gegensteuern + Gegensteuern_temp

Gegensteuern_temp = Verstaerkungsfaktor_diff * Differenz_zur_letzten_abweichung
Gegensteuern_temp = Gegensteuern_temp / Zeit
Gegensteuern = Gegensteuern + Gegensteuern_temp

Abweichung_alt = Abweichung

Nop

Codelänge: 606 Byte
Prozessortakte: 335

$regfile= "m32def.dat"
Dim Abweichung As Single
Dim Soll As single , Ist As single
Dim Summe_abweichungen As single
Dim Differenz_zur_letzten_abweichung As single
Dim Abweichung_alt As single
Dim Gegensteuern As single
Dim Gegensteuern_temp As single
Dim Verstaerkungsfaktor_prop As single
Dim Verstaerkungsfaktor_inte As single
Dim Zeit As single
Dim Verstaerkungsfaktor_diff As single

nop
Abweichung = Soll - Ist
Summe_abweichungen = Summe_abweichungen + Abweichung
Differenz_zur_letzten_abweichung = Abweichung - Abweichung_alt

Gegensteuern = Verstaerkungsfaktor_prop * Abweichung

Gegensteuern_temp = Verstaerkungsfaktor_inte * Zeit
Gegensteuern_temp = Gegensteuern_temp * Summe_abweichungen
Gegensteuern = Gegensteuern + Gegensteuern_temp

Gegensteuern_temp = Verstaerkungsfaktor_diff * Differenz_zur_letzten_abweichung
Gegensteuern_temp = Gegensteuern_temp / Zeit
Gegensteuern = Gegensteuern + Gegensteuern_temp

Abweichung_alt = Abweichung

Nop

Codelänge: 1110 Byte
Prozessortakte: 1153

Mit besten Grüßen
screwdriver