# Innerbetriebliche Leistungs-
verrechnung

## Problembeschreibung

***************************************************
Dokumentnummer: D1233
für Steiner-Weilharter IV, HPT
***************************************************

Bekannt sind für n Kostenstellen
a) die Primärkosten
b) die Leistungen
c) die Leistungsverflechtungen

Die Stückkosten je Kostenstelle sind gesucht.

## Problemlösung

EINGABE

P:read("Primärkosten-Liste");

x:read("Leistungseinheiten-Liste");

M:read("Matrix der Leistungsverflechtungen")$

VERARBEITUNG

n:length(P);

for i:1 thru n do g[i]:x[i]*k[i]=P[i]+sum(M[i][j]*k[j],j,1,n);

g:makelist(g[i],i,1,n);

k:makelist(k[i],i,1,n);

l:solve(g,k),numer;

k:ev(k,l[1]);

ERGEBNIS

k:makelist(floor(k[i]*100+0.5)/100.0,i,1,n);

print("Stückkosten",k)$