Script Regner forkert
Dette script virker tilsyneladende, men resultat er forkertFølgende variabler bliver indsat:
field "Pfield" = 900
field "afield" = 200
field "xfield" = 200
field "Qfield" = 100
field "Efield" = 300
field "Cfield" = 200
field "a1field" = 100
Resultat bliver 802 istedet for det rigtige på 793
on mouseup
global gsprog
if (gsprog="dan") then
val="Husk at udfylde alle felter"
else
if(gsprog="ger") then
val="Alle felder müssen ausgefült werden"
else
if(gsprog="eng") then
val="Please fill out all fields"
else
if(gsprog="fren") then
val=""
end if
end if
end if
end if
if(field "Pfield" = 0 or field "Pfield" = "")then
alert val
else
if(field "afield" = 0 or field "afield" = "") then
alert val
else
if(field "xfield" = 0 or field "xfield" = "") then
alert val
else
if(field "Qfield" = 0 or field "Qfield" = "") then
alert val
else
if(field "Efield" = 0 or field "Efield" = "") then
alert val
else
if(field "Cfield" = 0 or field "Cfield" = "") then
alert val
else
if(field "a1field" = 0 or field "a1field" = "") then
alert val
else
global original
set P = field "Pfield"
set a = field "afield"
set x = field "xfield"
set Qelm = field "Qfield"
set Eelm = field "Efield"
set Celm = field "Cfield"
set Aelm = field "a1field"
set MS = 0.00000785
if P > 0 and P < 1000 then
set Vt = 20
set Vh = 100
set Vb = 900
set Gt = 35
set Gh = 455
set Gb = 100
set Gl = 1000
end if
if P >= 1000 and P < 2501 then
set Vt = 25
set Vh = 120
set Vb = 1000
set Gt = 40
set Gh = 540
set Gb = 100
set Gl = 1000
end if
if P >= 2501 and P < 5000 then
set Vt = 40
set Vh = 140
set Vb = 1200
set Gt = 50
set Gh = 650
set Gb = 150
set Gl = 1200
end if
if P >= 5000 and P < 8001 then
set Vt = 50
set Vh = 150
set Vb = 1500
set Gt = 60
set Gh = 830
set Gb = 150
set Gl = 1500
end if
if P >= 8001 then
set Vt = 50
set Vh = 150
set Vb = 1500
set Gt = 60
set Gh = 830
set Gb = 150
set Gl = 1500
end if
if Gt < 40 then
set t = 13
set l = 570
else
set t = 16
set l = 670
end if
--/** Beregning for Integreret *********************/
set Vange = 2 * Vt * Vh * Vb * MS
set Gaffelryg = 2 * Gt * Gb * Gh * MS
set Gaffelstyk = 2 * Gt * Gb * (Gl - l) * MS
set Gaffelspids1 = 2 * l * Gb * t * MS
set Gaffelspids2 = l * Gb * (Gt - t) * MS
set q = Vange + Gaffelryg + Gaffelstyk + Gaffelspids1 + Gaffelspids2
set q1 = q - Vange
set c = Vt + Gt
set Mvange = 0.5 * Vt * Vange
set Mgaffelryg = (Vt + 0.5 * Gt) * Gaffelryg
set Mgaffelstyk = (c + (0.5 * (Gl - l))) * Gaffelstyk
set Mgaffelspids1 = (c + Gl - (0.5 * l)) * Gaffelspids1
set Mgaffelspids2 = (c + Gl - ((2 / 3) * l)) * Gaffelspids2
set e = (Mvange + Mgaffelryg + Mgaffelstyk + Mgaffelspids1 + Mgaffelspids2) / q
set e1 = (Mgaffelryg + Mgaffelstyk + Mgaffelspids1 + Mgaffelspids2) / q1
if (Eelm < Celm) then
set p_elm = ((P * (x + a)) + (q * (x - c + e)) - (Qelm * (x - c + Eelm)) - (q1 * (x - c + Celm - Vt + e1))) / (a + x - c + Celm + Gt)
else
set p_elm = ((P * (x + a)) + (q * (x - c + e)) - (Qelm * (x - c + Eelm))) / (Aelm + x - c + Celm)
end if
put P
put Vt
put Vh
put Vb
put Gt
put Gh
put Gb
put Gl
put l
put t
put MS
put Vange
put Gaffelryg
put Gaffelstyk
put Gaffelspids1
put Gaffelspids2
put q
put q1
put c
put Mvange
put Mgaffelryg
put Mgaffelstyk
put Mgaffelspids1
put Mgaffelspids2
set a_new = Aelm
put INTeger(p_elm) into field "P1field"
put INTeger(a_new) into field "a1xfield"
end if
end if
end if
end if
end if
end if
end if
end
