print " "
print "INEQUALITY CALCULATION FOR A GIVEN VARIABLE"
print " "
print " "
print "ENTER NUMBER OF ITEMS = ";
input n


DIM number(n)

let s=0
let t=0
let u=0
let max=0
let min=0
let g=0
let h=0
let raz=0
let aa=0
let bb=0
let cc=0
let dd=0
let ee=0
let ff=0





print " "

for index = 1 to n
input number : number(index)=number
print " "
print index; " -  ";number(index)
print " "
next index

print " "

for index=1 to n
print index;" - ";number(index)
let s=s+number(index)

next index
print " "

let x= s / n


print " "

call QSort 1, n



for e=1 to n
print e;" - ";number(e)
next e

print " "

print "Average = "; x

print" "

for d=1 to n
if number(d)<=x then let t=t+number(d)
if number(d)<=x then let min=min+1
if number(d)>x then let u=u+number(d)
if number(d)>x then let max=max+1
next d
let lower=t / min
let upper=u / max
print "AD = ";upper - lower

print " "


for f=1 to n
let g=g+f * number(f)
next f
let g=g * 2
let h=g / (x * (n^2))
let raz=(n+1) / n
let h=h-raz

print "GINI = ";h
print " "

for f=1 to n
if number(f)=0 then let number(f)=1
let aa=aa+number(f) * (log( number(f) ))
next f
let aa=aa / n
let bb=x * (log( x ))
let cc=(aa - bb)
let cc=cc / x
print "THEIL  = ";cc
print " "


for f=1 to n
let dd=dd+((number(f) - x) ^ 2)
next f
let ee=dd / (n - 1)
let ff=ee ^ 0.5
let ff=ff / x
print "V = ";ff
print " "





end



sub QSort Start, Finish
  i = Start
  j = Finish
  x = number(int((i+j)/2))
  while i <= j
    while number(i) < x
      i = i + 1
    wend
    while number(j) > x
      j = j - 1
    wend
    if i <= j then
      a = number(i)
      number(i) = number(j)
      number(j) = a
      i = i + 1
      j = j - 1
    end if
  wend
  if j > Start then call QSort Start, j
  if i < Finish then call QSort i, Finish
end sub