aydinlatma-lamba-armatur-hesaplamalari-cozumleri - 320Volt

84
EK-2 (Devam) Bilgisayar Programının Kodu
for colIndex = 1 : sizeColArms
if radius > atand((norm([samplesFora(rowCount, colCount)
samplesForb(rowCount, colCount)] - ...
[sx(rowIndex, colIndex) sy(rowIndex, colIndex)]))/(m-c)) ...
lumMatrix(rowCount, colCount) = lumMatrix(rowCount, colCount) ...
+ ((m-c)/sqrt(((m-c)^2)+(norm([samplesFora(rowCount, colCount) ...
samplesForb(rowCount, colCount)] - ...
[sx(rowIndex, colIndex) sy(rowIndex, colIndex)]))^2)).*((((mc)^2)+(norm([samplesFora(rowCount,
colCount) samplesForb(rowCount, ...
colCount)] - [sx(rowIndex, colIndex) sy(rowIndex, colIndex)]))^2).^(-1));
end
end
end
end
end
lumMatrix = e0.*(lumMatrix);
surf(samplesFora, samplesForb, lumMatrix);
colorbar;
maxLumValue = max(max(lumMatrix));
for rowIndex = 1 : sizeRowArms
for colIndex = 1 : sizeColArms
plot3(sx(rowIndex, colIndex), sy(rowIndex, colIndex), maxLumValue+1, ...
'o', 'MarkerSize', 9, 'MarkerEdgeColor', 'k', 'MarkerFaceColor', 'w');
end
end
axis equal;
axis tight;
grid off;
function edit17_Callback(hObject, eventdata, handles)
function edit17_CreateFcn(hObject, eventdata, handles)