Centroid Question

[Kernelpanic]

Then expanded to include calculation of the center of gravity - height of the triangle unknown. The calculation should be correct, but probably not for all shapes of triangles.
Polygon is too complicated for me now. Now I need a good glass of wine first. 

Code: (Select All)

'Berechnung des Inkreismittelpunktes und des Schwerpunkts eines Dreiecks - 14. Juli 2024

'https://www.biancahoegel.de/geometrie/ebene/inkreis.html

'Mathematik 2 Geometrie S.98ff, 106, 108



Option _Explicit



'ad, bd, cd Seiten eines Dreiecks, AF = Flaecheninhalt, s = Umfang

Dim As Double AF, ad, bd, cd, s, radius, dummy

Dim As Double xAchse, yAchse, hoeheDreieck



Locate 2, 3

Print "Berechnung des Inkreismittelpunktes und des Schwerpunkts eines Dreiecks"

Locate 3, 3

Print "======================================================================="



Locate 5, 3

Input "Laenge der Seite a in cm: ", ad

Locate 6, 3

Input "Laenge der Seite b in cm: ", bd

Locate 7, 3

Input "Laenge der Seite c in cm: ", cd



s = (ad + bd + cd) / 2

dummy = s * ((s - ad) * (s - bd) * (s - cd))

AF = Sqr(dummy)



'Der Radius ist von allen Seiten des Dreiecks gleich weit entfernt,

'und zeigt somit den Inkreismittelpunkt an.

radius = (2 * AF) / (ad + bd + cd)



Locate 9, 3

Print Using "Der Inkreismittelpunkt des gegebenen Dreiecks liegt bei ###.## cm."; radius



'Schwerpunkt des Dreiecks unbekanter Hoehe

'Erst die Hoehe berechnen  - s und dummy bleiben

hoeheDreieck = (2 / cd) * Sqr(dummy)



'X-Achse und Y-Achse berechnen

xAchse = (2 / 3) * ad

yAchse = (1 / 3) * hoeheDreieck



Locate 11, 3

Print "Der Schwerpunkt des Dreiecks liegt:"

Locate 12, 3

Print Using "Bei der X-Achse bei ###.## cm - bei Y-Achse bei ###.## cm"; xAchse, yAchse





'Bild anzeigen

_Clipboard$ = "Inkreis+SchwerpDreieck.jpg"

Shell "BildAnzeigen.exe"



End