股指期货模拟交易平台:标准悬链线方程和C语言实现

标准悬链线方程和C语言实现 
cheungmine 
 
（本文可以供大学本科学生和工程技术人员学习电线力学参考，也可供游戏物理引擎开发人员参考） 



标准悬链线是指悬挂在2个固定端A，B的均质柔性曲线。根据理论力学原理，其形态仅与悬挂点的高差h，链条线密度w，最低点的水平拉力T0和水平档距l有关，即 f (T0, w, l, h)。 



悬链线的几何方程决定了线上每一点在悬链线坐标系中的坐标： 
                           y = g(T0, w, l, h,x). 



悬链线的物理方程决定了线上每一点的轴向拉力，这个拉力可以分解为水平拉力T0和竖直拉力Tvx： 
                          Tvx = T(T0, w, l, h,x). 



悬链线坐标系是定义为以低悬点A为原点，指向高悬点在A的水平平面的投影B'为X轴，竖直向上与荷载平行为Y轴的平面直角坐标系。低悬点必须是A。 



下面是标准悬链线方程的公式的函数化表示。参考书为： 



《架空送电线路的电线力学计算（第二版）》 中国电力出版社，邵天晓 
说明：

1）算法中的 P61 (3-6)指书中61页的公式(3-6) 



2）本文仅仅是书中公式的C语言翻译。并未针对实际应用进行优化，因此存在大量充分计算的参数，如Lh0,s,cosB等。 



3）在工程中应该采用双曲线版本，如果对精度要求不严格，可以采用斜抛物线版本。本文未提供平抛物线版本， 平抛物线误差太大，在工程中没有实际意义 。 




/*************************************************************************************** 
* 悬链线计算用坐标系为以 A （低悬点）为原点， A 与 B' （ B 在与 A 等高的水平面上的投影点）为 X 轴， 
* AB 之间的高差 h = HB-HA ， h>=0 。以下为变量命名规则： 
* 
* T 线上应力，单位截面上作用的张力： N/mm2 
* L 线长： m 
* H 高度： m 
* w 比载，电线单位长度、单位截面上承受的荷载称为比载： N/mm2.m 
* l 档距，相邻两悬挂点间垂直于荷载方向的投影距离称为档距： m 
* h 高差，相邻两悬挂点沿荷载方向的高差，当右悬挂点高于左悬挂点时 h 为正值，反之为负值： m 
* 
* f 电线的弧垂，指自两悬挂点连线沿荷载方向到电线轴线间的距离： m 
* fM 档距中央弧垂，档内电线的最大弧垂 
* fO 悬链线最低点 O 的弧垂 
* 
* fAO 低悬点 A 对 O 的高差 
* fBO 高悬点 B 对 O 的高差 
* 
* A 左（低）悬挂点，应力 TA 
* B 右（高）悬挂点，应力 TB 
* O 最低点，仅有水平应力 T0 
* 
* s 斜距 |AB| ，两悬挂点连线的直线距离： sqrt(l*l+h*h) 
* a 平距 |AO| ，电线最低点到左悬挂点 A 垂直于荷载方向的投影距离 
* b 平距 |BO| ，电线最低点到右悬挂点 B 垂直于荷载方向的投影距离 
* cosB l 与 s 的比： 1/s 
* 
* 其中： 
* elec 电力 
* catenary 悬链线 
* hyperbolic 双曲线公式，精确计算公式 
* parabolic  抛物线公式，高阶近似计算公式 
* sag 弧垂 
* suspension 悬挂点 
****************************************************************************************/ 
  
/****************************************************************************** 
*                           Catenary Common Functions                        * 
*                                                                            * 
*  asinh                                                                     * 
*  elec_catenary_inclined_dist                                               * 
*                                                                            * 
*****************************************************************************/ 
/** 
* 反双曲正弦函数 
* asinh(x) = ln[x + sqrt(x^2 + 1)] 
*/ 
double asinh(double x) 
{ 
    return log(x+sqrt(x*x+1)); 
} 
  
