各位大佬，求助一下，我做了一个UHPC和C40的复合截面，代码如下，材料参数没有完全给出来是感觉太长了，我在单独设置C40的时候全部试过这些材料了，截面是可以正常运行的。这个截面报错的部分是UHPC部分始终报的是 patch quad参数设置不正确，我最初检查的方向是怀疑有部分截面定义重叠，或者纤维单元划分过多导致，但是我反复检查之后还是没能正确运行。因此虚心请教各位大佬，出现问题的原因是什么，怎么修改才能运行呢。
以下是报错提示：
WARNING invalid number of parameters: patch quad matTag numSubdivIJ numSubdivJK yVertI zVertI yVertJ zVertJ yVertK zVertK yVertL zVertL
WARNING - error reading information in { }
while executing
"patch quad 2 4 4 [expr -$y+$cover] [expr $z-$cover-$H] [expr $y-$cover] [expr $z-$cover-$H][expr $y-$cover] [expr $z-$cover] [expr -$y+$cover] [expr..."
invoked from within
"section Fiber 4 -GJ 1e12 {
# C40
patch quad 1 10 10 [expr -$y+$cover+$H] [expr -$z+$cover+$H] [expr $y-$cover-$H] [expr -$z+$cover+$H] [expr..."
(file "section.tcl" line 49)
invoked from within
以下是截面代码
set UHPC 0.065
set H [expr $UHPC-$cover]
section Fiber 4 -GJ 1e12 {
# # C40
patch quad 1 10 10 [expr -$y+$cover+$H] [expr -$z+$cover+$H] [expr $y-$cover-$H] [expr -$z+$cover+$H] [expr $y-$cover-$H] [expr $z-$cover-$H] [expr -$y+$cover+$H] [expr $z-$cover-$H]
# UHPC1
#bottom
patch quad 2 4 4 [expr -$y+$cover] [expr -$z+$cover] [expr $y-$cover] [expr -$z+$cover] [expr $y-$cover] [expr -$z+$cover+$H] [expr -$y+$cover] [expr -$z+$cover+$H]
#top
patch quad 2 4 4 [expr -$y+$cover] [expr $z-$cover-$H] [expr $y-$cover] [expr $z-$cover-$H][expr $y-$cover] [expr $z-$cover] [expr -$y+$cover] [expr $z-$cover]
#left
patch quad 2 4 4 [expr -$y+$cover] [expr -$z+$cover+$H] [expr -$y+$cover+$H] [expr -$z+$cover+$H] [expr -$y+$cover+$H] [expr $z-$cover-$H] [expr -$y+$cover] [expr $z-$cover-$H]
#right
patch quad 2 4 4 [expr $y-$cover-$H] [expr -$z+$cover+$H] [expr $y-$cover] [expr -$z+$cover+$H] [expr $y-$cover] [expr $z-$cover-$H] [expr $y-$cover-$H] [expr $z-$cover-$H]
#COVER
patch quad 2 10 1 -$y -$z $y -$z $y [expr -$z+$cover] -$y [expr -$z+$cover]
patch quad 2 10 1 -$y [expr $z-$cover] $y [expr $z-$cover] $y $z -$y $z
patch quad 2 1 10 -$y [expr -$z+$cover] [expr -$y+$cover] [expr -$z+$cover] [expr -$y+$cover] [expr $z-$cover] -$y [expr $z-$cover]
patch quad 2 1 10 [expr $y-$cover] [expr -$z+$cover] $y [expr -$z+$cover] $y [expr $z-$cover] [expr $y-$cover] [expr $z-$cover]
# Create the reinforcing fibers
#top
layer straight 7 4 $As [expr -$y+$cover] [expr $z-$cover-$transverseBarDiameter] [expr $y-$cover] [expr $z-$cover-$transverseBarDiameter]
#bottom
layer straight 7 4 $As [expr -$y+$cover] [expr -$z+$cover+$transverseBarDiameter] [expr $y-$cover] [expr -$z+$cover+$transverseBarDiameter]
#left
layer straight 7 2 $As [expr -$y+$cover+$transverseBarDiameter] [expr -$z+$cover+$transverseBarDiameter+$dia+$longspace] [expr -$y+$cover+$transverseBarDiameter] [expr $z-$cover-$transverseBarDiameter-$dia-$longspace]
#right
layer straight 7 2 $As [expr $y-$cover-$transverseBarDiameter] [expr -$z+$cover+$transverseBarDiameter+$dia+$longspace] [expr $y-$cover-$transverseBarDiameter] [expr $z-$cover-$transverseBarDiameter-$dia-$longspace]
}