我正在开发一个分析工具,我需要MUMPS示例代码。有没有人能给我提供MUMPS的实时代码或示例代码?也建议一些相同的链接。
发布于 2011-06-16 06:14:42
这是我写的一些流行性喉炎,只是为了好玩。我猜如果你能分析这一点,你的工具就可以工作了:
Q N R,Q,C,D,E,W,B,G,H,S,T,U,V,F,L,P,N,J,A S N=$G(N),Q='N,F=Q+Q,P=F+F,W=$L($T(Q))
S W=$E(W,Q),S='N_+N,W=W-F*S,L=$G(L),R=$C(Q_F_P),R(F)=$C(F+Q_F),R(P)=$C(W-F) W #
S T=$E($T(Q+F),F,W\S)_$C(W+S+F) X T S B=$P(T,$C(P_P),F),C=B\(W*W),D=B-(C*W*W)\W
F G=S-Q:F:S+F+Q S E=B-(C*W*W+(D*W)),H=$E($T(Q),G),@H=$S(@H<S:'Q,Q:N)_@H,T=C_D_E
F A=Q:Q:W\S S J=$E(T,A),C(F)=$S(J>(F+Q)&(J<(S-F)):Q,Q:+N),C(P)=$S(J#F:Q,Q:+N) D
.S C(Q)=$S(J<(S-F):+N,Q:Q),C(F+Q)=$S(J>Q&(J<(S-F))&(J'=(P+'L))&(J'=(P)):Q,Q:+N)
.S H('L)=L F S H(N?.E)=$O(C(H('$G(N)))) Q:H('+L)=L S F(A,H('L))=C(H(W[(W\S)))
F U=Q:Q:P W !,R F V=Q:Q:P+F W $S(F(V,U):'Q,Q:$C(P_(W\S))) W:'(V#F) $C('N_F_F+F)
W !!,R(F)_C_R(P)_D_R(P)_E_R(F) X $RE($E($T(Q),Q+F,P+Q))_R(P)_'N W # G:N=L Q+F Q听着,妈,不要字面意思!
这将输出一个二进制时钟:
:D Q^ROU
|..|..|..|
|..|..|.0|
|..|.0|0.|
|..|00|..|
00:13:24发布于 2012-08-31 01:29:21
GitHub实际上托管了许多MUMPS软件,但不幸的是它被标记为Objective-C或Matlab语言,因此在那里搜索MUMPS代码并不容易。以下是我知道的一些项目,至少部分是使用MUMPS完成的:
发布于 2010-11-12 08:37:51
我认为所有这些都不足以用于分析目的,但在M[UMPS] by Example上有很多小示例。在MUMPS Wikipedia页面上也有一些很长的示例。我不知道他们是不是独立的。我自己还没有测试过。
https://stackoverflow.com/questions/4151554
复制相似问题