2008年11月7日星期五

Web2.0 的连续梁计算程序

Web2.0 是不是就是应用程序网络化,不是特别懂啊

http://www.graitec.com/En/ePCCalc.asp

连续梁计算的网络应用程序,似乎只能用于IE,不过要装个插件。图标很漂亮,不过程序就丑了些。


其实,连续梁计算程序不能算技术含量太高的,以前无聊的时候用excel也编过一个,没有用VBA宏的,只用了矩阵求逆,现在还常自用。如下。个人很喜欢的程序是DR.BEAM,用起来很舒服,不过网络应用程序毕竟是新产物,还是值得记录一下的。

2008年11月3日星期一

【TC技巧】如何将多个文件分别移入到以文件名命名的文件夹中

【TC技巧】如何将多个文件分别移入到以文件名命名的文件夹中
http://chenqj.blogspot.com
近日遇到了一个问题,有一堆pdf,是文献的,内置图片文件,文件个头很大,大概每个30M/6页,于是希望将其变小,顺序依次是,用PDF to IMAGE软件提取每个pdf的图片,然后进行图片处理,再用老马的freepic2pdf转为新的pdf。在这过程中,最好是一个pdf在一个文件夹中,这样子,pdf提取的图形文件才不会太混乱。那么如何把一堆pdf文件分别移到多个文件夹中呢。开始想找软件,后来发现用Total Commander(TC)两步就可以完成了,于是乎如下做:
(1)将多个Pdf分别压缩到多个压缩文件中(按alt+F5,选中对每个文件分别创建压缩包,可选移动到压缩文件中)
(2)将多个压缩包解压(按alt+F9,选中将每个压缩文件解压到同名的文件夹中)
关键就是括号内TC提供的功能了。
:),大功告成

2008年10月27日星期一

全国第二届大学生结构设计竞赛

最近,和其他老师一起,带了三位学生去了大连理工大学参加“全国第二届大学生结构设计竞赛”,最后,在全国48支参赛队中,取得了一等奖。感觉还是很不错的,这几个学生动手能力和理论分析能力都很不错。
全国大学生结构设计竞赛已正式被列入了国家教育部批准的9个大学生竞赛资助项目之一,规模和参赛队实力都很强,国内的土木强校基本都参加了。
我们的结构是368g,但是时间的紧迫使得结构优化没有做的很好,一些冗余构件也没有下决心删除,结构重量还是有不小的改进空间。这次比赛中,只有3个进入300g的结构,而且都只有最轻的结构因为意外有些失手,另外两个都过了10kg,让人大开眼界。
照片

大连理工大学正门

结构竞赛大拱门


比赛外景


彩旗飘飘

我们的队伍在比赛中

我们的结构

我觉得做工最好的武汉大学的结构

下面是大连风光,大连真是一个漂亮的城市






2008年9月2日星期二

关于EXCEL里面的汉字转拼音首字母的函数

关于EXCEL里面的汉字转拼音首字母的函数

近日由于制作通讯录需要,在EXCEL中需要对人名转换为拼音首字母,以前是用了一款“实用汉字转拼音”的免费软件的,后来在excelhome和officefans中看到了好些关于这个的文章,因而本次制作采用了如下的第2种方法。也搜索了一下,故记录之,有些网站地址也没有记全,只能对不起原作者了。

1. 采用定义名称和LOOKUP的方法

