Stampi

Ok, danke, ist auch möglich. Hatte das Problem nämlich auch schon öfters, dass eine Compilermeldung kam, wenn keine Klammern gesetzt wurden. Obwohl das in anderen Sprachen (Java, C++) ziemlich egal ist.

So Leute, danke nochmal für alles. Es funktioniert jetzt. Bin draufgekommen, dass bei der Fallunterscheidung alpha<0 oder >0 etwas nicht stimmte. Danke für eure zahlreichen Antworten!! Hier der richtige Code: `$1...x1 `$2...y1 `$3...x2 `$4...y2 `$5...x3 `$6...y3 `$7...x4 `$8...y4 `$9...Winkelverschiebung um alpha(-180°-180°) C_REAL($1;$2;$3;$4;$5;$6;$7;$8;$9) C_REAL($x_1;$x_2;$x_3;$x_4;$y_1;$y_2;$y_3;$y_4) C_REAL($alpha) $alpha:=$9*Degree If (($alpha=0) | ($9=180) | ($9=(-180))) $x_1:=$1 $y_1:=$2 $x_2:=$3 $y_2:=$4 $x_3:=$5 $y_3:=$6 $x_4:=$7 $y_4:=$8 Else If ($9<0) $alpha:=$alpha*(-1) $x_1:=($1*Cos($alpha))+($2*Sin($alpha)) $x_2:=($3*Cos($alpha))+($4*Sin($alpha)) $x_3:=($5*Cos($alpha))+($6*Sin($alpha)) $x_4:=($7*Cos($alpha))+($8*Sin($alpha)) $y_1:=(-$1*Sin($alpha))+($2*Cos($alpha)) $y_2:=(-$3*Sin($alpha))+($4*Cos($alpha)) $y_3:=(-$5*Sin($alpha))+($6*Cos($alpha)) $y_4:=(-$7*Sin($alpha))+($8*Cos($alpha)) Else $x_1:=($1*Cos($alpha))+($2*Sin($alpha)) $x_2:=($3*Cos($alpha))+($4*Sin($alpha)) $x_3:=($5*Cos($alpha))+($6*Sin($alpha)) $x_4:=($7*Cos($alpha))+($8*Sin($alpha)) $y_1:=(-$1*Sin($alpha))+($2*Cos($alpha)) $y_2:=(-$3*Sin($alpha))+($4*Cos($alpha)) $y_3:=(-$5*Sin($alpha))+($6*Cos($alpha)) $y_4:=(-$7*Sin($alpha))+($8*Cos($alpha)) End if End if ARRAY INTEGER(koord;8) koord{1}:=$x_1 koord{2}:=$y_1 koord{3}:=$x_2 koord{4}:=$y_2 koord{5}:=$x_3 koord{6}:=$y_3 koord{7}:=$x_4 koord{8}:=$y_4 $0:=koord

Sry, nicht in Radiant, sondern im Bogenmaß

Naja, hab bei den Winkelfunktionen in 4th Dimension nachgeschaut, und angeblich benötigen diese Funktionen die Winkelangabe in Radiant und die Umrechnung dafür ist "Winkel*Degree". Sprich Degree ist eine Konstante.

So danke mal für die Antwort. Also selbe Parameter wie vorher, folgende Werte: alpha=0,3490658503988658956 Sin(alpha)=0,3420201433256687129 Cos(alpha=0,9396926207859 $1*Cos(alpha)=23,49231551964771114 $2*Sin(alpha)=17,10100716628343420

Also danke, für die Antwort. Also bei den Parametern: AbmA=20 AbmB=10 Alpha=20 Grad ergeben sich in folgenden Variablen die Werte: links=25 oben=50 laenge=100 breite=50 koord{1}=-25 koord{2}=55 koord{3}=-57 koord{4}=87 koord{5}=-74 koord{6}=134 koord{7}=-42 koord{8}=102

Das ist der Code, der das ganze zeichnet. Die Funktion "PROJ_AssistentWinkelVersch" ist jener Code denn ich oben gepostet habe. C_REAL($1;$2) C_REAL($ges) C_INTEGER($3) $CTOffscr:=CT New offscreen area CT SET DOCUMENT SIZE ($CTOffscr;300;350) $ges:=$1+$2 $laenge:=(150/$ges)*$1 $breite:=(150/$ges)*$2 $links:=(150-$laenge)/2 $oben:=(150-$breite)/2 ARRAY INTEGER(koord;8) koord:=PROJ_AssistentWinkelVersch ($links;$oben;$links+$laenge;$oben;$links+$laenge;$oben+$breite;$links;$oben+$breite;$3) ARRAY INTEGER(koordX;5) ARRAY INTEGER(koordY;5) For ($i;1;8) koord{$i}:=koord{$i}+150 End for koordX{1}:=koord{1} koordX{2}:=koord{3} koordX{3}:=koord{5} koordX{4}:=koord{7} koordY{1}:=koord{2} koordY{2}:=koord{4} koordY{3}:=koord{6} koordY{4}:=koord{8} koordX{5}:=koordX{1} koordY{5}:=koordY{1} $0:=CT Array to polygon ($CTOffscr;koordX;koordY) $pict:=CT Area to picture ($CTOffscr;-2) [Projekt];"ProjektAssistent"PictFormLage:=$pict CT DELETE OFFSCREEN AREA ($CTOffscr)

So, danke mal für die Antworten. 1. Habe jetzt das mit den Vorzeichen geändert, funktioniert leider doch nicht 2. Das mit der Unterscheidung muss noch gemacht werden, macht aber erst Sinn wenn es auch so funktioniert `$1...x1 `$2...y1 `$3...x2 `$4...y2 `$5...x3 `$6...y3 `$7...x4 `$8...y4 `$9...Winkelverschiebung um alpha(-180°-180°) C_REAL($1;$2;$3;$4;$5;$6;$7;$8;$9) C_REAL($x_1;$x_2;$x_3;$x_4;$y_1;$y_2;$y_3;$y_4) `C_INTEGER($M_x;$M_y) `C_INTEGER($x1;$x2;$x3;$x4;$y1;$y2;$y3;$y4) C_REAL($alpha) $alpha:=$9*Degree If (($alpha=0) | ($9=180) | ($9=(-180))) $x_1:=$1 $y_1:=$2 $x_2:=$3 $y_2:=$4 $x_3:=$5 $y_3:=$6 $x_4:=$7 $y_4:=$8 Else If ($9<0) $x_1:=$1*Cos($alpha)+$2*Sin($alpha) $x_2:=$3*Cos($alpha)+$4*Sin($alpha) $x_3:=$5*Cos($alpha)+$6*Sin($alpha) $x_4:=$7*Cos($alpha)+$8*Sin($alpha) $y_1:=-$1*Sin($alpha)+$2*Cos($alpha) $y_2:=-$3*Sin($alpha)+$4*Cos($alpha) $y_3:=-$5*Sin($alpha)+$6*Cos($alpha) $y_4:=-$7*Sin($alpha)+$8*Cos($alpha) Else $alpha:=$alpha*(-1) $x_1:=$1*Cos($alpha)+$2*Sin($alpha) $x_2:=$3*Cos($alpha)+$4*Sin($alpha) $x_3:=$5*Cos($alpha)+$6*Sin($alpha) $x_4:=$7*Cos($alpha)+$8*Sin($alpha) $y_1:=-$1*Sin($alpha)+$2*Cos($alpha) $y_2:=-$3*Sin($alpha)+$4*Cos($alpha) $y_3:=-$5*Sin($alpha)+$6*Cos($alpha) $y_4:=-$7*Sin($alpha)+$8*Cos($alpha) End if End if ARRAY INTEGER(koord;8) koord{1}:=$x_1 koord{2}:=$y_1 koord{3}:=$x_2 koord{4}:=$y_2 koord{5}:=$x_3 koord{6}:=$y_3 koord{7}:=$x_4 koord{8}:=$y_4 $0:=koord Und so sieht das ganze dann aus [ATTACH]1811[/ATTACH]

