|
|
| eve2312 |
Forum-Newbie
|
 |
Beiträge: 1
|
|
|
|
Anmeldedatum: 11.11.17
|
|
|
|
Wohnort: ---
|
|
|
|
Version: ---
|
|
|
|
 |
|
Verfasst am: 11.11.2017, 18:16
Titel: Winkelsymmetrale
|
 |
| |
 |
 |
hey, bin neu und kenn mich leider nicht so gut aus mit dem Programm mein Problem ich soll die Winkelsymmetrale mittels plot zeichnen lassen schritt für schritt und zuerst soll ausgeschlossen werden dass die drei Punkte kolinear sind. hier was ich bis jetzt gemacht habe leider schaffe ich nicht die Geraden zu verlängern, den Radius von etwas abhängig zu machen, dass es nur kreissegmente sind und keine gescheite legende.... vllt könnt ihr mir ja helfen bin für alles dankbar Smile
%Winkelsymmetrale
clc;
clear;
A = [1 2];
B = [3 4]; %B muss der Punkt sein von dem der erste Kreis gezogen wird
C = [5 10];
bc = C - B; %Richtungsvektoren
ba = A - B;
cos_lambda = (dot(bc,ba))/(norm(bc) * norm(ba)); %WInkel berechnen zwischen den zwei Vektoren
lambda = acos(cos_lambda);
if abs(abs(cos_lambda)-1)<1e-10 % pruefung auf bitmuster / toleranz
error('Punkte liegen auf einer Linie! Programm abgebrochen.');
end
P =[A;B;C]; %Punkte in Matrix 3x2 schreiben
hold on
grid on
title('Winkelsymmetrale')
xlabel('x-Achse')
xlabel('y-Achse')
axis equal
plot (A(1),A(2),'xk','MarkerSize',15)
pause(1);
plot(B(1),B(2),'xk','MarkerSize',15)
pause(1);
plot(C(1),C(2),'xk','MarkerSize',15)
pause(1);
plot(P(:,1),P(:,2),'b-') %Plot, Punkte werden verbunden(-)in blau
%P(:,1) = x-Koordinaten %P(:,2) = y-Koordinaten
axis equal
legend({'Gerade durch B und C','Gerade durch B und A','Kreis mit Radius r und Mittelpunkt B'})
pause(1);
text(A(1)+0.5,(A(2)+0.5),'A','fontsize',20,'fontweight', 'bold');
pause(1);
text(B(1)+0.5,(B(2)+0.5),'B','fontsize',20,'fontweight', 'bold');
pause(1);
text(C(1)+0.5,(C(2)+0.5),'C','fontsize',20,'fontweight', 'bold');
pause(1);
r = 5
phi=1:1:360;
phi=phi./180.*pi;
[xt,yt] = pol2cart(phi,r);
x=xt+P(2,1);
y=yt+P(2,2);
comet(x,y);
Head = struct('Marker','p','Frequency',100);
plot(x,y);
pause(1);
bco = bc/norm(bc);
s_1 = B+r*bco;
plot(s_1(1), s_1(2), '.r', 'MarkerSize',40);
pause(1);
bao = ba/norm(ba);
s_2 = B+r*bao;
plot(s_2(1), s_2(2), '.r', 'MarkerSize',40);
pause(1);
d_1 = norm(s_2-s_1);
min_rad_1 = 1/2*d_1;
[xs,ys] = pol2cart(phi,min_rad_1+1.5);
u=xs+s_1(1);
v=ys+s_1(2);
comet(u,v);
pause(1);
[xw,yw] = pol2cart(phi,min_rad_1+1.5);
m=xw+s_2(1);
n=yw+s_2(2);
comet(m,n);
pause(1);
[xout,yout] = circcirc(s_1(1),s_1(2),min_rad_1+1.5,s_2(1),s_2(2),min_rad_1+1.5);
plot(xout(2),yout(2), '.r', 'MarkerSize',40);
K = [xout(1),yout(1)];
bk = B - K;
bko = bk/norm(bk);
g_1 = B + 5*bko;
g_2 = B - 15*bko;
plotx = [g_1(1), g_2(1)];
ploty = [g_1(2), g_2(2)];
plot(plotx, ploty, 'k-.');
save('projekt_winkesymmetrale.mat')
|
|
|
|
|
|
|
|
|
Einstellungen und Berechtigungen
|
|
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen
|
|
Impressum
| Nutzungsbedingungen
| Datenschutz
| FAQ
|  RSS
Hosted by:
Copyright © 2007 - 2024
goMatlab.de | Dies ist keine offizielle Website der Firma The Mathworks
MATLAB, Simulink, Stateflow, Handle Graphics, Real-Time Workshop, SimBiology, SimHydraulics, SimEvents, and xPC TargetBox are registered trademarks and The MathWorks, the L-shaped membrane logo, and Embedded MATLAB are trademarks of The MathWorks, Inc.
|
|
