乔's space

Qiao's profile乔's spaceBlogNetwork

Tools

Help

Blog

April 07

小伙计大掌柜

练习成熟，再测试做事能力与道德，

如远则易欺，远使以观其志，

近则易狎，近使以观其敬，

烦则难理，烦使以观其能，

卒则难办，卒使以观其智，

急则易夹，急使以观其信，

财则易贪，委财以观其仁，

危则易变，告危以观其节，

杂处易淫，派往繁华以观其色。

4:37 AM | Add a comment | Permalink | Blog it

February 11

土木系学生

和上学期一样，本学期继续做建筑材料试验课的TA。上这课也就是碎碎混凝土，断断钢筋什么的，玩的都是硬气功。选这门课的基本上也都是男生，一共三十几个人，只有一个女生。这样的男女比例倒和在国内非常相似。只是，每次上课时，任凭你使出浑身解数讲得口干舌燥，学生们总是提不起精神，一群和尚大眼瞪小眼。只好跟他们扯些液氮冷冻终结者或者titanic的钢材含磷量太高什么的。

今天下午，去轧钢厂参观，车上全是男生。想起本科实习的时候，放眼望去，工地上黑压压一片，如同五百罗汉下山一般！到了轧钢厂，接待我们的老师傅第一句话就是，上次好像是个lady领队的吧。只好告诉他，Nancy这学期不带实验课，改教土力学了。闹哄哄的车间里，全是红脖或者老墨。老师傅一路是扯着破锣嗓子使劲的吼，试图盖过机器的轰鸣。最后，老师傅问大家有什么问题吗？一个个仿佛才从睡梦中惊醒，彼此面面相觑！

回来的时候，还没到停车场，远远望见biological系的freshman在空地上搞什么团体项目。雪才化没几天，南方姑娘们已是一身奔放的短打扮。这群男男女女闹哄哄玩得好不开心。可怜车上的小伙子们，只能临渊羡鱼般眼巴巴的看着，嘴里嘀咕着“what the hell are they doing?”……

不过据说UT算是为数不多的几个女生比男生多的学校了。在此，向其他兄弟院校的同志们深表同情！

最近新闻上说国内要对高中文理分班制度进行改革。个人非常赞成这一点做法。建国初期，一穷二白，仿效苏联搞文理分班，院校分设，甚至工程师治国的政策，都是为了加快建设，是权宜之计。中学政治告诉我们，生产关系要适应生产力的发展。现在，国内生产力已经发展起来，有些政策也该调整了。这项改革，应时而生，所以，坚决支持。正在念初中的娃们，等待你们的将是前所未有的新新生活！

文理不分，或许学习生活更加多元，不会太单一。让孩子们在人类社会正常男女比例的环境中学习成长，可能也就不会有那么多男女，甚至男男，女女的曲折的故事了。

情人节快到了，祝朋友们节日快乐！

11:38 PM | Add a comment | Read comments (4) | Permalink | Blog it

December 14

what is vba?

Dim iri_left As Single, iri_right As Single
Dim rut_left As Single, rut_right As Single
Dim psi As Single
Dim sinBegin As String, sinEnd As Single
Dim dApply As Date