/** 
* 斜距 s 
* 已知 A,B 悬挂点的档距 l 和高差 h 求 A,B 间的直线距离：斜距 s 
*/ 
double elec_catenary_inclined_dist ( double l, 
                                     double h 
                                    ) 
{ 
    return sqrt(l*l + h*h); 
} 
  
  
/****************************************************************************** 
*                           Catenary Hyperbolic Functions                    * 
*                         An Accurate Expression of Catenary                 * 
*                                                                            * 
*  elec_catenary_hyperbolic_equation                                         * 
*                                                                            * 
*                                                                            * 
*****************************************************************************/ 
/** 
* 悬挂点等高时悬链线线长双曲线公式 . P61 (3-6) 
*/ 
double elec_catenary_hyperbolic_length_equal_high ( 
                              double T0, 
                              double w, 
                              double l 
                              ) 
{ 
    return (2*T0/w)*sinh(w*l/2/T0); 
} 
  
/** 
* 悬链线线长双曲线公式 . P73 (3-37) 
*/ 
double elec_catenary_hyperbolic_length ( 
                              double T0, 
                              double w, 
                              double l, 
                              double h 
                              ) 
{ 
    double Lh0 = elec_catenary_hyperbolic_length_equal_high(T0, w, l); 
    return sqrt(h*h+Lh0*Lh0); 
} 
  
/** 
* 悬链线最低点 O 到悬挂点 A 间垂直于荷载方向的投影 a ( 可以 <0) 
* 使用双曲线方程 ( 精确式 ) 计算 P61 (3-6) 
* 说明 b = l - a 
*/ 
double elec_catenary_hyperbolic_lowest_proj ( 
                              double T0, 
                              double w, 
                              double l, 
                              double h 
                             ) 
{ 
    double Lh0 = elec_catenary_hyperbolic_length_equal_high (T0, w, l); 
    double a = l/2 - T0/w*asinh(h/Lh0); 
    double b = l/2 + T0/w*asinh(h/Lh0); 
    return a; 
} 
  
/** 
* 悬链线双曲线坐标方程 P62 (3-9) 
* 悬链线上任何一点对 A 点的高差 
* y = f(x), x = [0, l] 
* 验证： f(0)=0, f(l)=h 
*/ 
double elec_catenary_hyperbolic_equation ( 
                              double T0, 
                              double w, 
                              double l, 
                              double h, 
                              double x 
                              ) 
{ 
    double a = elec_catenary_hyperbolic_lowest_proj (T0, w, l, h); 
    double y = T0*(cosh((x-a)*w/T0) - cosh(w*a/T0))/w; 
    return y; 
} 
  
/** 
* 悬链线双曲线力学方程 P66 (3-20) 
* 悬链线上任一点轴向应力 
* T = t(x), x = [0, l] 
* 验证 TA = t(0), TB = t(l) 
*/ 
double elec_catenary_hyperbolic_tension ( 
                              double T0, 
                              double w, 
                              double l, 
                              double h, 
                              double x 
                              ) 
{ 
    double a = elec_catenary_hyperbolic_lowest_proj (T0, w, l, h); 
    double Tx = T0*cosh(w*(x-a)/T0); 
    return Tx; 
} 



/** 
* 悬挂点应力 TA, TB 
* 使用双曲线方程 ( 精确式 ) 计算 P67 (3-24) 
*/ 
void elec_catenary_hyperbolic_suspension_tension ( 
                              double T0, 
                              double w, 
                              double l, 
                              double h, 
                              double *TA, 
                              double *TB 
                              ) 
{ 
    double Lh0 = elec_catenary_hyperbolic_length_equal_high (T0, w, l); 
    
    double u = w*l/T0/2; 
    double v = asinh(h/Lh0); 
    
    *TA = T0*cosh(u - v); 
    *TB = T0*cosh(u + v); 
} 
  
/** 
* 悬链线悬挂点处的竖向应力分量 . P72 (3-36) 
* Tva, Tvb 
*/ 
void elec_catenary_hyperbolic_vert_suspension_tension ( 
                              double T0, 
                              double w, 
                              double l, 
                              double h, 
                              double *Tva, 
                              double *Tvb 
                              ) 
{ 
    double u = w*l/2/T0; 
    double v = sinh(u); 
    double k = h*w/2/T0; 
  
    *Tva = T0*sinh(u - asinh(k/v)); 
    *Tvb = T0*sinh(u + asinh(k/v)); 
} 
  
