--------------
# Aufgabe 1c #
--------------

require(linprog)

c = c(1,1,0)
b = c(4,8)
v1 = c(1,1,1)
v2 = c(1,3,4)
A = rbind(v1,v2)

# wir brauchen die Standard-Ungleichungsform
# -> siehe Loesung10.pdf, Aufg1.c

A = rbind(A,-A)
b = c(b,-b)

c
b
A                       # sieht alles ok aus

res = solveLP(c,b,A,maximum=TRUE)

res$opt                 # 4
res$solution            # x1=2, x2=2, x3=0, passt alles