สยามฟาร์ม SiamFarm
ขอเชิญเพื่อนๆพี่ๆน้องๆ แชร์เรื่องราวที่อาจมีประโยชน์ต่อเพื่อนมนุษย์ด้วยนะครับ
 แสดงกระทู้
|
|
หน้า: [1] 2
|
|
1
|
ฟาร์มนอกชายฝั่ง / คุยกัน | แนะนำ | แลกเปลี่ยนความรู้งานวิศวกรรมโครงสร้างนอกฝั่ง / มีเครื่องมือช่วยให้ คนที่ใช้ SACS ทำ in-Place analysis ได้สะดวกขึ้นครับ
|
เมื่อ: สิงหาคม 20, 2011, 06:22:23 pm
|
พอดีช่วงนี้กำลังอ่านหนังสือเรื่อง excel advance ก็เลยมาลองของนิดหน่อย การทำ in-place analysis report หลายๆคนคงต้องเสียเวลากับการทำ ตาราง Load combination อย่างนี้ ( http://image.ohozaa.com/view/1a57p )กันไม่มากก็น้อย ผมก็เป็นคนนึง ที่เสียเวลาทำตาราง Load combination เป็นวันๆ(ในกรณีที่ลูกค้าไม่ได้ให้ตารางมาเป็น excel แต่ดันให้มาเป็นกระดาษอันแสนที่จะมองไม่ค่อยเห็น) ผมว่าหลายๆคนก็เคยเจอปัญหานี้มาก่อน ผมได้ทำ macro excel ให้แปลงจาก command line จาก SACS มาเป็นตาราง excel เอามาฝากครับ มันเป็นแค่ต้นแบบน่ะครับ ผิดพลาดอะไรก็ขออภัยด้วย อีกอย่างผมไม่ได้ security ไว้ ใครจะเอาไปพัฒนาต่อก็ได้ครับ แล้วเอามาแบ่งปันกันได้ครับ ถ้ามี feedback ดี เดี๋ยวผมจะเอา macro excel อื่นมาฝากอีกครับ ตอนนี้กำลังทำ การจัดเรียง member uc, joint uc, basic load และอื่นๆ เช่น แสดงผลของการ ananlysis ออกมาเป็นตารางสวยๆทันทีแค่copy sacslst มาไว้ในexcel เป็นต้น วิธีใช้ก็ copy LCOMB line ใน SACS input file มาไว้ใน cell "A1" sheet 1 แล้วก็ตามรูปนี้เลยครับ http://image.ohozaa.com/view/1a57hปล. มือใหม่น่ะครับ Code มีดังนี้ครับ Sub Macro1()
'
' Macro1 Macro
'
'
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(5, 1), Array(10, 1), Array(15, 1), Array(21, 1), _
Array(25, 1), Array(31, 1), Array(35, 1), Array(41, 1), Array(45, 1), Array(51, 1), Array( _
55, 1), Array(61, 1), Array(65, 1)), TrailingMinusNumbers:=True
Range("A1").Select
Do While Not IsEmpty(ActiveCell.Value)
If ActiveCell.Value <> "LCOMB" Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B:B") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A1:SN5000")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B:B" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A1:D5160")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("B1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveCell.Offset(0, 3).Select
Selection.Insert Shift:=xlToRight
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveCell.Offset(0, 3).Select
Selection.Insert Shift:=xlToRight
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveCell.Offset(0, 3).Select
Selection.Insert Shift:=xlToRight
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveCell.Offset(0, 3).Select
Selection.Insert Shift:=xlToRight
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveCell.Offset(0, 3).Select
Selection.Insert Shift:=xlToRight
a = 0
For i = 1 To 5
a = 3 + a
Range("B1").Select
ActiveCell.Offset(0, a).Select
If Not IsEmpty(ActiveCell.Value) Then
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, ActiveCell.Offset(0, 2)).Select
Selection.Cut
Range("B1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.Insert Shift:=xlDown
Else
Exit For
End If
Next i
Range("A1").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("C:C" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A1:D5160")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("C1").Select
Selection.End(xlDown).Select
If Not IsEmpty(ActiveCell.Offset(1, -1)) Then
Range(ActiveCell.Offset(1, -1), Selection.End(xlDown)).EntireRow.Delete
End If
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B:B" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A1:D5160")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("B1").Value = "Load comb"
Range("C1").Value = "Basic Load"
Range("D1").Value = "Factor"
ActiveCell.Columns("A:C").EntireColumn.Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Sheet1!R1C2:R1048576C4", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="Sheet2!R2C2", TableName:="PivotTable4", DefaultVersion _
:=xlPivotTableVersion14
Sheets("Sheet2").Select
Cells(2, 2).Select
With ActiveSheet.PivotTables("PivotTable4").PivotFields("Load comb")
.Orientation = xlColumnField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable4").PivotFields("Basic Load")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable4").AddDataField ActiveSheet.PivotTables( _
"PivotTable4").PivotFields("Factor"), "Count of Factor", xlCount
With ActiveSheet.PivotTables("PivotTable4").PivotFields("Count of Factor")
.Caption = "Max of Factor"
.Function = xlMax
.NumberFormat = "0.00"
End With
End Sub |
|
|
|
|
6
|
ฟาร์มนอกชายฝั่ง / คุยกัน | แนะนำ | แลกเปลี่ยนความรู้งานวิศวกรรมโครงสร้างนอกฝั่ง / เรื่อง Error ใน Floatation and Upending ครับ
|
เมื่อ: เมษายน 29, 2011, 09:36:05 pm
|
*** WARNING - TOTAL INCREMENT 1 FAILED TO CONVERGED *** HORIZONTAL DISTANCE FROM CB TO CG = 0.0029 (FT) METACENTER HEIGHT ABOVE CG = -7.3603 (FT) *** WARNING - TOTAL INCREMENT 1 FAILED TO CONVERGED *** HORIZONTAL DISTANCE FROM CB TO CG = 0.0029 (FT) METACENTER HEIGHT ABOVE CG = -7.3603 (FT) *** - ERROR - EXCEEDED MAX ITERATIONS FOR TOTAL INCREMENT NUMBER 1 ผมเจอerror เหมือนข้างบนในการรัน Floatation ในCase 1 leg damage แล้วคราวนี้ผมเลยส่งเมล์ไปถามedi ก็ได้คำตอบมาดังข้างล่างนี้ครับ อยากถามผู้รู้ว่า เค้าหมายถึง SACS 5.3 SP2 นี้ไม่สามารถ ใช้ การ์ด weight ได้แล้วใช่ไหมครับ รวมไปถึง การ์ด JCKO ด้วย เพราะมันอาจจะทำให้น้ำหนักที่ได้ออกมาไม่ถูกต้อง ผมเห็นงานเก่าๆใช้กันเกือบทุกโปรเจคเลย  Dear ผู้ถาม(คือผมเองครับ)In your flotation input file you used WEIGHT cards to define the additional weights and buoyancies. The current version of flotation program (SACS 5.3 SP2) can’t handle these cards correctly, and that is why you got the error messages. I would like to suggest you use other way to input those weights and buoyancies into the structural model file. You defined the structural material density of 514.5 lbs/ft^3 in JCKO line in the flotation input file. The flotation program doesn’t use this density to calculate the structural weight. Again you have to modify the structural input file. I am sorry for all of these happened to you. We are going to fix the program and hopefully the next release of the program will work fine. Regards, คนที่ edi ตอบFrom: อีเมล์คนถาม Sent: Thursday, April 28, 2011 2:28 AM To: CangBo Zheng Subject: SACS Query What does this error means? And how to solve this error *** WARNING - TOTAL INCREMENT 1 FAILED TO CONVERGED *** HORIZONTAL DISTANCE FROM CB TO CG = 0.0029 (FT) METACENTER HEIGHT ABOVE CG = -7.3603 (FT) *** WARNING - TOTAL INCREMENT 1 FAILED TO CONVERGED *** HORIZONTAL DISTANCE FROM CB TO CG = 0.0029 (FT) METACENTER HEIGHT ABOVE CG = -7.3603 (FT) *** - ERROR - EXCEEDED MAX ITERATIONS FOR TOTAL INCREMENT NUMBER 1 Best Regards, ผู้ถาม(คือผมเองครับ)เด็กน้อย Structural Engineer |
|
|
|
|
7
|
ฟาร์มนอกชายฝั่ง / คุยกัน | แนะนำ | แลกเปลี่ยนความรู้งานวิศวกรรมโครงสร้างนอกฝั่ง / GRLWEAP
|
เมื่อ: เมษายน 12, 2011, 08:18:21 am
|
GRLWEAP is a one-dimensional Wave Equation Analysis program that simulates the pile response to pile driving equipment. GRLWEAP predicts driving stresses, hammer performance and the relation between pile bearing capacity and net set per blow. It also estimates the total driving time. This allows the user to investigate which hammer is likely to be sufficient and economic for a certain pile and soil condition prior to mobilizing the hammer to the job.
|
|
|
|
เว็บไซด์ สยามฟาร์ม Powered by Civilthai.com
|
มันคืออะไรครับ แล้วหน้างานเค้าทำอะไรกัน ถึงเรียกว่า weld profile สิ หรือไม่ก็ Toe grinding
