Code covered by the BSD License  

Highlights from
POFACETS4.1

image thumbnail

POFACETS4.1

by

 

Radar cross section (RCS) prediction code based on the physical optics (PO) approximation.

[coord,facet,scale,symplanes,comments,matrl]=poboxes(L,W,H,ALW,ATH,APHI)
function [coord,facet,scale,symplanes,comments,matrl]=poboxes(L,W,H,ALW,ATH,APHI)
% Arguments: Length, Width, Height, Angles:Length to Width, THETA,PHI OF
% Height (in degrees)
% filename: poboxes.m
% Project: POFACETS
% Description: This program creates a model of an arbitrary box
% Author:  Filippos Chatzigeorgiadis
% Date:   February 2004
% Place: NPS

%convert angles to radians
ALW=ALW*pi/180;
ATH=ATH*pi/180;
APHI=APHI*pi/180;
%find coordinates of top above 0 0 0
xtop=H*sin(ATH)*cos(APHI);
ytop=H*sin(ATH)*sin(APHI);
ztop=H*cos(ATH);
xyztop=[xtop ytop ztop];
xyztop=[xyztop
    xyztop
    xyztop
    xyztop];
%base vertices
base=[0 0 0
    W 0 0
    L*cos(ALW)+W L*sin(ALW) 0
    L*cos(ALW) L*sin(ALW) 0];
%top vertices
top=base+xyztop;
coord=[base
    top];

%facets
facet=[1 3 2; 1 4 3;
    1 2 6; 1 6 5;
    1 5 4; 4 5 8;
    2 3 6;3 7 6;
    3 4 8; 3 8 7;
    5 6 7; 5 7 8];
%set illumination and RS
facet(:,4)=1;
facet(:,5)=0;
%save
scale=1;
symplanes=[0 0 0];
for i=1:size(facet,1)
    comments{i,1}='Box';
    matrl{i,1}='PEC';
    matrl{i,2}=[0 0 0 0 0];
end
  




Contact us