-={挑战}=-使用鲍威尔方法解决优化问题

admin1

[code];;(Powell val con arg arg_limit eps)
(defun Powell  (val        con          arg
      arg_limit     eps          / ss_powell_arg0
      ss_powell_1dmin     ss_powell_main_function
      ss_powell_a0     ss_powell_dfm_lst ss_powell_dfm
      ss_powell_x0     ss_powell_f0       ss_powell_x1
      ss_powell_f1     ss_powell_x2       ss_powell_f2)
  ;; --------------------------------------------------------;;
  ;; Use Powell method to solve solve optimization problems
  ;;
  ;; Args:
  ;; val -- Expressions calculation function
  ;; con -- Restriction function
  ;; arg -- A string list of the Parameters's name , such as '( "x1" "x2" ...)
  ;; arg_limit -- parameters's limits , like '( (-1e14 1e14) (0 1e14) ...)
  ;; eps -- accuracy
  ;;
  ;; by GSLS(SS) 2013.10.6
  ;;---------------------------------------------------------;;
  (defun ss_powell_1dmin  (x -xm x0 +xm / f0 fa fb -fm +fm)
    ;; One-dimensional search
    ;; This function has not the Powell method .
    ;; How to change it connect with Gradient direction ?
    (set (read x) x0)
    (setq f0 (if (con)
          (val)
          1e99))
    (set (read x) -xm)
    (setq fa (if (con)
          (val)
          1e99))
    (set (read x) (* 0.5 (+ x0 -xm)))
    (setq -fm (if (con)
      (val)
      1e99))
    (set (read x) +xm)
    (setq fb (if (con)
          (val)
          1e99))
    (set (read x) (* 0.5 (+ x0 +xm)))
    (setq +fm (if (con)
      (val)
      1e99))
    (cond
      ((or (equal x0 -xm eps) (equal x0 +xm eps))
       x0)
      ((< fa -fm f0 +fm fb)
       -xm)
      ((> fa -fm f0 +fm fb)
       +xm)
      ((and (> fa -fm f0) (< f0 +fm fb))
       (ss_powell_1dmin x (*  0.5 (+ x0 -xm)) x0 (* 0.5 (+ x0 +xm))))
      ((and (> fa -fm) (< -fm f0 +fm fb))
       (ss_powell_1dmin x -xm (* 0.5 (+ x0 -xm)) x0))
      ((and (> fb +fm) (> fa -fm f0 +fm))
       (ss_powell_1dmin x x0 (* 0.5 (+ x0 +xm)) +xm))
      ((and (equal x0 -xm (sqrt eps)) (equal x0 +xm (sqrt eps)))
       (/ (+ x0 -xm +xm) 3.))
      ))
  (setq ss_powell_arg0 arg)
  (if arg_limit
    (mapcar
      (function
   (lambda   (x y)
     (cond
       ((or (not y) (apply (function or) y))
        (set (read (strcat x "_limit")) (list -1e14 1e14)))
       ((not (car y))
        (set (read (strcat x "_limit")) (list -1e14 (cadr y))))
       ((not (cadr y))
        (set (read (strcat x "_limit")) (list (car y) 1e14)))
       (t (set (read (strcat x "_limit")) y))
       )))
      arg
      arg_limit)
    (foreach x   arg
      (set (read (strcat x "_limit")) (list -1e14 1e14)))
    ) ;_ x1_limit
  (setq   ss_powell_x0
    (mapcar
      (function
        (lambda (x)
          (*
       0.5
       (+
         (car (eval (read (strcat x "_limit"))))
         (cadr (eval (read (strcat x "_limit"))))))))
      arg))
  (defun ss_powell_main_function  (/ ss_powell_i)
    (ss-set arg ss_powell_x0)
    (setq ss_powell_f0
      (if (con)
        (val)
        1e99))
    (setq ss_powell_a0
      (mapcar (function (lambda (x)
                0.0))
         arg)
     ss_powell_dfm_lst
      nil
     ss_powell_i 0)
    (mapcar
      (function
   (lambda   (x  /
       ss_powell_a1_f0      ss_powell_a1_x0
       ss_powell_a1_l         ss_powell_a1_-xm
       ss_powell_a1_+xm     ss_powell_a1_ai
       ss_powell_a1_f1      )
     (setq   ss_powell_a1_f0
       (if (con) (val)1e99))
     (setq ss_powell_a1_x0 (eval (read x)))
     (setq ss_powell_a1_l (eval (read (strcat x "_limit"))))
     (setq   ss_powell_a1_-xm (car ss_powell_a1_l)
      ss_powell_a1_+xm (cadr ss_powell_a1_l))
     (setq   ss_powell_a1_ai
       (- (ss_powell_1dmin
            x
            ss_powell_a1_-xm
            ss_powell_a1_x0
            ss_powell_a1_+xm)
          ss_powell_a1_x0))
     (setq ss_powell_a0 (ch-lst ss_powell_a1_ai ss_powell_i ss_powell_a0))
     (ss-set arg
        (mapcar (function +) ss_powell_x0 ss_powell_a0))
     (setq   ss_powell_a1_f1
       (if (con)
         (val)
         1e99))     
     (setq   ss_powell_dfm_lst
       (cons (- ss_powell_a1_f0 ss_powell_a1_f1)    ss_powell_dfm_lst))
     (setq ss_powell_i (1+ ss_powell_i))     
     ))
      arg)
    (setq ss_powell_dfm_lst (reverse ss_powell_dfm_lst))
    (setq ss_powell_x1
      (mapcar (function +) ss_powell_x0 ss_powell_a0))
    (setq ss_powell_x2
      (mapcar (function (lambda (x y)
                (- (* 2. x) y)))
         ss_powell_x1
         ss_powell_x0))
    (ss-set arg ss_powell_x1)
    (setq ss_powell_f1
      (if (con)
        (val)
        1e99))
    (ss-set arg ss_powell_x2)
    (setq ss_powell_f2
      (if (con)
        (val)
        1e99)))
  (ss_powell_main_function)
  (while (not (equal ss_powell_x1 ss_powell_x0 eps))
    (setq ss_powell_dfm (apply (function max) ss_powell_dfm_lst))
    (if
      (or (>= ss_powell_f2 ss_powell_f0)
     (>= (* (+ ss_powell_f0 ss_powell_f2 (* -2. ss_powell_f1))
       (- ss_powell_f0 ss_powell_f1 ss_powell_dfm))
         (* 0.5
       ss_powell_dfm
       (expt (- ss_powell_f0 ss_powell_f2) 2))))
      (progn
       (if (< ss_powell_f1 ss_powell_f2)
    (setq ss_powell_x0 ss_powell_x1)
    (setq ss_powell_x0 ss_powell_x2))
      ;_ (setq ss_powell_dfm_i (vl-sort-i ss_powell_dfm_lst (function >)))   
    )
      (progn;_this is not
    (setq ss_powell_i
      (car
        (vl-sort-i ss_powell_dfm_lst (function >))))   
    (setq ss_powell_a0
      ((lambda(/ i)
        (setq i -1)
        (mapcar
          (function (lambda (y)
            (setq i (1+ i))
            (if (= i ss_powell_i)
              y
              (* -2.  y))))         
          ss_powell_a0))))
    (setq ss_powell_x0 (mapcar (function +) ss_powell_x0 ss_powell_a0))
   ;_(setq ss_powell_dfm_i (shift(vl-sort-i ss_powell_dfm_lst (function >))))
   )
      ;_(setq ss_powell_x0 ss_powell_x1)
      )
    ;|
    (setq arg (mapcar (function (lambda (i)
              (nth i arg)))
            ss_powell_dfm_i))
    (setq ss_powell_x0 (mapcar (function (lambda (i)
              (nth i ss_powell_x0)))
            ss_powell_dfm_i))|;
    (ss_powell_main_function))
  (ss-set arg ss_powell_x1)
  (setq   ss_powell_f1
    (if (con)
      (val)
      1e99))
  (list (mapcar (function (lambda (x) (eval(read x)))) ss_powell_arg0) ss_powell_f1))[/code]

