function [point1,weight1]=swp1(ngl)

%-------------------------------------------------------------------
%  目的：
%     求一維高斯積分點坐標和權系數

%  變量：
%     ngl - 積分點數
%     point1 - 積分點坐標
%     weight1 - 權系數
%-------------------------------------------------------------------

% 初始化

   point1=zeros(ngl,1);
   weight1=zeros(ngl,1);

%  找出相應的積分點和權系數

 if ngl==1           
    point1(1)=0.0;
    weight1(1)=2.0;

 elseif ngl==2       % 兩點積分準則
    point1(1)=-0.577350269189626;
    point1(2)=-point1(1);
    weight1(1)=1.0;
    weight1(2)=weight1(1);

 elseif ngl==3       % 三點積分準則
    point1(1)=-0.774596669241483;
    point1(2)=0.0;
    point1(3)=-point1(1);
    weight1(1)=0.555555555555556;
    weight1(2)=0.888888888888889;
    weight1(3)=weight1(1);

 elseif ngl==4       % 四點積分準則
    point1(1)=-0.861136311594053;
    point1(2)=-0.339981043584856;
    point1(3)=-point1(2);
    point1(4)=-point1(1);
    weight1(1)=0.347854845137454;
    weight1(2)=0.652145154862546;
    weight1(3)=weight1(2);
    weight1(4)=weight1(1);
 
else                 %五點積分準則
    point1(1)=-0.906179845938664;
    point1(2)=-0.538469310105683;
    point1(3)=0.0;
    point1(4)=-point1(2);
    point1(5)=-point1(1);
    weight1(1)=0.236926885056189;
    weight1(2)=0.478628670499366;
    weight1(3)=0.568888888888889;
    weight1(4)=weight1(2);
    weight1(5)=weight1(1);

end