Economic Models - Convex Optimization

Health Service Management 167
WRITE(out,*)’ Composite index and the final rate of salary increase’
WRITE(out,’(/)’)
Deficit=Total_Deficit*a ; sortR=R ; Salary=Salary_f/members
! Perform ranking operation
CALL SORTQQ(LOC(sortR),groups,SRT$REAL4)
DO i=1,groups
s=R(i)
DO j=1,groups
IF(sortR(j) == s) scores(i)= j
ENDDO ; ENDDO
! Compute composite index
Rsmall=R/100. ; Y=Rsmall*Salary ; s=SUM(Y)
Employees=SUM(Members)
rate=(y*100)/s/100. ; X=rate*deficit/Employees
s=SUM(X)
rate=(x*100.)/s/100. ; s=SUM(X) ; X=rate*Members
s=SUM(X)
Rate=(X*100.)/s/100. ; s=SUM(Rate) ; X=rate*scores
s=SUM(X)
rate=(X*100)/s/100. ; s=SUM(rate) ; X=Deficit*rate
! Compute revised annual rates of salary increase
Y=Salary_f-X
Logvector=(LOG(Y/Salary_in))/ planning_hor
newrate=(EXP(logvector) -1.)*100.
WRITE(out,*) ’ Index Reduction Final Salary New rate’
DO i=1,groups
WRITE(out,’(1X,F9.6,2X,F10.3,4X,F10.2,6X,F6.4)’) Rate(i)&
&, X(i), Y(i), newrate(i)
ENDDO
END
7. Final Results
In the last column of Table 7, the revised coefficients c i are stated. These
new coefficients are to be considered in Eq. (2), and in the corresponding
restrictions seeing in Eq. (6) for the final run. Also, the objective in Eq. (13)
has been slightly reformed as follows:
min z = (10P 1 d1 − + 9P 1d2 − + 8P 1d3 − + 7P 1d4 − + 6P 1d − 5 + 5P 1d6
−
+ 4P 1 d − 7 + 3P 1d − 8 + 2P 1d − 9 + P 1d − 10 ) + (P 2d − 37 + P 2d − 38
+ P 2 d − 39 + 3P 2d − 42 + 2P 2d + 44 ) + P 3
31∑
i=22
di − ∑36
+ P 4
+ (P 5 d − 40 + P 5d − 41 ) + (P 6d − 21 + 2P 6d − 11 + 2P 6d − 12
i=32
+ 3P 6 d − 13 + 4P 6d − 14 + 5P 6d − 15 + 6P 6d − 16 + 7P 6d − 17 + 8P 6d − 18
+ 9P 6 d − 19 + 10P 6d − 20 ) + P 7d − 43 .
d − i