定义一个名称叫“拼音”的,做法: 插入->名称->定义 ,输入名称“拼音”,添加,在引用位置中键入
“={"","";"吖","A";"八","B";"嚓","C";"咑","D";"鵽","E";"发","F";"猤","G";"铪","H";" 夻","J";"咔","K";"垃","L";"嘸","M";"旀","N";"噢","O";"妑","P";"七","Q";"囕","R";" 仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"帀","Z"}”
注,不包括外面的引号(下同)。

那么,比如在A3中有"陈",则在B3中输入"=VLOOKUP(A3,拼音,2)",则会得到"C"。

不过此法有时候也会出错,比如"黄","宏",就会得到J,"奕"会得到"Z",看来还不够完善。

2. 自定义函数。
''''''''''''''''''''''
'VBscript代码提供者:小白
'联系方法:
'E-mail:xiaobai@17560.net
'
'VBA代码转换者:惟惟
'联系方法:Email:wuweiyin@yeah.net
'个人博客:http://weiwei.blog.163.com
'如有不正确的地方,请提出来或是帮忙完善
'谢谢
''''''''''''''''''''''''''''''
Function getpychar(char)
tmp = 65536 + Asc(char)
If (tmp >= 45217 And tmp <= 45252) Then
getpychar = "A"
ElseIf (tmp >= 45253 And tmp <= 45760) Then
getpychar = "B"
ElseIf (tmp >= 45761 And tmp <= 46317) Then
getpychar = "C"
ElseIf (tmp >= 46318 And tmp <= 46825) Then
getpychar = "D"
ElseIf (tmp >= 46826 And tmp <= 47009) Then
getpychar = "E"
ElseIf (tmp >= 47010 And tmp <= 47296) Then
getpychar = "F"
ElseIf (tmp >= 47297 And tmp <= 47613) Then
getpychar = "G"
ElseIf (tmp >= 47614 And tmp <= 48118) Then
getpychar = "H"
ElseIf (tmp >= 48119 And tmp <= 49061) Then
getpychar = "J"
ElseIf (tmp >= 49062 And tmp <= 49323) Then
getpychar = "K"
ElseIf (tmp >= 49324 And tmp <= 49895) Then
getpychar = "L"
ElseIf (tmp >= 49896 And tmp <= 50370) Then
getpychar = "M"
ElseIf (tmp >= 50371 And tmp <= 50613) Then
getpychar = "N"
ElseIf (tmp >= 50614 And tmp <= 50621) Then
getpychar = "O"
ElseIf (tmp >= 50622 And tmp <= 50905) Then
getpychar = "P"
ElseIf (tmp >= 50906 And tmp <= 51386) Then
getpychar = "Q"
ElseIf (tmp >= 51387 And tmp <= 51445) Then
getpychar = "R"
ElseIf (tmp >= 51446 And tmp <= 52217) Then
getpychar = "S"
ElseIf (tmp >= 52218 And tmp <= 52697) Then
getpychar = "T"
ElseIf (tmp >= 52698 And tmp <= 52979) Then
getpychar = "W"
ElseIf (tmp >= 52980 And tmp <= 53640) Then
getpychar = "X"
ElseIf (tmp >= 53689 And tmp <= 54480) Then
getpychar = "Y"
ElseIf (tmp >= 54481 And tmp <= 62289) Then
getpychar = "Z"
Else '如果不是中文,则不处理
getpychar = char
End If
End Function

Function getpy(str)
For i = 1 To Len(str)
getpy = getpy & getpychar(Mid(str, i, 1))
Next i
End Function

那么,在VBA编辑器里面->插入->模块->贴入上述代码,那么。
那么,比如在A3中有"实验室",则在B3中输入"=getpy(A3)",则会得到"SYS"。
不过此法有时候也会出错,比如"雯","雪","学"等,就无法得到拼音,看来也还不够完善。

3.利用微软拼音(这个是整词转换的)
本文较长,我也没有仔细用过,不能评价
http://www.excelpx.com/home/show.aspx?id=199&cid=15
或
http://club.excelhome.net/dispbbs.asp?BoardID=2&ID=229924&replyID=&skin=0
功能比较强大的

4.也有直接建立汉字和拼音的对应库表,直接查询的。:)

2008年8月31日星期日

部份www.freewaregenius.com的软件学习记录

挺喜欢www.freewaregenius.com介绍的软件,小而有趣。
下面是几个自己有些喜欢的软件。
1) Slowmousion: slow down the mouse via hotkey for a higher degree of control
文章介绍地址
http://www.freewaregenius.com/2008/08/27/slowmousion-slow-down-the-mouse-via-hotkey-for-a-higher-degree-of-control/
简介:用于采用键盘热键加快或者减慢鼠标移动速度,用于演示文档时候或者
图片:http://www.mystercrowley.com/image/sm_shot//sm03en.jpg


2)CRP: automatically re-launch apps and control a program’s allowed number of running instances
文章介绍地址
http://www.freewaregenius.com/2008/07/14/crp-automatically-re-launch-apps-and-control-a-programs-allowed-number-of-running-instances/
简介:可以检测设定的软件一直运行(一旦关闭会再次启动),可以设定某个程序能同时打开的个数。
图片:http://www.troupware.com/images/products/crp_ss.jpg


3)Phlox: use “f2″ in XP to rename files without overwriting file extensions
文章介绍地址
http://www.freewaregenius.com/2008/08/15/phlox-use-f2-in-xp-to-rename-files-without-overwriting-file-extensions/
简介:资源管理器用F2重命名,此软件的用途是按F2的时候,选中文件但不选中后缀,方便改名。其实这个功能在TC中则是内置的。
图片:http://www.mystercrowley.com/image/scrshot/phlox.png



4)“Types”: easily configure the default apps, icons, and context menu entries for file types
文章介绍地址
http://www.freewaregenius.com/2008/06/21/types-easily-configure-the-default-apps-icons-and-context-menu-entries-for-file-types/
简介:这个软件用于编辑不同软件类型的上下文菜单,图标,关联等等。比windows自身带的功能要强些。当然,你要是懂开源软件。不过需要.net frame 2.0。
图片:http://types.sourceforge.net/pix/vista.png

2008年8月26日星期二

几何画板和geogebra

业余的时候,会玩下几何,当然,实际工作如有限元分析中,几何知识也对我的建模提供了有力的技术支持。

支持轨迹、动画、迭代的几何画板是一个很好的软件,通过自定义工具,可以实现很高级的功能。
比如它可以做出如下的分形树的动画,当然还有更复杂的。
似乎blogger无法看到动画,那么,图形效果也如此处。



今天,dianlinchen老师介绍了一个geogebra软件,个人使用后感觉很好。
试用了一下,非常容易上手,很好用。
有几个优点
(0)免费,难得!
(1)程序思路非常清晰,网站wiki说程序是是由美国佛罗里达州亚特兰大学的数学教授 Markus Hohenwarter 所设计的。而看编写人员介绍中,这程序是一个硕士研究生的毕业论文课题,现在在其博士研究期间也还在不断更新。几乎不用看帮助就可以完成大部分的简单操作。很容易上手。
(2)直接基于JAVA程序编写,因而其动态网页输出结果非常好。
(3)物体属性较多,从颜色到线型到样式都很多。
(4)内置了圆锥曲线(同时会给出方程)、极线(反演)、切线(可以是圆、圆锥曲线、函数)、函数的求导
(5)有输入框,可以直接输入各种命令和函数等。
(6)从 GeoGebra 3.0 开始可以自订工具了,你可以于绘图的时候指定输入及输出物件,在工具列上建立你自己的绘图工具.在该网站的wiki中,可以看到不少美丽的图案和不少人贡献的工具,如Bezier曲线等
(7)网站的wiki,代表了一种开放式的思想,也可以有更多的人参与其中

觉得几何画板中有的而GeoGebra中个人还没有找到对应的工具的比如动画,似乎几何画板更容易些,迭代,还没有找到。

当然,试用半天肯定不能深入,以后有空再仔细探讨一下。

2008年8月21日星期四

关于autocad中wmfout的精度问题

前段时间,fools兄提过一个问题,在某些dwg图用wmfout的时候,会出现部分图的精度为2496DPI,而部分图为288DPI的情况。就算用betterwmf的时候也是如此。
前几天,终于在qq上与fools兄联系上。开始以为是某个系统变量所控制的,于是用acadinfo得到所有系统变量的数值,对输出高分辨率和低分辨率的图形的变量逐一对比,找不出任何的问题。

中间搜索得到了LISP高手MP在99年也提过类似的问题
http://groups.google.com/group/autodesk.autocad.customization/browse_thread/thread/c8cd6492373a7ac4/b3abe53cc8219f28?lnk=gst&q=wmfout+resolution#b3abe53cc8219f28

第二天早上继续,决定采用二分法来判别,逐步分离图层和物体,最终得到的结果是一个块。
有此块(block)的存在时,输出的wmf必是低分辨率(288DPI),此时各种物体歪曲失真。
经过分析,此块内有无名块(unname block),最终我无法打碎这个块,于是我认为问题出在此无名块身上。但是后来联系上eachy和fools后,他们一直认为这块内有wipeout(遮盖物体)。于是最终解决了问题。

答案就是:当dwg图形内有wipeout实体时,无论是否选中wipeout实体运行wmfout(或者betterwmf)输出wmf的时候,会出现低DPI情况。

什么是低DPI,就是当你用WMFIN再次导入该WMF的时候,图形产生了较大的失真

如图

2008年8月13日星期三

点滴记录

1. 奥运会开幕了,开幕式还是很不错的,运动员的眼泪很让我感动,杜丽、朱启南、李小鹏……,无论成功或者失败,其实他们都站在了自己领域的世界之巅,让人钦佩。

2. 制作漫画图片的web网站
http://www.befunky.com/cartoonizer/index.php
效果真的很不错,比如

3.看电脑商情报的心得
软件:Orca:用于编辑MSI文件,可以人为修改起信息,使得安装与众不同,比如,让一些判别系统才能安装的软件可以突破这个限制。
此软件来源于微软的SDK,可以从Microsoft platform SDK for Windows Server 2003 R2中提取,可以在这里下载:http://www.greendown.cn/soft/4046.html

网站: 在线抓网站成为图片的网站:http://www.superscreenshot.com/
:)有时候这个挺有用的,比如拿来当代理用? 最近自己的googlepages上不去了,倒是给抓屏抓下来看看了。

软件: Adobe pdf 9 ,支持插入flash了。

其实最近用SAP2000和MSTCAD作几个大型体育场的复核,倒是学了不少东西,编了许多程序,比如在cad中蒙皮以导入sap2000中使用,或者智能移动,lisp内嵌dcl等等,cad输出dxf的图层调序,dxf到sap2000的自动化导入等等,都是收获。几个学生也都很聪明,上手特别快。有目标的话效率比较高。

2008年7月30日星期三

Placebar-修改文件打开窗口左边栏的默认文件夹

在打开或者保存窗口,我们经常看到的是Histroy,Desktop等五个图标,而我经常希望它是我一个经常用到的目录,比如下载目录,但是一直不知道如何修改,或者说不知道怎么去搜索我的需求,所以我一直使用的是FileBoX Extender或者是Flash Folder,这几天终于在LifeHacker上看到这篇文章:PlacesBar Tweaker Edits Open and Save Locations

它的作用就是做这种修改,下图1 是程序的抓图,图2是修改后的抓图


当然,写此文时,还是习惯性的google一下,看看是否已有介绍,于是看到此文
http://www.raymond.cc/blog/archives/2008/02/29/how-to-change-windows-default-save-as-or-open-location/zh/
在此文中,我看到了powertoy或者gpedit.msc都可能可以修改,于是又觉得自己很是孤陋寡闻了。:)

在http://lifehacker.com/397358/placesbar-editor-customizes-windows-explorer又看到了一个和本软件很像的软件PlacesBar Editor:http://melloware.com/products/placesbarv1/





2008年7月23日星期三

关于Autocad加载Arx程序时出现“AcRxDynamicLinker FAILED TO LOAD”的处理方法

今晚,在安装Terrian for Autocad的时候,安装完毕之后出现“AcRxDynamicLinker FAILED TO LOAD” 无法加载Terrian2004.arx。由于早上在台式机上是可以安装的,因此个人觉得很是不解“

于是,开始google,在这里帖子里面
http://discussion.autodesk.com/thread.jspa?threadID=383305
Owen Wengerd-------President, ManuSoft ==> http://www.manusoft.com
给出了一个解决方法
去下载Dependency Walker(下载地址:http://www.dependencywalker.com/)来查看这个arx程序究竟关联了哪些dll,于是,经过不断的查错,首先发现少了一个efsadu.dll的dll文件,于是到这里(http://www.dll-files.com/dllindex/dll-files.shtml?efsadu)下载了此文件,后来还是不是,发现Dependency Walker提示sycgeo70.dll有问题,记起曾经安装过一个其他版本的Terrain,虽然后来卸载了,但可能这个存在windows目录下的dll没有被删除,于是,手工删除此文件,再重新安装一次之后,搞定。看来这个过程还是得记录下来,以免下次又遇到这种情况。当然,出现这个原因和安装卸载软件时候出现问题有关系。