PROGRAMMING FINAL 17/12/18

START

T1 < 0

INPUT T1

INPUT T2

T2<0

INPUT T3

T3<0

INPUT T4

T4<0

GRA = T1/T2

GRB = T3/T4

GET

Im, It, In,

Ig & Eff

CALCULATE Equivalent Moment of Inertia

Iequiv = Im + It*pow((GRA),2)/efficiency (x) + Ig*pow((GRA),2)*pow((GRB),2)/(pow(efficiency (x),2))

INPUT

Gear Acceleration

and Hoist Radius

CALCULATE

RatioGM, AlphaG,

AlphaM & TM1

INPUT

Load1, Load2

CALCULATE

F1, F2, TG, TM2 & Ttotal

DISPLAY

Ttotal

n=4

summean=0

i=0

i<n

summean+= a[i]

DISPLAY

Summean

i++

n=2

summean = 0

i=0

i<n

summean+= b[i]

DISPLAY

Summean

END

i++