#混凝土材料参数（C40） set hnt 40 ;#C40混凝土 set fcuk [expr 1e-6*$hnt] set fck 2.68e7 #以下为定义保护层混凝土 set fpc0 -$fck ;#轴心抗压强度标准值 set epsc0 -0.002 ;#最大抗压强度所对应的应变 set fpcu0 [expr 0.2*$fpc0] ;#极限抗压强度 set epscu0 -0.005 ;#极限抗压强度所对应的应变（-0.01） set ft0 [expr -0.1*$fpc0] ;#抗拉强度 #以下为定义核心混凝土 set Kfc 1.2 set fpc1 [expr $Kfc*$fpc0] set epsc1 [expr -0.002*$Kfc] set fpcu1 [expr 0.2*$fpc1] set epscu1 [expr -0.005 $Kfc] set ft1 [expr -0.1$fpc1] #共用参数 set Ets [expr $fpc0/0.002] set lambda 0.1 请按照以上模板写出C50混凝土和C30混凝土的材料参数设置（包含其相应的保护层和核心混凝土定义），编写代码必须是tcl语言字体，且这两种材料写在同一个tcl文件中在同一个TCL文件中定义这两种材料

#混凝土材料参数（C50）
set hnt 50 ;#C50混凝土
set fcuk [expr 1e-6*$hnt]
set fck 2.98e7

#以下为定义保护层混凝土
set fpc0 -$fck ;#轴心抗压强度标准值
set epsc0 -0.002 ;#最大抗压强度所对应的应变
set fpcu0 [expr 0.2*$fpc0] ;#极限抗压强度
set epscu0 -0.005 ;#极限抗压强度所对应的应变（-0.01）
set ft0 [expr -0.1*$fpc0] ;#抗拉强度

#以下为定义核心混凝土
set Kfc 1.2
set fpc1 [expr $Kfc*$fpc0]
set epsc1 [expr -0.002*$Kfc]
set fpcu1 [expr 0.2*$fpc1]
set epscu1 [expr -0.005 $Kfc]
set ft1 [expr -0.1$fpc1]

#共用参数
set Ets [expr $fpc0/0.002]
set lambda 0.1

#混凝土材料参数（C30）
set hnt 30 ;#C30混凝土
set fcuk [expr 1e-6*$hnt]
set fck 2.38e7

#以下为定义保护层混凝土
set fpc0 -$fck ;#轴心抗压强度标准值
set epsc0 -0.002 ;#最大抗压强度所对应的应变
set fpcu0 [expr 0.2*$fpc0] ;#极限抗压强度
set epscu0 -0.005 ;#极限抗压强度所对应的应变（-0.01）
set ft0 [expr -0.1*$fpc0] ;#抗拉强度

#以下为定义核心混凝土
set Kfc 1.2
set fpc1 [expr $Kfc*$fpc0]
set epsc1 [expr -0.002*$Kfc]
set fpcu1 [expr 0.2*$fpc1]
set epscu1 [expr -0.005 $Kfc]
set ft1 [expr -0.1$fpc1]

#共用参数
set Ets [expr $fpc0/0.002]
set lambda 0.1