/** 
* 悬链线双曲线弧垂计算方程 P63 (3-12) 
* f = d(x), x = [0, l] 
* 验证： fA = d(0) = 0, fB = d(l) = 0 
*/ 
double elec_catenary_hyperbolic_sag ( 
                              double T0, 
                              double w, 
                              double l, 
                              double h, 
                              double x 
                              ) 
{ 
    double Lh0 = elec_catenary_hyperbolic_length_equal_high (T0, w, l); 
    double fx = h*x/l - T0*h/w/Lh0*(sinh(w*l/2/T0) + sinh(w*(2*x-l)/2/T0)) + 
                (2*T0/w*sinh(w*x/2/T0)*sinh(w*(l-x)/2/T0))*sqrt(1+h*h/(Lh0*Lh0)); 
    return fx; 
} 
  
/** 
* 悬链线双曲线电线平均高度精确式 P78 (3-44a) 
* 电线平均高度是指电线各点与电线弧垂最低点间的高差沿档距的积分面积被档距除得的商， 
* 即全档电线高出最低点的平均高度 
*/ 
double elec_catenary_hyperbolic_avg_high ( 
                              double T0, 
                              double w, 
                              double l, 
                              double h 
                              ) 
{ 
    double u = sinh(w*l/2/T0); 
    double v = cosh(w*l/2/T0); 
    double hav; 
  
    /** calc hav from a 
     * double a = elec_catenary_hyperbolic_lowest_proj(T0, w, l, h); 
     * hav = T0/w/l*( T0/w * ( sinh(w*l/T0)*cosh(w*a/T0) - cosh(w*l/T0)*sinh(w*a/T0) + sinh(w*a/T0) ) - l ); 
     */ 
    
    /** calc hav from Lh0 */ 
    double Lh0 = elec_catenary_hyperbolic_length_equal_high (T0, w, l); 
    hav = 2*T0*T0*u/(w*w*l)*(v*v - u*u)*sqrt(1+h*h/Lh0/Lh0) - T0/w; 
  
    return hav; 
} 
  
/** 
* 悬链线双曲线电线平均应力精确式 P80 (3-45) 
* 全档电线各点不同应力下产生的全部弹性伸长通常用一个产生全部弹性伸长的等效应力 
* 或平均应力 Tav 来计算。该应力的大小为各点应力沿线长积分被线长除后所得的平均值 
* Tav = 1/L*∫(0~L)Tx.dL 。 ∫(0~L) 表示积分符号 
*/ 
double elec_catenary_hyperbolic_avg_tension ( 
                              double T0, 
                              double w, 
                              double l, 
                              double h 
                              ) 
{ 
    double L = elec_catenary_hyperbolic_length(T0, w, l, h); 
    double Tav = T0/2/L*(l+ (L*L+h*h)*cosh(w*l/2/T0)/sqrt(L*L-h*h)); 
    
    /** An Approximate Expression of Tav 
     * double Tav = T0/2/L*((l*l+h*h+L*L)/l); 
     */ 
  
    return Tav; 
} 
  
/** 
* 悬链线双曲线任一点轴向斜率 P65 (3-19) 
* 电线切线与 x 轴正方向间的夹角的正切 
*/ 
double elec_catenary_hyperbolic_tangent( 
                              double T0, 
                              double w, 
                              double l, 
                              double h, 
                              double x 
                              ) 
{ 
    double a = elec_catenary_hyperbolic_lowest_proj(T0, w, l, h); 
    return sinh(w*(x-a)/T0); 
} 
  
  
/****************************************************************************** 
*                           Catenary Parabolic Functions                     * 
*                       An Approximate Expression of Catenary                * 
*                                                                            * 
*  elec_catenary_parabolic_equation                                          * 
*                                                                            * 
*                                                                            * 
*****************************************************************************/ 
/** 
* 悬链线线长抛物线公式 . P74 (3-39) 
* 工程上采用可以得到极为精确的近似值 
*/ 
double elec_catenary_parabolic_length ( 
                              double T0, 
                              double w, 
                              double l, 
                              double h 
                              ) 
{ 
    double s = elec_catenary_inclined_dist (l, h); 
    return s + (w*w*l*l*l*l)/(24*s*T0*T0); 
} 
  