jxmjg

  法拉利膜材作为一种高性能的建筑材料，在建筑、汽车及广告等多个领域有着广泛的应用。以下是对法拉利膜材型号、特点及优点的详细分析：
[img]http://www.mjgou.com/data/attachment/forum/202403/13/223041uiqmeujen4jjj6zv.jpg[/img]
[b]一、法拉利膜材型号[/b]
法拉利膜材有多种型号，包括但不限于以下几种：1302 S2 Flexlight Advanced：这是一种高性能IV型柔性复合膜材，以其卓越的透光性、耐久性和易维护性而受到青睐。942、1202 S2、1002 S2、902 S2、1212 S2、912 S2：这些型号同样属于法拉利膜材系列，各自具有不同的特性和适用范围，但具体特点需根据具体型号进一步分析。需要注意的是，法拉利膜材的型号可能随着产品更新换代而有所变化，具体型号及其特性请参考最新产品资料。
[img=860,1255]http://www.mjgou.com/data/attachment/forum/202403/13/223254bbblwlbvbvsbwlsl.jpg[/img]
[b]二、法拉利膜材特点[/b]
法拉利膜材的特点主要体现在以下几个方面：
1、高强度与耐用性：法拉利膜材采用高强度材料制成，具有良好的抗拉强度和撕裂强度，能够承受较大的外力作用而不易破损。耐用性强，能够在恶劣气候条件下保持稳定的性能，延长使用寿命。
2、透光性与美观性：部分型号如1302 S2 Flexlight Advanced具有高透光性，能够在保持室内光线充足的同时，提供清晰的视野。膜材表面平整光滑，色彩丰富多样，能够满足不同建筑和装饰需求，提升整体美观性。
3、轻质与灵活性：法拉利膜材重量较轻，便于运输和安装，能够降低施工成本和时间。膜材具有一定的柔韧性，能够适应各种复杂形状和结构的设计要求。
4、环保与可回收性：法拉利膜材符合环保要求，部分材料可回收利用，减少了对环境的影响。
[img]http://www.mjgou.com/data/attachment/forum/202403/13/223128owhn0099rrds5h5y.jpg[/img]
[b]三、法拉利膜材优点[/b]
法拉利膜材的优点主要体现在以下几个方面：
1、提升建筑性能：高强度与耐用性使得法拉利膜材能够提升建筑的稳定性和安全性，延长使用寿命。透光性与美观性使得建筑内部光线充足、视野开阔，同时提升整体美观度。
2、降低施工成本：轻质特性使得运输和安装成本降低，施工效率提高。膜材的柔韧性使得施工更加灵活多变，能够适应各种复杂地形和结构要求。
3、节能环保：部分材料可回收利用，符合环保要求，减少了对环境的影响。良好的透光性能够减少室内照明需求，降低能耗。
4、广泛应用领域：
法拉利膜材不仅适用于建筑领域（如体育设施、商业设施、文化设施、交通设施等），还广泛应用于汽车及广告领域（如高档车辆贴膜保护和装饰、广告招贴等），展现出其多功能的特性。

综上所述，法拉利膜材以其高强度、耐用性、透光性、美观性、轻质灵活性以及环保可回收性等优点，在建筑、汽车及广告等多个领域发挥着重要作用。具体型号的选择应根据实际需求和应用场景进行综合考虑。
[url=http://www.mjgou.com/forum-17-1.html][size=88764][color=Red]法拉利膜材中国代理商 - 膜结构网[/color][/size][/url]

法拉利中国代理

法拉利膜材，作为法拉利技术织物工业集团（Serge Ferrari）的核心产品，在膜结构工程、建筑设计及工业应用等多个领域展现出卓越的性能和广泛的应用价值。以下是对法拉利膜材的详细分析：
[b]一、公司背景与实力[/b]
法拉利技术织物工业集团（Serge Ferrari）是全球柔性复合织物技术的领导企业之一，致力于为设计创新项目提供专业产品和专业经验。该公司秉持创新理念，致力于减少材料和能源消耗，同时提供更好的解决方案。其膜材产品因其轻柔、耐用及可循环利用的特性，得到了国际公认的知名建筑师和设计师的推荐使用。
[b]二、产品特点[/b]
轻柔耐用：法拉利膜材以其轻柔的质地和卓越的耐用性著称，能够满足各种复杂环境和长期使用的需求。
高透光率：法拉利膜材具有良好的透光性，不仅增加了建筑的美观度，还能保证室内光线充足，减少照明能耗。例如，某些型号的法拉利膜材透光率可达13%，同时具有较高的热能反射率（如73%），有助于调节室内温度。
防腐蚀与自洁性：膜材表面经过特殊处理，具有优异的防腐蚀性和自洁性。能够抵抗酸雨、盐分等化学物质的侵蚀，同时减少灰尘和污染物的附着，降低清洁成本。
防火难燃：法拉利膜材采用防火材料制成，不易燃烧，提高了建筑的安全性。
环保性：膜材材料可循环利用，符合现代环保理念。法拉利技术织物工业集团还利用Texyloop高效回收系统提供产品循环再生服务，满足生态环保的期望。
高性能技术参数：如法拉利STFE膜材，具有极高的耐磨性、抗老化性、耐化学性和高透明度。其抗拉强度高，能够有效抵抗外界力量的冲击；耐热性能好，能在高温环境下保持稳定。
[b]三、应用领域[/b]
法拉利膜材广泛应用于以下领域：
建筑及设计：应用于停车棚膜结构、体育看台膜结构、球场膜结构、景观膜结构、环境工程膜结构以及充气膜结构等各种膜结构工程。其轻柔耐用的特性使得膜结构建筑更加美观、经济且实用。
工业及特种应用：在化工、食品、医药等行业中，法拉利膜材的耐化学性、耐高温性和机械稳定性使其成为高要求的工业场合的理想选择。
家具及游艇：法拉利膜材的优异性能也使其在家具和游艇制造领域得到应用，提升了产品的整体品质和耐用性。
[b]四、技术创新与发展[/b]
法拉利技术织物工业集团一直致力于技术创新和产品研发。其Précontraint®技术专利为材料提供了最佳的重量/性能比及尺寸稳定性，适应了最苛刻的结构要求。同时，公司还通过预应力技术提高材料的同质性和可靠性，进一步提升了产品的性能和使用寿命。
[b]五、总结[/b]
法拉利膜材以其轻柔耐用、高透光率、防腐蚀与自洁性、防火难燃以及环保性等特点，在多个领域展现出卓越的性能和广泛的应用价值。作为柔性复合织物技术的全球领导企业之一，法拉利技术织物工业集团将继续秉承创新理念，为客户提供更加优质的产品和服务。