Ich arbeite an einem bauphysikalischen Programm zur Berechnung des Heizwärmebedarfs von Gebäuden. Das Hauptproblem liegt bei mir darin, dass in einer kleinen Vorschauskizze die rechteckige Grundfläche eines Hauses (a, im richtigen Verhältnis gezeichnet werden soll. Dadurch, dass ein Computerbildschirm in einzelne Bildpunkte geteilt ist, kann man sich das ganze als Kartesisches Koordinatensystem vorstellen. Die Vorschau mit einem normalen Rechteck funktioniert bereits jedoch habe ich ein Problem damit, dass man auch einen Winkel alpha festlegen kann, der die Abweichung des Grundstückes von Norden angibt, sprich das Rechteck soll im Koordinatensystem entsprechend dem Winkel alpha gedreht werden. Das Problem, dass ich jetzt habe, ist, dass ich nicht genau weiß wie ich die Koordinaten der Punkte (A, B, C, D) des gedrehten Rechteckes ermitteln kann. Ich habe zwar schon probiert, das Problem mit Vektoren bzw. Matrizen zu lösen, bis jetzt aber ohne Erfolg. `$1...x1 `$2...y1 `$3...x2 `$4...y2 `$5...x3 `$6...y3 `$7...x4 `$8...y4 `$9...Winkelverschiebung um alpha(-180°-180°) C_REAL($1;$2;$3;$4;$5;$6;$7;$8;$9) C_REAL($x_1;$x_2;$x_3;$x_4;$y_1;$y_2;$y_3;$y_4) `C_INTEGER($M_x;$M_y) `C_INTEGER($x1;$x2;$x3;$x4;$y1;$y2;$y3;$y4) C_REAL($alpha) $alpha:=$9*Degree If (($alpha=0) | ($9=180) | ($9=(-180))) $x_1:=$1 $y_1:=$2 $x_2:=$3 $y_2:=$4 $x_3:=$5 $y_3:=$6 $x_4:=$7 $y_4:=$8 Else If ($9<0) $x_1:=$1*Cos($alpha)-$2*Sin($alpha) $x_2:=$3*Cos($alpha)-$4*Sin($alpha) $x_3:=$5*Cos($alpha)-$6*Sin($alpha) $x_4:=$7*Cos($alpha)-$8*Sin($alpha) $y_1:=$1*Sin($alpha)+$2*Cos($alpha) $y_2:=$3*Sin($alpha)+$4*Cos($alpha) $y_3:=$5*Sin($alpha)+$6*Cos($alpha) $y_4:=$7*Sin($alpha)+$8*Cos($alpha) Else $alpha:=$alpha*(-1) $x_1:=$1*Cos($alpha)-$2*Sin($alpha) $x_2:=$3*Cos($alpha)-$4*Sin($alpha) $x_3:=$5*Cos($alpha)-$6*Sin($alpha) $x_4:=$7*Cos($alpha)-$8*Sin($alpha) $y_1:=$1*Sin($alpha)+$2*Cos($alpha) $y_2:=$3*Sin($alpha)+$4*Cos($alpha) $y_3:=$5*Sin($alpha)+$6*Cos($alpha) $y_4:=$7*Sin($alpha)+$8*Cos($alpha) End if End if ARRAY INTEGER(koord;8) koord{1}:=$x_1 koord{2}:=$y_1 koord{3}:=$x_2 koord{4}:=$y_2 koord{5}:=$x_3 koord{6}:=$y_3 koord{7}:=$x_4 koord{8}:=$y_4 $0:=koord Das Problem ist aber, dass die Vorschau so aussieht: