南音.北乐.--盖德问答-化工人互助问答社区

南音.北乐.

影响力0.00

经验值0.00

粉丝9

化工操作员

关注已关注 私信

他的提问 2282 他的回答 13737

修改MDEA吸收H2S的吸收率？ 在利用ASPEN 模拟MDEA对H2S的吸收过程中，由于采用了高效的MDEA溶液，想求助一下修改哪些参数可以改变模拟中自带的MDEA对H2S的吸收率查看更多 3个回答 . 1人已关注

关注问题已关注 回答

登录后参与回答

水厂污水量计算求助（急啊！）？我们厂要新建一个污水处理厂，不知道怎么计算污水排放量，厂子是做矿泉水的，年产40万t，恳请大伙帮帮忙，教教我怎么算污水排放量，有没有什么经验算法之类的,谢谢。查看更多 5个回答 . 1人已关注

关注问题已关注 回答

登录后参与回答

脱硫装置中缓冲层用什么啊？类似从2米高的地方往下倒酸性液体，下方有长方形池子，但是溅射的很厉害，有没有起缓冲作用的东西来挡一下呢，海绵太吸水。有类似海绵但不吸水的东西吗？查看更多 1个回答 . 5人已关注

关注问题已关注 回答

登录后参与回答

煤气化的工艺包的优劣？ 对于一个开发好的煤气化工艺包，如何评价工艺包的价值，有没有评价标准？是从经济性上评价还是能源节约上？查看更多 6个回答 . 2人已关注

关注问题已关注 回答

登录后参与回答

合成氨厂的技术改造与经验总结？ 资料太好了，对小氮肥生产和生存太重要了，能免费吗？查看更多 21个回答 . 1人已关注

关注问题已关注 回答

登录后参与回答

催化剂回收？我们的催化装置的催化剂罐用水环真空泵加剂，但是在使用过程中，水环真空空泵的排气中带有很多催化剂，而且停泵排水时，水里面也含有很多催化剂，造成了很大的浪费大家有没有遇到过这种情况的，你们是怎么解决的，求帮助查看更多 29个回答 . 1人已关注

关注问题已关注 回答

登录后参与回答

关于；压力表内置阻尼器，真空保护器？有谁用过压力表内置阻尼器，真空保护器，对压力表有影响么？原理有么？另外弹簧管，膜片，膜盒在使用量程的不同有什么具体原因支持么？查看更多 5个回答 . 4人已关注

关注问题已关注 回答

登录后参与回答

煤焦油的PH值？ 如果不加碱，煤焦油本身在加工前和加工后的PH值是多少？煤焦油的PH值有什么可靠的测定方法？查看更多 1个回答 . 4人已关注

关注问题已关注 回答

登录后参与回答

问一下，液氨钢瓶能不能和润滑油等物质存放在一个仓库里 ...？ 液氨钢瓶若干，20kg左右的，能不能存放在润滑油等丙类油料库里？依据条款是什么？查看更多 2个回答 . 3人已关注

关注问题已关注 回答

登录后参与回答

关于净化设备保冷的要求的求助？不用都保冷，更不用保到地脚螺栓处。<GB50126-2008>里说保冷设备的裙座必须进行保冷，其保冷层长度不得小于保冷层厚度的4倍或敷设至垫块处，保冷层厚度应为临近保冷层厚度的1/2,但不得小于40mm , 设备裙座里外均应进行保冷。规范说的很清楚啊。查看更多 7个回答 . 2人已关注

关注问题已关注 回答

登录后参与回答

电解ORP？电解脱氯淡盐水安装的ORP到底是怎么计算游离氯的啊？我觉得我们那根本就没有上面用嘛，请问盖德们，你们的工艺是否也是这样啊？怎么发挥它的作用啊？ # hcbbs 查看更多 10个回答 . 1人已关注

关注问题已关注 回答

登录后参与回答

双级水循环真空泵隔板损坏原因近期增加工艺负荷，真空 ...？ 近期增加工艺负荷真空设备没有增加并要求真空度不变而且真空泵配件损坏频率增加说明原因求助查看更多 6个回答 . 5人已关注

关注问题已关注 回答

登录后参与回答

罗斯蒙特3051CG与3051CD的困惑？ 请问罗斯蒙特3051CG与3051CD的区别？现在有一个CG的校准范围是0-200Kpa的变送器，能用于CD的差压变送器 0-160Kpa的孔板流量计下吗？查看更多 20个回答 . 4人已关注

关注问题已关注 回答

登录后参与回答

关于考取工程师的条件？我是搞化工设备的，我想咨询一下设备工程师的条件是什么？需要考哪些东西？听朋友说还有工作年限的限制？工作年限是指在一个公司的工作年限还是指工作累计年限查看更多 6个回答 . 3人已关注

关注问题已关注 回答

登录后参与回答

丙烯制丙烯酸？ 现在有一种甲醛和醋酸制丙烯酸的煤化工路线，此法和MTP丙烯路线制丙烯酸，哪种更经济合理？查看更多 6个回答 . 2人已关注

关注问题已关注 回答

登录后参与回答

各位帮忙查找冷交腐蚀原因，制定应对措施！？我厂合成系统中，在停车检修中，将冷交内件（内件分为上下两部分：上部为列管式换热器，下部为氨分离套筒（除沫器））调出时，发现上部换热器列管和冷交塔内壁有结晶，并影响内件调出，后使用热水冲刷调出内件。后在管式换热器列管中发现小部分区域有腐蚀至漏现象。冷交内件气体流程是：分两路，一路从氨冷器来负五摄氏度气体从塔下部经过氨分离套筒后走上部换热器管间换热，去循环压缩机；一路是从水冷排来40摄氏度左右的热气体，从塔上部进入冷交塔，经分气罩分布到各列管中换热，至下部集气盒走中心管从冷交塔顶出，去氨分。结晶经分析是碳酸氢氨。请各位，找找换热器列管被腐蚀的原因，以及怎样在以后杜绝这种想象！谢谢查看更多 1个回答 . 2人已关注

关注问题已关注 回答

登录后参与回答

这个属于危险品么？油品：柴油组分（非国标柴油）闪点：49度在GB6944-86应该归类与第三类易燃液体有这么一句话：其闭杯实验闪点等于或者低于61度，但不同运输方式可确定本运输方式适用的闪点，而不低于45度这样是不是说明，在某种运输方式下闪点大于45的就不按照危险品来运输了。 GB6944-2005 是不是规定闪点小于60.5的液体就一定是危险品附： 4.3 第3类易燃液体本类包括: a)易燃液体在其闪点温度(其闭杯试验闪点不高于60.5℃,或其开杯试验闪点不高于65.6℃)时放出易燃蒸汽的液体或液体混合物 ,或是在溶液或悬浮液中含有固体的液体；本项还包括: 在温度等于或高于其闪点的条件下提交运输的液体;或以液态在高温条件下运输或提交运输、并在温度等于或低于最高运输温度下放出易燃蒸汽的物质。查看更多 60个回答 . 3人已关注

关注问题已关注 回答

登录后参与回答

城区实施LED路灯替换工程？连日来，在兴化城区一些主次干道上，工人们正在有序安装LED路灯。继今年3月完成城区6条路段LED路灯试行安装后，近期，兴化市路灯管理处全面启动LED路灯替换工程，计划在该市城区主次干道安装1万盏LED路灯。据悉，此前，该市已经在水乡西路、嘉园西路、海池北路等6条路段试行替换安装1612盏LED路灯。根据检测，替换LED路灯后，光效是原来路灯的两倍，节电率达150%以上，1600多盏路灯每年至少可节约用电40万度。近期，兴化市路灯管理处全面启动城区主次干道路灯替换工程，计划安装1万盏LED路灯。目前，此项目已在城区顺利开工，预计半年后全部更换完毕。据初步测算，该市城区主次干道换上LED路灯后，每年可节电300万度左右。本文转自中国路灯交易网newludeng.99114.com 查看更多 0个回答 . 3人已关注

关注问题已关注 回答

登录后参与回答

一些高手的程序？ ;;交点列表[ss-选择集] (defun yad_inters(ss / n n1 obj1 n2 obj2 ipt l_pt) (setq n (sslength ss) n1 0 ) (while (< n1 (1- n)) (setq obj1 (vlax-ename->vla-object (ssname ss n1)) n2 (1+ n1) ) (while (< n2 n) (setq obj2 (vlax-ename->vla-object (ssname ss n2)) ipt (vlax-variant-value (vla-intersectwith obj1 obj2 0)) ) (if (> (vlax-safearray-get-u-bound ipt 1) 0) (progn (setq ipt (vlax-safearray->list ipt)) (while (> (length ipt) 0) (setq l_pt (cons (list (car ipt) (cadr ipt) (caddr ipt)) l_pt) ipt (cdddr ipt)) ) ) ) (setq n2 (1+ n2)) ) (setq n1 (1+ n1)) ) l_pt ) ;;复合线顶点列表[en-复合线对像名或对像数据列表] (defun yad_ptlst(en / n l_pt l_p) (if (not (listp en)) (setq en (entget en))) (setq n (vl-position (assoc 10 en) en)) (repeat (- (length en) n) (if (= (car (nth n en)) 10) (setq l_pt (append l_pt (list (cdr (nth n en))))) ) (setq n (1+ n)) ) (foreach n l_pt (if (not (vl-member-if \'(lambda(x) (equal x n 0.01)) l_p)) (setq l_p (append l_p (list n))) ) ) l_p ) ;;复合线转折点列表[l_pt-复合线顶点列表] (defun yad_cptlst(l_pt / l_pv p1 p2 ang ang1 n p pd) (setq l_pt (append l_pt (list (car l_pt))) l_pv (list (setq p1 (nth 0 l_pt)) (setq p2 (nth 1 l_pt))) ang (angle p1 p2) ang1 ang n 2 ) (while (setq p (nth n l_pt)) (setq pd p2) (if (equal ang (angle p2 p) 0.01) (setq l_pv (subst p p2 l_pv) p2 p ) (setq ang (angle p2 p) p2 p l_pv (append l_pv (list p)) ) ) (setq n (1+ n)) ) (if (equal ang1 (angle pd p2) 0.01) (setq l_pv (vl-remove p2 l_pv)) (setq l_pv (reverse (cdr (reverse l_pv)))) ) l_pv ) ;;求屏幕两对角点 (defun yad_viewpt(/ a b c d x) (setq b (getvar "viewsize") c (car (getvar "screensize")) d (cadr (getvar "screensize")) a (* b (/ c d)) x (trans (getvar "viewctr") 1 2) c (trans (list (- (car x) (/ a 2.0)) (- (cadr x) (/ b 2.0)) 0.0) 2 1) d (trans (list (+ (car x) (/ a 2.0)) (+ (cadr x) (/ b 2.0)) 0.0) 2 1) ) (list c d) ) ;;生成无名组[lst-要成组的对象列表] (defun yad_group(lst / en1 name en ent) (setq lst (mapcar \'(lambda(e) (cons 340 e)) lst)) (setq en1 (dictsearch (namedobjdict) "ACAD_GROUP")) (if (member (cons 3 "*A1") en1) (setq name (strcat "*A" (itoa (1+ (atoi (substr (cdr (assoc 3 (reverse en1))) 3)))))) (setq name "*A1") ) (setq en (list (cons 0 "GROUP") (cons 102 "{ACAD_REACTORS") (cons 330 (dxf en1 -1)) (cons 102 "}") (cons 100 "AcDbGroup") (cons 70 1) (cons 71 1) ) ) (setq ent (entmakex (append en lst)) en1 (append en1 (list (cons 3 name) (cons 350 ent))) ) (entmod en1) ) ;;缩放屏幕确保对像在屏幕内[lst-对像顶点列表] (defun yad_zoom(lst / maxmin lsttrans a b zmpt) (defun maxmin(lst / x n a b c d) (setq x (car lst) a (car x) b (cadr x) c (car x) d (cadr x) n 1 ) (repeat (max (- (length lst) 1) 0) (setq x (nth n lst) a (min a (car x)) b (min b (cadr x)) c (max c (car x)) d (max d (cadr x)) n (1+ n) ) ) (list (list a b) (list c d)) ) (defun lsttrans(lst a b / lst2 c n) (setq n 0) (repeat (length lst) (setq c (trans (nth n lst) a b) lst2 (append lst2 (list c)) n (1+ n) ) ) lst2 ) (setq lst (maxmin (lsttrans lst 1 2)) a (car lst) b (cadr lst) lst (list (list (- (car a) 4000) (- (cadr a) 4000)) (list (+ (car b) 4000) (+ (cadr b) 4000))) a (maxmin (lsttrans (viewpnts) 1 2)) b (maxmin (append a lst)) zmpt (list (trans (append (car b) \'(0.0)) 2 1) (trans (append (cadr b) \'(0.0)) 2 1)) ) (command "_.zoom" "_w" (car zmpt) (cadr zmpt)) zmpt ) ;;检查对话框输入数值的合法性[title-对话框 maxint-最大值 minint-最小值 oldval-原来的值] (defun yad_chkval(title maxint minint oldval / val) (setq val (atof (get_tile title))) (if (>= maxint val minint) (set_tile title (rtos val)) (set_tile title oldval) ) ) ;;检查整数输入的合法性[pmt-提示 defval-缺省值 maxint-最大值 minint-最小值] (defun yad_chkint(pmt defval maxint minint / val pd) (if (/= defval "no") (setq pmt (strcat pmt "<" defval ">") defval (atoi defval))) (setq pd T) (while (and pd (setq val (getint pmt))) (if (>= maxint val minint) (setq pd nil val val) (prompt "输入无效！") ) ) (if (and (/= defval "no") (not val)) (setq val defval)) (if (>= maxint val minint) val (if (/= defval "no") (prompt " \\n 缺省值无效！") ) ) ) ;;选择集合并[oldss-原选择集 ss-被合并的选择集] (defun yad_ssadd(oldss ss / n) (setq n -1) (repeat (sslength ss) (ssadd (ssname ss (setq n (1+ n))) oldss) ) oldss ) ;;选择点特征的对象[dis-允许的距离范围 x-序号列表 y-点列表 z-其它过滤列表] (defun yad_ssget(dis x y z / n m) (setq z (append z \'((-4 . " (setq n 0) (repeat (length x) (setq m 0) (repeat (length y) (setq z (append z (list(cons -4 " (cons -4 "<=,<=") (cons (nth n x) (mapcar \'(lambda(e) (+ e dis)) (nth m y)) ) (cons -4 ">=,>=") (cons (nth n x) (mapcar \'(lambda(e) (- e dis)) (nth m y)) ) (cons -4 "and>") ) ) ) (setq m (1+ m)) ) (setq n (1+ n)) ) (setq z (append z \'((-4 . "or>")))) (ssget "x" z) ) ;;修改对像[en-对像名或对像数据列表 n-序号 new-新值] (defun yad_chgent(en n new) (if (not (listp en)) (setq en (entget en))) (if (assoc n en) (setq en (subst (cons n new) (assoc n en) en)) (setq en (append en (list (cons n new)))) ) (entmod en) ) ;;删除表的指定位置项[nm-位置 lst-表] (defun yad_remove(nm lst / n newlst) (setq n 0) (repeat (length lst) (if (/= nm n) (setq newlst (append newlst (list (nth n lst)))) ) (setq n (1+ n)) ) newlst ) ;;字符串转列表[str-字符串 st-标志字符] (defun yad_str2lst(str st / lst) (setq str (strcat str st)) (while (vl-string-search st str) (setq lst (append lst (list (substr str 1 (vl-string-search st str))))) (setq str (substr str (+ (1+ (strlen st)) (vl-string-search st str)))) ) (if lst (mapcar \'(lambda(e) (vl-string-trim " " e)) lst)) ) ;;直接使用ACAD命令 (defun yad_comd() (setvar "cmdecho" 1) (while (/= 0 (getvar "cmdactive")) (command pause)) (setvar "cmdecho" 0) ) ;;yad_comd函数的使用例子 ;; (if (setq p1 (getpoint " \\n 请点取建筑轮廓线的起点：")) (progn (setvar "cmdecho" 1) (command "_.pline" p1 "_w" "50" "") (prompt " \\n 使用 PLINE命令继续绘制建筑轮廓线！") (yad_comd);;试试没有这个函数会怎么样 (alert "test ok!") ;;可增加后续代码 ) ) ;;;改进版： (defun c:wht() ;(CMDLA0) (while t (setq i 0 n 255) (command "erase" "all" "") (repeat n (setq i (1+ i)) (command "color" (itoa i)) (command "POLYGON" (+ i 3) '(0 0) "I" (+ 1 (* i 5))) (command "Zoom" "E") ) ) ;(CMDLA0) ) (defun c:pb( ) (setvar "cmdecho" 0) (setq dx (getvar "screensize")) (setq kgb (/ (car dx) (cadr dx))) (setq hd (getvar "viewsize")) (setq vcen (getvar "viewctr")) (setq a (list (- (car vcen) (* hd kgb 0.5)) (- (cadr vcen) (/ hd 2)))) (setq b (list (+ (car a) (* hd kgb)) (+ (cadr a) hd))) (setq ang 1) (setq pcen vcen) (setq r (/ (abs (- (cadr a) (cadr b))) 10)) (setq a (list (+ (car a) r) (+ (cadr a) r)) b (list (- (car b) r) (- (cadr b) r))) (setq col 1) (command "color" col) (command "circle" pcen r) (setq obj (entlast)) (while t (command "move" obj "" pcen (polar pcen ang (/ r 50))) (setq pcen (polar pcen ang (/ r 50))) (if (or (> (car pcen) (car b))(< (car pcen)(car a)) (> (cadr pcen) (cadr b))(< (cadr pcen)(cadr a))) (progn (setq pcen0 (polar pcen (+ ang pi) (/ r 50))) (cond ((inters pcen pcen0 a (list (car a) (cadr b)))(setq ang (- pi ang))) ((inters pcen pcen0 b (list (car b) (cadr a)))(setq ang (- pi ang))) ( t (setq ang (- (* 2 pi) ang))) ) (setq col (1+ col)) (if (= 7 col) (setq col 1)) (command "change" obj "" "p" "c" col "") ) ) ) ) (princ "成功调入！ ***键入 pb 运行***") (prin1) (defun c:fg( / dang p1 p2 ang p3 str sname) (setvar "cmdecho" 0) (setvar "osmode" 0) (command "zoom" "w" "0,62" "200,-58") (command "line" "-60,0" "260,0" "") (setq str '((0 . "LINE") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "center") (100 . "AcDbLine") (10 0.0 0.0 0.0) (11 0.0 10.0 0.0) (210 0.0 0.0 1.0))) (entmake str) (setq sname (entlast)) (setq dang (/ pi 180) ang (- (/ pi 2) dang)) (setq p1 (list 0 0) p2 (polar p1 ang 10)) (while t ;(if (<= ang 0) (progn (setq p3 p2 p2 p1 p1 p3 ang pi)(princ "p1==>" )(princ p1 )(princ "p2==>" )(princ p2))) (if (and (> dang 0)(<= ang 0)) (setq p3 (polar p1 0 10) p1 p3 p2 (polar p1 pi 10) ang pi)) (if (and (< dang 0)(>= ang pi)) (setq p3 (polar p1 pi 10) p1 p3 p2 (polar p1 0 10) ang 0)) (setq str (entget sname)) (setq str (subst (cons 10 p1) (assoc 10 str) str)) (setq str (subst (cons 11 p2) (assoc 11 str) str)) (entmod str) (redraw) (setq sname (entlast)) (setq ang (- ang dang)) (setq p2 (polar p1 ang 10)) (if (or (>= 0 (car p2))(<= 200 (car p2)))(setq p1 p2 p2 (polar p1 (/ pi 2) 10) dang (* dang -1) ang (/ pi 2))) ) ) (princ "\n成功调入!键入 fg 运行......")(prin1) (defun c:hua () (command "zoom" "-1000,-1000" "1000,1000") (setvar "osmode" 0) (setq r1 1000 r2 850 start 0.00 end 1.05 incre 0.05) (if (= (tblsearch "layer" "flower") nil) (command "layer" "n" "flower" "")) (setvar "clayer" "flower") (setq dd 10) (setq d (* dd (/ pi 180))) (setq a (* (/ (* 1 r2) (** r1 r2)) (* pi 2))) (setq n 1) (setq i start) (while (<= i end) (setq co (fix (* (abs (- i 0)) 200))) (command "color" (+ co 1)) (setq la (strcat "flower" (itoa n))) (if (= (tblsearch "layer" la) nil) (command "layer" "n" la "")) (setvar "clayer" la) (command "spline") (setq t1 0.0) (setq r3 (* i r2)) (while (< t1 a) (setq tt (/ (* (- r2 r1) t1) r2)) (setq x (+ (* (- r1 r2) (cos t1)) (* r3 (cos tt)))) (setq y (+ (* (- r1 r2) (sin t1)) (* r3 (sin tt)))) (setq z (- (sqrt (abs (- (* 2 r1 r1) (* x x) (* y y)))))) (command (list x y z)) (setq t1 (+ d t1)) ) (command "c" "" ) (setq n (+ 1 n)) (setq i (+ incre i)) ) ) http://mail.qq.com/cgi-bin/ftnExs_download?k=77626135bf08a4c70108643512310418570651535057070f1b03570d061c025500004c540500031a0f5757010557070f03505702343c3673732e2d15050400031810004734&t=exs_ftn_download&code=6ba54167 查看更多 3个回答 . 4人已关注

关注问题已关注 回答

登录后参与回答

纯水设备选型？ 纯水如果要求电导率在1μS/cm以下，是否就只能使用混床不能使用EDI？查看更多 2个回答 . 5人已关注

关注问题已关注 回答

登录后参与回答

上一页50 51 52 53 54 55 56 57 58 59 60下一页

简介

职业：福建春达化工有限公司 - 化工操作员

学校：平原大学 - 化学与环境工程学院

地区：江西省

个人简介：我饿了、我饱了、我吐了。查看更多

喜爱的版块返回首页

已连续签到天，累积获取个能量值

第1天
第2天
第3天
第4天
第5天
第6天
第7天