Aşağıdaki kodlada scale işlemi yapabiliriz daha önce SCL dilinde vermiştim bu kodu iki noktası belli doğru denklemini düşünelim (Lineer bir sistem için)
Birinci istedigimiz nokta X1=27648.0 iken Y1=0.0 olmalı
ikinci istediğimiz nokta X2=0.0 iken Y1=27648.0 OLSUN İSTİYORUZ
aşağıdaki fonksiyonu çağırın noktaları girin, X girişinden gelen bilgiyi verin size scale etsin
Kod:
FUNCTION FC10: REAL (* Fonk. sonucu y degeri *)
(*this function calculates the linear equation f_lin = a*x + b given by two points x1/y1 and x2/y2. *)
VAR_INPUT (*Değişkenleri tanıtma kısmımız *)
X : REAL; (* X için sonucu hesaplanacak değişken*)
X1: REAL; (* Varolan x1 degeri *)
Y1 : REAL; (* Varolan y1 degeri *)
X2 : REAL; (* Varolan x2 degeri *)
Y2 : REAL; (* Varolan y2 degeri *)
END_VAR
BEGIN (* Programımız burdan başlıyor *)
FC10 := (Y2 - Y1) / (X2 - X1) * (X - X1) + Y1;
END_FUNCTION