液压支架设计第六章.doc

第六章 液压支架程序优化设计 6.1 QBASIC程序 一 程序流程图 二 原程序 CLS PRINT plese input max hight H1: INPUT HM PRINT plese input nin hight H2: INPUT HN L1 = 300: L4 = 1340: L5 = 2060: L6 = 90: L7 = 90: l13 = 280: l14 = 300 L15 = 250: L16 = 1050: L17 = 250: L19 = 1000: L20 = 120: L21 = 360 L26 = 380: pk = 485: BC = 1500: BM = 1420: MJI = 2065: dizuo = 2600 Laa = 650: Lbb = 1350: Lcc = 300: Ldd = 320 v1 = 18: v2 = 16: v3 = 24: hz1 = 268: QQS = 343: QQL = 509 COLOR 10, 1 DEF FNQ (V) = INT(V * 100) / 100 DEF FND (X) = INT(X * 10) / 10 DEF FNS (A) = (A / 3.141593) * 180 DEF FNK (K) = (K / 180) * 3.1415923# DEF FNR (M) = (M / 180) * 3.141593 H1 = HM + 200 - 260 - 300: H2 = HN - 300 - 260 - 300 FOR Pa = .91 TO 1.08 STEP .03 FOR QA = 1.31 TO 1.48 STEP .02 FOR I = .61 TO .82 STEP .02 FOR I1 = .22 TO .3 STEP .02 G = H1 / (SIN(Pa) + I * SIN(QA)) A = I * G B = I1 * G f = G - B e1 = G * COS(Pa) - A * COS(QA) Xa = f * COS(Pa) Ya = H1 - f * SIN(Pa) Qb = .436 Pb = ATN((H2 - A * SIN(Qb)) / (e1 + A * COS(Qb))) IF Pb FNK(16.7) THEN 140 ELSE 900 140 Xb = f * COS(Pb) Yb = B * SIN(Pb) + A * SIN(Qb) Pc = 3.141593 / 2 - ATN(A / G) - ATN(e1 / SQR(G * G + A * A - e1 * e1)) Qc = 3.141593 / 2 - Pc Xc = f * COS(Pc) Yc = B * SIN(Pc) + A * SIN(Qc) M = Xc * Xc - Xa * Xa + Yc * Yc - Ya * Ya N = Xb * Xb - Xc * Xc + Yb * Yb - Yc * Yc T = 2 * (Xc - Xa) * (Yb - Yc) - (Yc - Ya) * (Xb - Xc) Xd = (M * (Yb - Yc) - N * (Yc - Ya)) / T Yd = (N * (Xc - Xa) - M * (Xb - Xc)) / T C = SQR((Xa - Xd) ^ 2 + (Ya - Yd) ^ 2) O = C / A IF O .9 AND O 1.2 THEN 250 ELSE 900 250 D = Yd E = e1 - Xd Xe = e1 + A * COS(QA) Ye = A * SIN(QA) Xf = e1 Yf = 0 Ka = (Ya - Yd) / (Xa - Xd) C1 = ATN(Ka) Kb = (Ye - Yf) / (Xe - Xf) Xg = (Ka * Xa - Ya - Kb * Xe + Ye) / (Ka - Kb) Yg = Ka * (Xg - Xa) + Ya l = Xg