/** 
* 悬链线抛物线坐标方程 P82 (3-48) 
* 悬链线上任何一点对 A 点的高差 
* y = f(x), x = [0, l] 
* 验证： f(0)=0, f(l)=h 
*/ 
double elec_catenary_parabolic_equation ( 
                              double T0, 
                              double w, 
                             double l, 
                              double h, 
                              double x 
                              ) 
{ 
    double t = w/(2*T0*l/sqrt(l*l+h*h)); 
    double y = (x*t + (h/l - l*t)) * x; 
    return y; 
} 
  
/** 
* 悬链线抛物线力学方程 . P85 (3-60a) 
* 悬链线上任一点轴向应力 
* T = t(x), x = [0, l] 
*/ 
double elec_catenary_parabolic_tension ( 
                              double T0, 
                              double w, 
                              double l, 
                              double h, 
                              double x 
                              ) 
{ 
    double cosB = l / sqrt(l*l+h*h); 
    double u = h/l - w*(l-2*x)/(2*T0*cosB); 
    double Tx = T0 * sqrt(1 + u*u); 
    return Tx; 
} 
  
/** 
* 悬链线按抛物线方程近似计算悬挂点应力 TA, TB. P85 (3-63, 3-64) 
* 
 */ 
void elec_catenary_parabolic_suspension_tension ( 
                              double T0, 
                              double w, 
                              double l, 
                              double h, 
                              double *TA, 
                              double *TB 
                              ) 
{ 
    double cosB = l / sqrt(l*l+h*h); 
    double u = T0/cosB; 
    double v = w*l*l/(8*T0*cosB); 
    
    *TA = u + (v-h/2)*w; 
    *TB = u + (v+h/2)*w; 
} 
  
/** 
* 悬链线按抛物线方程近似计算悬挂点应力竖向分量 P84 (3-59) (3-60) 
* Tva, Tvb 
*/ 
void elec_catenary_parabolic_vert_suspension_tension ( 
                              double T0, 
                              double w, 
                              double l, 
                              double h, 
                              double *Tva, 
                              double *Tvb 
                              ) 
{ 
    double cosB = l / sqrt(l*l+h*h); 
    *Tva = w*l/2/cosB - T0*h/l; 
    *Tvb = w*l/cosB - (*Tva);    
} 
  
/** 
* 给定高悬点应力 TB 求最低点容许应力 T0 P86 (3-65)

* 按抛物线方程取近似值 
*/ 
double elec_catenary_parabolic_lowest_tension ( 
                              double TB, 
                              double w, 
                              double l, 
                              double h 
                              ) 
{ 
    double s = elec_catenary_inclined_dist ( l, h ); 
    double cosB = l / s; 
  
    double u = TB-w*h/2; 
  
    double T0 = cosB*u/2 + sqrt(u*u*cosB*cosB - w*w*l*l/2)/2; 
  
    return T0; 
} 
  
/** 
* 悬链线最低点 O 到悬挂点 A 间垂直于荷载方向的投影 a ( 可以 <0) 
* 使用抛物线方程 ( 近似式 ) 计算 P62 (3-7) 
* 说明 b = l - a 
*/ 
double elec_catenary_parabolic_lowest_proj ( 
                              double T0, 
                              double w, 
                              double l, 
                              double h 
                              ) 
{ 
    double cosB = l / elec_catenary_inclined_dist ( l, h ); 
    double a = l/2 - T0*h*cosB/(w*l); 
    return a; 
} 
  
/** 
* 悬链线电线平均高度 
* 抛物线方程 P86 (3-66) 
*/ 
double elec_catenary_parabolic_avg_high ( 
                              double T0, 
                              double w, 
                              double l, 
                              double h 
                              ) 
{ 
    double cosB = l / elec_catenary_inclined_dist ( l, h ); 
    double hav = w*l*l/(24*T0*cosB) + T0*cosB*h*h/(2*w*l*l); 
    return hav;    
} 
  