Sub Search()
'
' search column, creat new sheet, copy data
'
' 快捷键: Ctrl+q
'
    ActiveSheet.Name = "all"                                     '命名主表

    Sheets.Add(before:=Sheets(Sheets.Count)).Name = "Total"      '建立Total表,列好表格
    Sheets("Total").Range("A1") = "Year"
    Sheets("Total").Range("B1") = "Time"
    Sheets("Total").Range("C1") = "IRI"
    Sheets("Total").Range("D1") = "Rut"
    Sheets("Total").Range("E1") = "PSI"
    Sheets("Total").Range("F1") = "IRI_left"
    Sheets("Total").Range("G1") = "IRI_right"
    Sheets("Total").Range("H1") = "Rut_left"
    Sheets("Total").Range("I1") = "Rut_right"

    Sheets("all").Select                                    '重新激活主表

    Dim m As Integer, i As Integer                                   '用于计数
    Dim iBegin(10) As Integer, iEnd(10) As Integer        '记录起始行号
    Dim str As String, str1 As String                                '输入列号
    Dim sName(10) As String, sTime(10) As String            '记录年份的数组
    m = 0                                                                    '记录年数
    iBegin(m) = 2
    i = 2
    str = "K"                                                                     '输入时间列，K或者L
    sinBegin = InputBox("Please input the begin log mile:")     '输入里程段
    sinEnd = InputBox("Please input the end log mile:")
    dApply = InputBox("Please input the application time:")     '输入应用时间

    While Range(str & i) <> ""                           '遍历时间列，存储年份和相应行范围，此处range命令也可改为Range("A" & i)
        If (Range(str & i) <> Range(str & i + 1)) Then
            iEnd(m) = i
            sName(m) = Range(str & i)
            sTime(m) = Range("L" & i)
            m = m + 1
            iBegin(m) = i + 1
        End If
        i = i + 1
    Wend

    Dim n As Integer, time As Integer
    n = 2
    For i = 0 To m - 1                                    '依次建立分表,拷贝数据，并计算
        Sheets.Add(after:=Sheets(Sheets.Count)).Name = sName(i)
        str = iBegin(i) & ":" & iEnd(i)
        str1 = sName(i)
        Sheets("all").Rows(1).copy Sheets(str1).Rows(1)
        Sheets("all").Rows(str).copy Sheets(str1).Rows(2)

        Call Calculate                                       '在分表处于激活状态时，计算

        Sheets("Total").Range("A" & n) = sTime(i)
        time = sName(i) - dApply
        Sheets("Total").Range("B" & n) = time
        Sheets("Total").Range("E" & n) = psi
        Sheets("Total").Range("E" & n).NumberFormat = "0.00"
        Sheets("Total").Range("F" & n) = iri_left
        Sheets("Total").Range("F" & n).NumberFormat = "0"
        Sheets("Total").Range("G" & n) = iri_right
        Sheets("Total").Range("G" & n).NumberFormat = "0"
        Sheets("Total").Range("H" & n) = rut_left
        Sheets("Total").Range("H" & n).NumberFormat = "0.00"
        Sheets("Total").Range("I" & n) = rut_right
        Sheets("Total").Range("I" & n).NumberFormat = "0.00"
        Sheets("Total").Range("C" & n).FormulaR1C1 = "=AVERAGE(R[0]C[3]:R[0]C[4])"
        Sheets("Total").Range("C" & n).NumberFormat = "0"
        Sheets("Total").Range("D" & n).FormulaR1C1 = "=AVERAGE(R[0]C[4]:R[0]C[5])"
        Sheets("Total").Range("D" & n).NumberFormat = "0.00"

        n = n + 1
    Next

End Sub

Public Sub Calculate()
'
'在各分表中选择里程并计算均值
'
'Input the begin and end log mile

    Dim iBegin As Integer, iEnd As Integer, i As Integer       '此iBegin, iEnd用于记录里程范围
    Dim str As String

    i = 1                                                      '查询起始行和终止行
    While Range("M" & i) <> ""
        If (Range("M" & i) = sinBegin) Then
            iBegin = i
        End If
        If (Range("M" & i) = sinEnd) Then
            iEnd = i
        End If
        i = i + 1
    Wend

    str = "P" & iBegin & ":" & "P" & iEnd                       '计算左IR
    iri_left = Application.WorksheetFunction.average(Range(str))

    str = "O" & iBegin & ":" & "O" & iEnd                       '计算右IRI
    iri_right = Application.WorksheetFunction.average(Range(str))

    str = "R" & iBegin & ":" & "R" & iEnd                       '计算左rut
    rut_left = Application.WorksheetFunction.average(Range(str))

    str = "Q" & iBegin & ":" & "Q" & iEnd                       '计算右rut
    rut_right = Application.WorksheetFunction.average(Range(str))

    str = "U" & iBegin & ":" & "U" & iEnd                       '计算PSI
    psi = Application.WorksheetFunction.average(Range(str))

End Sub

1:11 AM | Add a comment | Read comments (1) | Permalink | Blog it

December 04