private void button2_Click(object sender, EventArgs e)
{
double E1 = 33.18 * 1000000000;
double E2 = 7.74 * 1000000000; //GPA
double G12 = 2.91 * 1000000000; //GPa
double v12 = 0.267;
double[] angle = new double[4] {
45, 30, 30, 45
};
double laminaThickness = 0.004; //mm
double density = 2100;
Matrix Ltest = new Matrix(new double[, ] {
{ 0.3, 0.4, 0.5 }
});
Matrix xetest = new Matrix(new double[, ] {
{ 2, 3, 0 }, { -1, 2, 0 }, { 4, 2, 0 }
});
Matrix Btest;
Matrix Ntest;
MiStrAnEngine.ShellElement testS = new MiStrAnEngine.ShellElement(new List <Node>(), new int());
testS.GetB_N(Ltest, xetest, out Btest, out Ntest);
}
public Vector3D GetGravityq(ShellElement s)
{
double gravity = 9.81;
// double density = s.Section.density;
// double thickness = s.Section.totalThickness;
double sectionWeight = s.GetSectionWeight(s.Section.thickness, s.Section.densitys);
double q = -gravity * sectionWeight;
return(new Vector3D(0, 0, q));
}
//Only verified to MATLAB-cod with configurations: 4 laminas (all 0 degrees), 4 laminas (45,30,30,45) degrees
public static void eqModulus(ShellElement shell, out Matrix D, out List <Matrix> Qtot, out List <double> zValues)
{
//Just used for the shorter name
List <double> E1s = shell.Section.Exs;
List <double> E2s = shell.Section.Eys;
List <double> angles = shell.Section.angles;
List <double> thickness = shell.Section.thickness;
List <double> v12s = shell.Section.vs;
List <double> Gxys = shell.Section.Gxys;
List <double> densitys = shell.Section.densitys;
double totThick = shell.Section.totalThickness;
//Used for gravity load
//double gravity = 9.81;
//Global stiffness matrices for the laminate
Matrix AA = new Matrix(3, 3); //Extensional or membrane stiffness terms of a laminate
Matrix BB = new Matrix(3, 3); //Coupling stiffness terms of a laminate
Matrix DD = new Matrix(3, 3); //Bending stiffness n therms of a laminate
//Testing stresses
Qtot = new List <Matrix>();
zValues = new List <double>();
//Global bodyforces matrices for the laminate (not used now)
double II0 = 0;
//double II1 = 0;
//double II2 = 0;
//Get the maximum of the different inputs
int[] lengths = { E1s.Count, E2s.Count, angles.Count, thickness.Count, v12s.Count };
int listLength = lengths.Max();
//Check if number of inputs is one or the same as the maximum And make the lists same length
E1s = SF.checkPlyListLength(E1s, listLength);
E2s = SF.checkPlyListLength(E2s, listLength);
angles = SF.checkPlyListLength(angles, listLength);
thickness = SF.checkPlyListLength(thickness, listLength);
v12s = SF.checkPlyListLength(v12s, listLength);
Gxys = SF.checkPlyListLength(Gxys, listLength);
//if odd numbers of numbers
double iterations = Math.Ceiling(listLength / 2.0);
iterations = listLength;
//For the moment only half of the layers are iterated thorough (and then doubled), it is necessary that the
//layers are symmetrical. A check is done for this in Section GH-component. Should be changed later
for (int i = 0; i < iterations; i++)
{
double v21 = v12s[i] * E2s[i] / E1s[i]; // Stiffness and strength analysis (Bokmärke) 4.2
//Reduced stiffness terms (EUROCOMP eq4.50)
double Q11 = E1s[i] / (1 - v12s[i] * v21);
double Q12 = v21 * E1s[i] / (1 - v12s[i] * v21); //= Q21
double Q22 = E2s[i] / (1 - v12s[i] * v21);
double Q66 = Gxys[i];
//Take local coordinate system into account
double angle = angles[i] + shell.MaterialOrientationAngle;
//angle in degree
double m = Math.Cos(angle * 2 * Math.PI / 360); //Math.Cos uses radians
double n = Math.Sin(angle * 2 * Math.PI / 360); //Math.Cos uses radians
//EUROCOMP, fast första är fel där (m^4) (Step 2)
double Q_11 = Q11 * Math.Pow(m, 4) + Q22 * Math.Pow(n, 4) + Q12 * 2 * Math.Pow(m, 2) * Math.Pow(n, 2) + Q66 * 4 * Math.Pow(m, 2) * Math.Pow(n, 2);
double Q_22 = Q11 * Math.Pow(n, 4) + Q22 * Math.Pow(m, 4) + Q12 * 2 * Math.Pow(m, 2) * Math.Pow(n, 2) + Q66 * 4 * Math.Pow(m, 2) * Math.Pow(n, 2);
double Q_66 = (Q11 + Q22 - 2 * Q12) * Math.Pow(m, 2) * Math.Pow(n, 2) + Q66 * Math.Pow(Math.Pow(m, 2) - Math.Pow(n, 2), 2);
double Q_12 = (Q11 + Q22 - 4 * Q66) * Math.Pow(n, 2) * Math.Pow(m, 2) + Q12 * (Math.Pow(n, 4) + Math.Pow(m, 4));
double Q_16 = Q11 * Math.Pow(m, 3) * n - Q22 * Math.Pow(n, 3) * m + Q12 * (Math.Pow(n, 3) * m - Math.Pow(m, 3) * n) + Q66 * 2 * (Math.Pow(n, 3) * m - Math.Pow(m, 3) * n);
double Q_26 = Q11 * Math.Pow(n, 3) * m - Q22 * Math.Pow(m, 3) * n + Q12 * (Math.Pow(m, 3) * n - Math.Pow(n, 3) * m) + Q66 * 2 * (Math.Pow(m, 3) * n - Math.Pow(n, 3) * m);
Matrix Q_ = new Matrix(new double[, ] {
{ Q_11, Q_12, Q_16 }, { Q_12, Q_22, Q_26 }, { Q_16, Q_26, Q_66 }
});
//Determine distances from the mid-plane
//Good picture in laminatedComposite PDF
double hkNew = totThick / 2.0;
double hkMinus1New = totThick / 2.0 - thickness[i];
for (int j = 0; j < i; j++)
{
hkNew -= thickness[j];
hkMinus1New -= thickness[j];
}
//Ändra till +=
AA = AA + (hkNew - hkMinus1New) * Q_;
BB = BB + (Math.Pow(hkNew, 2) - Math.Pow(hkMinus1New, 2)) * Q_;
DD = DD + (Math.Pow(hkNew, 3) - Math.Pow(hkMinus1New, 3)) * Q_;
//Same but for the masses
II0 = II0 + thickness[i];
//For stresses
Matrix Qlarge = new Matrix(6, 6);
Qlarge[new int[] { 0, 1, 2 }, new int[] { 0, 1, 2 }] = Q_;
Qtot.Add(Qlarge);
zValues.Add(hkNew - thickness[i] / 2);
}
BB = (1.0 / 2.0) * BB;
DD = (1.0 / 3.0) * DD;
// II2 = (1.0 / 3.0) * II2;
// II0 = II0 * density * gravity;
//Step 5 i euroCOMP
// Matrix a = AA.Invert();
//TEMPORARY. THEY GET SINGULAR
// Matrix b = B.Invert();
// Matrix d = DD.Invert();
//Step 6 euroCOMP
/* double totalThick = listLength * thickLam;
* double Ex = 1 / (totalThick * a[0, 0]);
* double Ey = 1 / (totalThick * a[1, 1]);
* double Gxy = 1 / (totalThick * a[2, 2]);
* double vxy = -a[0, 1] / a[0, 0];
* double vyx = -a[0, 1] / a[1, 1]; */
//d and b matrices can be used for the equivalent bending elastic constants (step 6 euroCOMP)
//Total D-matrix D=[AA -BB;-BB DD]
D = new Matrix(6, 6);
D[new int[] { 0, 1, 2 }, new int[] { 0, 1, 2 }] = AA;
D[new int[] { 3, 4, 5 }, new int[] { 3, 4, 5 }] = DD;
D[new int[] { 0, 1, 2 }, new int[] { 3, 4, 5 }] = -BB;
D[new int[] { 3, 4, 5 }, new int[] { 0, 1, 2 }] = -BB;
//Total Gravity load matrix
//q = new Matrix(new double[,] { { 0 } , { 0 }, { -II0 } }); //Gravity works in negative direction
}