/** 
* 悬链线电线平均应力 
* 抛物线方程 P86 (3-67) 
*/ 
double elec_catenary_parabolic_avg_tension ( 
                              double T0, 
                              double w, 
                              double l, 
                              double h 
                              ) 
{ 
    double cosB = l / elec_catenary_inclined_dist ( l, h ); 
    double Tav = T0/cosB + w*w*l*l/(24*T0*cosB); 
    return Tav; 
} 
  
/** 
* 悬链线抛物线任一点轴向斜率 P83 (3-51) 
* 电线切线与 x 轴正方向间的夹角的正切 
*/ 
double elec_catenary_parabolic_tangent( 
                              double T0, 
                              double w, 
                              double l, 
                              double h, 
                              double x 
                              ) 
{ 
    double cosB = l / elec_catenary_inclined_dist ( l, h ); 
    return h/l - w*(l-2*x)/(2*T0*cosB); 
} 
  

  
int main(int argc, CHAR* argv[]) 
{ 
    double l = 400;     /* m */ 
    double h = 100;     /* m */ 
    double w = 0.06134; /* N/(m.mm2) */ 
    double T0 = 98.1;   /* N/mm2 */ 
  
    // 双曲线长精确式 
    double L = elec_catenary_hyperbolic_length(T0, w, l, h); 
    
    // 抛物线长近似式 
    double Lp = elec_catenary_parabolic_length(T0, w, l, h); 
    
    // 双曲线悬点拉力 TA, TB 
    double TA, TB; 
    elec_catenary_hyperbolic_suspension_tension(T0, w, l, h, &TA, &TB); 
  
    // 抛物线悬点拉力 TAp, TBp 
    double TAp, TBp; 
    elec_catenary_parabolic_suspension_tension(T0, w, l, h, &TAp, &TBp); 
  
    // 已知高悬点拉力反算最低点应力 T0p 
    double T0p = elec_catenary_parabolic_lowest_tension(TB, w, l, h); 
  
    // 计算弧垂 sag 
    double fA = elec_catenary_hyperbolic_sag(T0, w, l, h, 0); 
    double fB = elec_catenary_hyperbolic_sag(T0, w, l, h, l); 
  
    // 档距中央弧垂 
    double fM = elec_catenary_hyperbolic_sag(T0, w, l, h, l/2); 
  
    // 最低点弧垂 
    double a; 
    a = elec_catenary_hyperbolic_lowest_proj(T0, w, l, h); 
  
    double ap; 
    ap = elec_catenary_parabolic_lowest_proj(T0, w, l, h); 
    double fO = elec_catenary_hyperbolic_sag(T0, w, l, h, a); 
  
    double y; 
    y = elec_catenary_hyperbolic_equation(T0, w, l, h, 0); 
    y = elec_catenary_hyperbolic_equation(T0, w, l, h, a); 
    y = elec_catenary_hyperbolic_equation(T0, w, l, h, l/2); 
    y = elec_catenary_hyperbolic_equation(T0, w, l, h, l); 
  
    // 电线平均高度 
    double hav = elec_catenary_hyperbolic_avg_high(T0, w, l, h); 
    double Tav = elec_catenary_hyperbolic_avg_tension(T0, w, l, h); 
  
    double havp = elec_catenary_parabolic_avg_high(T0, w, l, h); 
    double Tavp = elec_catenary_parabolic_avg_tension(T0, w, l, h); 
  
  
    // 悬挂点竖向应力 
    double Tva = elec_catenary_hyperbolic_vert_tension(T0, w, l, h, 0); 
    double Tvb = elec_catenary_hyperbolic_vert_tension(T0, w, l, h, l); 
    double Tva2; 
    double Tvb2; 
    elec_catenary_hyperbolic_vert_suspension_tension(T0, w, l, h, &Tva2, &Tvb2); 
  
    
    double Tvap; 
    double Tvbp; 
    elec_catenary_parabolic_vert_suspension_tension(T0, w, l, h, &Tvap, &Tvbp); 
 
    // 计算验证 w×L = Tva+ Tvb 
  

    return 0; 
} 


本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/cheungmine/archive/2010/12/30/6106439.aspx