Aufgabe Konventionen

Die folgende Funktion berechnet die Seilkraft und die Normalkraft (zw. Kugel und Wand) der folgenden Aufgabenstellung.
Eine Kugel hängt an einem Seil an einer glatten Wand (keine Reibung zwischen Wand und Kugel), wobei das Seil im Kugelmittelpunkt befestigt ist.
Das Seil hat die Länge a und die Kugel den Radius r, sowie die Masse m = 50kg

function kugelAnWand(a,r)
m=50
G=9.81*m
p=r/a
q=sqrt(1-p^2)
S=G/q
N=S*p
disp([' Die Seilkraft beträgt ' num2str(S)])
disp([' Die Normalkraft beträgt ' num2str(N)])


Schreiben Sie ebenfalls diese Funktion. Fügen Sie aber eine gute Kommentierung hinzu und achten Sie darauf alle Stilkonventionen einzuhalten. Außerdem sollten sie eventuell die Variablennamen ändern.

Aufgabenstellung aus: Gross, Ehlers, Wriggers; Formeln und Aufgaben zur Technischen Mechanik 1; 9. Auflage;  Springer Verlag; 2008; S. 5 Aufgabe 1.1