I 065762A 19.08.19 19.08.24 19.08.20 1
(18,26) 10/ +----18GHz.xls [ (18GHz) ] +----26GHz.xls [ (26GHz) ] +----all.sh [ 2 10 ] +----mesure-ryudai/ +----20070401/ +----192.168.100.9_csv.log [ (18GHz) ] +----192.168.100.11_csv.log [ (26GHz) ] +----20070401_rain.csv [ ] +----20070402/ : : +----mesure-ryudai+/ +----20070401/ +----192.168.100.9_csv.log_ [ (18GHz) ] +----192.168.100.11_csv.log_[ (26GHz) ] +----20070401_rain.csv [ ( )] +----20070402/ : : +----rain.xls [ ] 2
2 10 10 #!/bin/sh ### 10 calc() { list= cat $1 sed -e 1,2d next=0; aft=0; sum=0; cnt=1 result="start" #10 for line in $list do bef=$next next= echo $line cut -c 1-7 if [ "$next" = "$bef" ] ;then # 10 sum cnt= expr $cnt + 1 num= echo $line cut -f 2 -d, sum= expr $sum + $num else # 10 sum sum= echo "( $sum * 10 / $cnt - 5 ) / 10" bc result= echo $result \n ""$bef"0,$sum,$aft" sum= echo $line cut -f 2 -d, cnt=1 aft= echo $line cut -f 3-5 -d, fi done # _ sum= echo "( $sum * 10 / $cnt - 5 ) / 10" bc result= echo $result \n ""$bef"0,$sum,$aft" echo -e "$result" > $1_ } ### list= /bin/ls./mesure-ryudai grep $1 echo $list for date in $list do pass="./mesure-ryudai/$date/192.168.100.9_csv.log" calc $pass pass="./mesure-ryudai/$date/192.168.100.11_csv.log" calc $pass 3
done exit 1 pw 3 excel excel VBA rain.xls 1 Option Explicit Public temp As Long main Sub main() temp = 1 Dim strpathname As String Dim strfilename As String Call rename strpathname = "Macintosh HD:Users:j06062:experiment:10:mesure-ryudai+:" If StrConv(strPATHNAME, vbuppercase) = "FALSE" Then Exit Sub If Dir(strPATHNAME, vbdirectory) = "" Then MsgBox " ", vbexclamation Exit Sub End If strfilename = Dir(strPATHNAME, vbdirectory) Do While strfilename <> "" Call copypaste(strfilename) 4
Loop strfilename = Dir() Call writeresult Call makegraph rename Sub rename() total result Sheets("Sheet2").Name = "total" Sheets("Sheet3").Name = "result" copypaste rain.csv rain.xls Sub copypaste(byref filename As String) rain.csv Workbooks.Open filename:= _ "Macintosh HD:Users:j06062:experiment:10:mesure-ryudai+:" & filename & ":" & filename & "_rain.csv" Worksheets(filename & "_rain.csv").activate Call perhour rain.xls total Range("C3:C26").Select Selection.Copy Workbooks("rain.xls").Activate Sheets("total").Select Cells(1, temp).select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False rain.csv Workbooks(filename & "_rain.csv").close SaveChanges:=False temp = temp + 1 5
perhour 1 1 Sub perhour() Dim start As Integer Dim dest As Integer Dim fin As Integer start = 3 fin = start + 59 dest = 3 60 For dest = 3 To 26 Cells(dest, 3).FormulaR1C1 = "=sum(r" & start & "C2:R" & fin & "C2)" start = fin + 1 fin = start + 59 Next dest writeresult result Sub writeresult() Sheets("result").Select Range("A1").FormulaR1C1 = " " Range("B1").FormulaR1C1 = " " Range("C1").FormulaR1C1 = " " Range("A2").FormulaR1C1 = "=COUNTIF(total!R1C1:R24C91,"">="" &C[2] )" Range("A3").FormulaR1C1 = "=COUNTIF(total!R1C1:R24C91,"">="" &C[2] )" Range("B2").FormulaR1C1 = "=RC[-1]/R2C1*100" Range("B3").FormulaR1C1 = "=RC[-1]/R2C1*100" Range("C2").FormulaR1C1 = "0" Range("C3").FormulaR1C1 = "50" Range("A2:C3").Select Selection.AutoFill Destination:=Range("A2:C111"), Type:=xlFillDefault 6
makegraph result Sub makegraph() Range("B2:C111").Select Charts.Add ActiveChart.ChartType = xlxyscattersmooth ActiveChart.SetSourceData Source:=Sheets("result").Range("B2:C111"), PlotBy _ :=xlcolumns ActiveChart.Location Where:=xlLocationAsNewSheet ActiveChart.HasLegend = False x With ActiveChart.Axes(xlCategory).MinimumScaleIsAuto = True.MaximumScaleIsAuto = True.MinorUnitIsAuto = True.MajorUnitIsAuto = True.Crosses = xlcustom.crossesat = 0.01.ReversePlotOrder = False.ScaleType = xllogarithmic.displayunit = xlnone.majortickmark = xlinside.ticklabelposition = xlhigh End With ActiveChart.PlotArea.Select Selection.Interior.ColorIndex = xlautomatic ActiveChart.Axes(xlValue).MajorGridlines.Select With Selection.Border.Color = RGB(192, 192, 192).LineWeight = 0 End With ActiveChart.Axes(xlCategory).Select With Selection.TickLabels.Font.Name = " ".Size = 14 7
End With ActiveChart.Axes(xlValue).Select With Selection.TickLabels.Font.Name = " ".Size = 14 End With 1: 8
(18GHz) 18GHz.xls main rename copypaste csv 18GHz modify Sub copypaste(byref filename As String) Workbooks.Open filename:= _ "Macintosh HD:Users:j06062:experiment:10:mesure-ryudai+:" & filename & ": 192.168.100.9_csv.log_" Worksheets("192.168.100.9_csv.log_").Activate Columns("A:A").Select Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _ :=Array(Array(1, 9), Array(2, 1), Array(3, 9), Array(4, 9), Array(5, 9)) Call modify 18GHz.xls Range("B2:B8638").Select Selection.Copy Workbooks("18GHz.xls").Activate Sheets("total").Select Cells(1, temp).select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False 9
Workbooks("192.168.100.9_csv.log_").Close SaveChanges:=False temp = temp + 1 modify 2-121 256 Sub modify() Range("B2").Select ActiveCell.FormulaR1C1 = "=if(c[-1]<0,(c[-1]+256)/2-121,c[-1]/2-121)" Selection.AutoFill Destination:=Range("B2:B8638"), Type:=xlFillDefault writeresult Sub writeresult() Sheets("result").Select Range("A1").FormulaR1C1 = " " Range("B1").FormulaR1C1 = " " Range("C1").FormulaR1C1 = " " Range("A2").FormulaR1C1 = "=COUNTIF(total!R1C1:R8638C91,""<="" &C[2] )" Range("A3").FormulaR1C1 = "=COUNTIF(total!R1C1:R8638C91,""<="" &C[2] )" Range("B2").FormulaR1C1 = "=RC1/R2C1*100" Range("B3").FormulaR1C1 = "=RC1/R2C1*100" Range("C2").FormulaR1C1 = "0" Range("C3").FormulaR1C1 = "-1" Range("A2:C3").Select Selection.AutoFill Destination:=Range("A2:C122"), Type:=xlFillDefault makegraph Sub makegraph() 10
Range("B2:C102").Select Charts.Add ActiveChart.ChartType = xlxyscattersmooth ActiveChart.SetSourceData Source:=Sheets("result").Range("B2:C122"), PlotBy _ :=xlcolumns ActiveChart.Location Where:=xlLocationAsNewSheet... 2: (18GHz) 11
(26GHz) 26GHz.xls main rename copypaste Sub copypaste(byref filename As String) Workbooks.Open filename:= _ "Macintosh HD:Users:j06062:experiment:10:mesure-ryudai_:" & filename & ": 192.168.100.11_csv.log_" Worksheets("192.168.100.11_csv.log_").Activate Columns("A:A").Select Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _ :=Array(Array(1, 9), Array(2, 1), Array(3, 9), Array(4, 9), Array(5, 9)) 26GHz.xls Range("A2:A8638").Select Selection.Copy Workbooks("26GHz.xls").Activate Sheets("total").Select Cells(1, temp).select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Workbooks("192.168.100.11_csv.log_").Close SaveChanges:=False temp = temp + 1 12
writeresult 18GHz 26GHz -100 Sub writeresult() Sheets("result").Select Range("A1").FormulaR1C1 = " " Range("B1").FormulaR1C1 = " " Range("C1").FormulaR1C1 = " " Range("A2").FormulaR1C1 = "=COUNTIF(total!R1C1:R8638C91,""<="" &C[2] )" Range("A3").FormulaR1C1 = "=COUNTIF(total!R1C1:R8638C91,""<="" &C[2] )" Range("B2").FormulaR1C1 = "=RC1/R2C1*100" Range("B3").FormulaR1C1 = "=RC1/R2C1*100" Range("C2").FormulaR1C1 = "0" Range("C3").FormulaR1C1 = "-1" Range("A2:C3").Select Selection.AutoFill Destination:=Range("A2:C102"), Type:=xlFillDefault makegraph Sub makegraph() Range("B2:C102").Select Charts.Add ActiveChart.ChartType = xlxyscattersmooth ActiveChart.SetSourceData Source:=Sheets("result").Range("B2:C102"), PlotBy _ :=xlcolumns ActiveChart.Location Where:=xlLocationAsNewSheet... 13
3: (26GHz) [1] EXCEL http://www.asahi-net.or.jp/ ef2o-inue/top01.html 14