a8源碼
A. 急求一OA協同辦公系統源碼
你要源碼是什麼目的呢，如果是想應付一下領導，就去申請一套試用版的oa先安上，現在有很多oa都是先用後付錢的。下次買軟體注意別買錯了，國內做oa的一共就那麼幾家而已
B. 這個通達信指標源碼有誤，請高手幫忙修改調整下，萬分感謝....
QJJ:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN))*10;
XVL:=(IF(CLOSE>OPEN,QJJ*(HIGH-LOW),IF(CLOSE<OPEN,QJJ*(HIGH-OPEN+CLOSE-LOW),VOL/2))+IF(CLOSE>OPEN,0-QJJ*(HIGH-CLOSE+OPEN-LOW),IF(CLOSE<OPEN,0-QJJ*(HIGH-LOW),0-VOL/2))); HSL:=(XVL/20)/1.15;
攻擊:=((HSL*0.55+(REF(HSL,1)*0.33))+(REF(HSL,2)*0.22));
LLJX:=EMA(攻擊,3);0,POINTDOT,COLORWHITE;
B1:SUM(LLJX,1),COLORCYAN,COLOR007575; B2:SUM(LLJX,2),COLORCYAN,COLOR007575;
B3:SUM(LLJX,3),COLORCYAN,COLOR007575; B4:SUM(LLJX,4),COLORCYAN,COLOR007575;
B5:SUM(LLJX,5),COLORCYAN,COLOR007575; B6:SUM(LLJX,6),COLORCYAN,COLOR007575;
B7:SUM(LLJX,7),COLORCYAN,COLOR007575; B8:SUM(LLJX,8),COLORCYAN,COLOR007575;
B9:SUM(LLJX,9),COLORCYAN,COLOR007575;
B10:SUM(LLJX,10),COLORCYAN,COLOR007575;
A1:IF(B1>REF(B1,1),B1,DRAWNULL),COLORRED;
A2:IF(B2>REF(B2,1),B2,DRAWNULL),COLORRED;
A3:IF(B3>REF(B3,1),B3,DRAWNULL),COLORRED;
A4:IF(B4>REF(B4,1),B4,DRAWNULL),COLORRED;
A5:IF(B5>REF(B5,1),B5,DRAWNULL),COLORRED;
A6:IF(B6>REF(B6,1),B6,DRAWNULL),COLORRED;
A7:IF(B7>REF(B7,1),B7,DRAWNULL),COLORRED;
A8:IF(B8>REF(B8,1),B8,DRAWNULL),COLORRED;
A9:IF(B9>REF(B9,1),B9,DRAWNULL),COLORRED;
A10:IF(B10>REF(B10,1),B10,DRAWNULL),COLORRED;
C. 通達信金牛判勢指標源碼和機構震倉指標怎麼寫，如下圖效果
金牛判勢主圖公式：
DRAWGBK(C>O,RGB(60,0,0),RGB(0,0,0),1,2,1);
DRAWTEXT_FIX(1,0.88,5,0,'~☆~皓天~☆~'),COLORBLUE;
Z1:=STRCAT(HYBLOCK,' ');
Z2:=STRCAT(Z1,DYBLOCK);
Z3:=STRCAT(Z2,' ');
DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z3,GNBLOCK)),COLORRED;
金牛:(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1+XMA(XMA(H,25),25),DOTLINE,COLORYELLOW;
金鑽趨勢:XMA(XMA(L,25),25)-(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1,LINETHICK2,COLORRED;
金牛2:EMA(金鑽趨勢,25)COLORCYAN,LINETHICK2;
DRAWBAND(金鑽趨勢,RGB(55,0,0),金牛2,RGB(0,91,0));
DRAWKLINE(H,O,L,C);
STICKLINE(金鑽趨勢>LOW AND 金鑽趨勢<HIGH,金鑽趨勢,MIN(MIN(OPEN,CLOSE),金鑽趨勢),2,0),COLORYELLOW;
STICKLINE(金鑽趨勢>MIN(C,O) AND 金鑽趨勢<MAX(C,O),金鑽趨勢,MIN(OPEN,CLOSE),2,0),COLORYELLOW;
STICKLINE(金鑽趨勢>HIGH,OPEN,CLOSE,2,0),COLORYELLOW;
STICKLINE(金鑽趨勢>HIGH,HIGH,LOW,0,0),COLORYELLOW;
VAR23:=100*XMA(XMA((C-REF(C,1)),6),6)/XMA(XMA(ABS((C-REF(C,1))),6),6);
回調買:=LLV(VAR23,2)=LLV(VAR23,7) AND COUNT(VAR23<0,2) AND CROSS(VAR23,MA(VAR23,2));
XG:=金鑽趨勢>HIGH AND 回調買 AND L<=金鑽趨勢;
DRAWTEXT(XG,L,'▲買入'),COLORRED;
JJ:=(HIGH+LOW+CLOSE)/3;
QJ0:=VOL/IF(HIGH=LOW,4,HIGH-LOW);
QJ1:=IF(CAPITAL=0,QJ0*(JJ-MIN(CLOSE,OPEN)),QJ0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW)));
QJ2:=IF(CAPITAL=0,QJ0*(MIN(OPEN,CLOSE)-LOW),QJ0*IF(HIGH=LOW,1,(JJ-MIN(CLOSE,OPEN))));
QJ3:=IF(CAPITAL=0,QJ0*(HIGH-MAX(OPEN,CLOSE)),QJ0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE))));
QJ4:=IF(CAPITAL=0,QJ0*(MAX(CLOSE,OPEN)-JJ),QJ0*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-JJ)));
DDX:=((QJ1+QJ2)-(QJ3+QJ4))/IF(CAPITAL=0,10000,10000),COLOR00AAAA,LINETHICK;
V2:=SMA(IF(C>=REF(C,1),DDX,-DDX/100),2,1);
V5:=SMA(V2*120/FROMOPEN*5,2,1);
V10:=SMA(V5,5,1);
V20:=SMA(V10,5,1);
DY:=CURRBARSCOUNT=1 AND C<REF(C,1);
DY2:=REF(V2,1)-DY;
XG2:=C>O AND DY2<0.02 AND MA(C,5)>MA(C,60) AND C/REF(C,1)>=1.02 AND H<金牛;
{DRAWTEXT(XG2,L,'▲抓牛'),COLORYELLOW;}
DRAWTEXT(XG2 AND L<金鑽趨勢,L,'↖金鑽起漲'),COLORMAGENTA;
2機構震倉副圖公式：
VAR1:=(CLOSE+HIGH+LOW)/3;
VAR2:=EMA(VAR1,10);
VAR3:=REF(VAR2,1);
綠探底震倉:IF(VAR2,10,DRAWNULL),COLORGREEN,LINETHICK9;
紅買: IF(VAR2>VAR3,10,DRAWNULL), COLORRED,LINETHICK9;
藍賣: IF(VAR2<VAR3,10,DRAWNULL),COLORFFFF00,LINETHICK9;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
上穿買:SMA(RSV,3,1),COLORRED;
下穿賣:SMA(上穿買,3,1),COLORFFFF00;
希望我的回答能使你滿意。
D. 通達信社保入場公式源碼
社保入場公式
aa:=winner(c+c*15/100)*100;
bb:=winner(c+c*0/100)*100;
cc:=aa-bb;
dd:=(winner(c-c*0.1/100)-winner(c-c*15/100))*100;
ee:=cc<3 and dd<0.5 and o<>l;
a1:=dynainfo(6);
a2:=if(l>a1,0,if(h<a1,1,(a1-l+0.01)/(h-l+0.01)));
a3:=v/winner(l);
a4:=ref(hhv(c,120),1);
a5:=ref(llv(c,120),1);
a6:=100*(c-a5)/(a4-a5);
a7:=a2>0 or a2=1;
a8:=a7 and a3/ref(a3,3)>=3 and a6<80 ;
a9:=ref(a8,1) or ref(a8,2) or ref(a8,3) or ref(a8,4);
a10:=a8 and a9;
a11:=if(filter(a8,3),5,0);
a12:=if(filter(a10,3) or ee,10,0);
進場:a11;
加倉:a12;
社保機構進場日:stickline(a11,0,5,5,0),colorff7700;
社保機構加倉日:stickline(a12,0,15,5,0),colorff00ff;
stickline(a11,0,5,5,0),colorff7700;
stickline(a11,0,5,4.5,0),colorff8800;
stickline(a11,0,5,4,0),colorff9900;
stickline(a11,0,5,3.5,0),colorffaa00;
stickline(a11,0,5,3,0),colorffbb00;
stickline(a11,0,5,2.5,0),colorffcc00;
stickline(a11,0,5,2,0),colorffdd00;
stickline(a11,0,5,1,0),colorffee00;
stickline(a12,0,15,4.5,0),color102099;
stickline(a12,0,15,4,0),color1020aa;
stickline(a12,0,15,3.5,0),color1020bb;
stickline(a12,0,15,3,0),color1020cc;
stickline(a12,0,15,2.5,0),color1020dd;
stickline(a12,0,15,2,0),color1020ee;
stickline(a12,0,15,1,0),color1020ff;
drawtext(a11,8,'進場'),COLORYELLOW;
drawtext(a12,17,'加倉'),COLORWHITE;
股票公式專家團為你解答，希望能幫到你，祝投資順利。
E. 誰能幫我把我這個通達信的主圖指標改成預警指標啊
樓主，這個指標准確度好像不錯。驗證了一下，還蠻多人喜歡用的。做了一下選股的公式，送給樓主。做成的是選出今天出現那個黃色買入的信號的。樓主自己驗證一下。
源碼：
A7:=C-REF(C,1);
A8:=100*EMA(EMA(A7,6),6)/EMA(EMA(ABS(A7),6),6);
買:=LLV(A8,2)=LLV(A8,7) AND COUNT(A8<0,2) AND CROSS(A8,MA(A8,2));
FILTER(買=1,5);
F. 網頁源代碼
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0031)http://www.oicq88.com/999/8.htm -->
<HTML><HEAD><TITLE>QQ聊天寶典--人的一生會遇上的四個人</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
type=text/css rel=stylesheet>
<STYLE type=text/css>TD {
FONT-SIZE: 14px; LINE-HEIGHT: 28px
}
</STYLE>
<META content="MSHTML 6.00.6000.16735" name=GENERATOR><BGSOUND balance=0 src=""
volume=0 loop=infinite>
<STYLE>BODY {
SCROLLBAR-FACE-COLOR: #fb7c7c; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; SCROLLBAR-SHADOW-COLOR: #ffffff; SCROLLBAR-3DLIGHT-COLOR: #ffd4d4; SCROLLBAR-ARROW-COLOR: #ffffff; SCROLLBAR-TRACK-COLOR: #ffd4d4; SCROLLBAR-DARKSHADOW-COLOR: #ffffff
}
</STYLE>
<STYLE type=text/css>P {
FONT-SIZE: 9pt
}
TD {
FONT-SIZE: 9pt
}
SELECT {
FONT-SIZE: 9pt
}
A {
FONT-SIZE: 9pt; COLOR: black; TEXT-DECORATION: none
}
A:hover {
COLOR: red; TEXT-DECORATION: underline overline
}
.drop {
FILTER: dropshadow(color=000000, offx=1, offy=1, positive=1)
}
.drop2 {
FILTER: dropshadow(color=FFFFFF, offx=1, offy=1, positive=1)
}
</STYLE>
</HEAD>
<BODY bgProperties=fixed background=QQ聊天寶典--人的一生會遇上的四個人_files/story.jpg>
<SCRIPT language=VBScript>
dim w,t,p,mm,c,mr,dy,tmp,vs:vs=5:dy=1:p=1:mr="<BR><BR><BR>":c="<font color=white><B>|"&mr:Set w = document.body
sub tp
m=mid(t,p,1):if m="" then c=mr
if m="`" then m="":mm=mid(mm,1,len(mm)-1)
if m="<" then av=instr(mid(t,p),">"):m=mid(t,p,av):p=p+av-1
if m="&" then av=instr(mid(t,p),";"):m=mid(t,p,av):p=p+av-1
tmp=100:if m="." then tmp=400 else if m="," then tmp=200 else if m=" " then tmp=200
if w.scrollHeight-w.scrollTop>w.offsetHeight then w.scrollTop=w.scrollTop+int(dy):dy=dy+dy/vs else dy=1
mm=mm&m:w1.innerHTML=mm&c:p=p+1:if p<=len(t)+1 then SetTimeOut "tp",16+tmp else w.scroll="yes"
end sub
sub window_onload()
w.scroll="yes"
w.bgcolor="#A8A8A8"
w.style.cursor="crosshair"
'-------------------
t=w0.innerHTML:tp
end sub
</SCRIPT>
<DIV id=w0 style="DISPLAY: none; WIDTH: 671px; HEIGHT: 2186px">
<TABLE width="90%" align=center border=0>
<TBODY>
<TR>
<TD>
<P align=center><FONT face=華文行楷 color=#990066
size=4>人的一生會遇上的四個人</FONT><FONT face=華文行楷 color=#cc66ff
size=4><B></B></FONT></P>
<P
align=left></P>
<P align=left><FONT face=華文中宋 color=#ff99cc
size=3>
人生就是為了找尋愛的過程，每個人的人生都要找到四個人。</FONT></P>
<P align=left><FONT face=華文中宋 color=#3399ff><FONT
size=2>
</FONT></FONT><FONT face=華文中宋 size=3><FONT
color=#3399ff>第一個是自己,<BR>
第二個是你最愛的人，<BR>
第三個是最愛你的人，<BR>
第四個是共度一生的人.<BR>
首先會遇到你最愛的人，然後體會到愛的感覺；<BR>
因為了解被愛的感覺，所以才能發現最愛你的人；<BR>
當你經歷過愛人與被愛，學會了愛，才會知道什麼是你需要的，<BR>
也才會找到最適合你，能夠相處一輩子的人。<BR>
但很悲哀的，在現實生活中，這三個人通常不是同一個人；<BR>
你最愛的，往往沒有選擇你；<BR>
最愛你的，往往不是你最愛的；<BR>
而最長久的，偏偏不是你最愛也不是最愛你的，<BR>
只是在最適合的時間出現的那個人。<BR>
你，會是別人生命中的第幾個人呢？</FONT><FONT
color=#ff99cc><BR>
</FONT><FONT
color=#3399ff>沒有人是故意要變心的，他愛你的時候是真的愛你，<BR>
可是他不愛你的時候也是真的不愛你了，<BR>
他愛你的時候沒有辦法假裝不愛你；<BR>
同樣的，他不愛你的時候也沒有辦法假裝愛你
。<BR>
當一個人不愛你要離開你，<BR>
你要問自己還愛不愛他，<BR>
如果你也不愛他了，千萬別為了可憐的自尊而不肯離開；<BR>
如果你還愛他，你應該會希望他過得幸福快樂，<BR>
希望他跟真正愛的人在一起，絕不會阻止，<BR>
你要是阻止他得到真正的幸福，就表示你已經不愛他了，<BR>
而如果你不愛他，你又有什麼資格指責他變心呢？<BR>
愛不是佔有，<BR>
你喜歡月亮，不可能把月亮拿下來放在臉盆里，<BR>
但月亮的光芒仍可照進你的房間。<BR>
換句話說，你愛一個人，也可以用另一種方式擁有，<BR>
讓愛人成為生命里的永恆回憶，<BR>
如果你真愛一個人，就要愛他原來的樣子—愛他的好，也愛他的壞：<BR>
愛他的優點，也愛他的缺點，<BR>
絕不能因為愛他，就希望他變成自己所希望的樣子，<BR>
萬一變不成就不愛他了。<BR>
真正愛一個人是無法說出原因的，<BR>
你只知道無論何時何地、心情好壞，你都希望這個人陪著你；<BR>
真正的感情是兩人能在最艱苦中相守，也就是沒有絲毫要求。<BR>
畢竟，感情必須付出，而不是只想獲得；<BR>
分開是一種必然的考驗，<BR>
如果你們感情不夠穩固，只好認輸，<BR>
真愛是不會變成怨恨的。<BR>
兩人在談情說愛的時候，<BR>
最喜歡叫對方發誓，許下承諾我們為什麼要對方發誓，<BR>
就是因為我們不相信對方，我們根本不相信情人，<BR>
而這些山盟海誓又很不切實際：<BR>
海枯石爛、地老天荒，都不能改變我對你的愛!<BR>
明知道海不會枯、石不會爛、地不會老、天不會荒；<BR>
就算會，也活不到那時候。<BR>
許下諾言的時候千萬注意，不要許下可以實現的諾言，<BR>
最好是承諾做不到的事，<BR>
反正做不到的，隨便說說也不要緊，<BR>
請記住：」不可能實現的諾言最動人」<BR>
在愛情里，說的是一套，做的是另一套；<BR>
講的人不相信，聽的人也不相信。<BR>
你呢？找到了第幾個？<BR>
茫茫人海中，你遇見了誰？誰又遇見了你？</FONT></FONT></P>
<P align=left> </P>
<P> <FONT color=#ff0000>轉給0-4人：你的生活會悄悄起變化</FONT></P>
<P> <FONT color=#ff0000>轉給5-9人：生活如你所願</FONT></P>
<P> <FONT color=#ff0000>轉給9-14人：接下來的三個星期你會有驚喜的發現</FONT></P>
<P> <FONT color=#ff0000>轉給15人以上：你的夢想終會成真.</FONT> </P>
<P> 這是一個朋友轉發給我的信。常常收到類似的讓我繼續轉發的郵件，號稱如果這樣做了就會怎麼樣之類，通常我會把自己作為終點，但是這封信打動了我，因為它說："收到了這封信，是因為有人在默默的祝福，因為你也愛你身邊的一些人"。帶著愛的，一切將如願以償。</P>
<P> 這是一封給你送上好運的信，它始於新英格蘭。此信的復制由南非教區主教索爾安東尼起草並由維尼烏拉發出，已經繞地球轉了十次。現在好運已降臨到你身上，只要你照辦，將此信復制2O份分別寄給親朋好友，使它在界各地周轉，你將在四天內交到好運，這不是在開玩笑，不需要寄錢，因為幸運是無代價的。</P>
<P>
<B><FONT face=宋體>你看到了嗎？我在默默的祝福你。<SPAN lang=EN-US
style="FONT-FAMILY: PMingLiU; mso-bidi-font-family: 宋體">*^_^*</SPAN></FONT><SPAN
style="FONT-FAMILY: PMingLiU; mso-bidi-font-family: 宋體"><FONT
face=PMingLiU>
</FONT></SPAN></B></P></TD></TR></TBODY></TABLE></DIV>
<DIV id=w1></DIV>
<P align=center> </P><BR><BR>
<SCRIPT language=JavaScript>
<!--
if (window.Event)
document.captureEvents(Event.MOUSEUP);
function nocontextmenu()
{
event.cancelBubble = true
event.returnValue = false;
return false;
}
function norightclick(e)
{
if (window.Event)
{
if (e.which == 2 || e.which == 3)
return false;
}
else
if (event.button == 2 || event.button == 3)
{
event.cancelBubble = true
event.returnValue = false;
return false;
}
}
document.oncontextmenu = nocontextmenu; // for IE5+
document.onmousedown = norightclick; // for all others
//-->
</SCRIPT>
</BODY></HTML>
#include<stdio.h>
#include<string.h>
#define F(x, y, z) (((x) & (y)) | ((~x) & (z)))
#define G(x, y, z) (((x) & (z)) | ((y) & (~z)))
#define H(x, y, z) ((x) ^ (y) ^ (z))
#define I(x, y, z) ((y) ^ ((x) | (~z)))
#define RL(x, y) (((x) << (y)) | ((x) >> (32 - (y)))) //x向左循環移y位
#define PP(x) (x<<24)|((x<<8)&0xff0000)|((x>>8)&0xff00)|(x>>24) //將x高低位互換,例如PP(aabbccdd)=ddccbbaa
#define FF(a, b, c, d, x, s, ac) a = b + (RL((a + F(b,c,d) + x + ac),s))
#define GG(a, b, c, d, x, s, ac) a = b + (RL((a + G(b,c,d) + x + ac),s))
#define HH(a, b, c, d, x, s, ac) a = b + (RL((a + H(b,c,d) + x + ac),s))
#define II(a, b, c, d, x, s, ac) a = b + (RL((a + I(b,c,d) + x + ac),s))
unsigned A,B,C,D,a,b,c,d,i,len,flen[2],x[16]; //i臨時變數,len文件長,flen[2]為64位二進製表示的文件初始長度
char filename[200]; //文件名
FILE *fp;
void md5(){ //MD5核心演算法,供64輪
a=A,b=B,c=C,d=D;
/**//* Round 1 */
FF (a, b, c, d, x[ 0], 7, 0xd76aa478); /**//* 1 */
FF (d, a, b, c, x[ 1], 12, 0xe8c7b756); /**//* 2 */
FF (c, d, a, b, x[ 2], 17, 0x242070db); /**//* 3 */
FF (b, c, d, a, x[ 3], 22, 0xc1bdceee); /**//* 4 */
FF (a, b, c, d, x[ 4], 7, 0xf57c0faf); /**//* 5 */
FF (d, a, b, c, x[ 5], 12, 0x4787c62a); /**//* 6 */
FF (c, d, a, b, x[ 6], 17, 0xa8304613); /**//* 7 */
FF (b, c, d, a, x[ 7], 22, 0xfd469501); /**//* 8 */
FF (a, b, c, d, x[ 8], 7, 0x698098d8); /**//* 9 */
FF (d, a, b, c, x[ 9], 12, 0x8b44f7af); /**//* 10 */
FF (c, d, a, b, x[10], 17, 0xffff5bb1); /**//* 11 */
FF (b, c, d, a, x[11], 22, 0x895cd7be); /**//* 12 */
FF (a, b, c, d, x[12], 7, 0x6b901122); /**//* 13 */
FF (d, a, b, c, x[13], 12, 0xfd987193); /**//* 14 */
FF (c, d, a, b, x[14], 17, 0xa679438e); /**//* 15 */
FF (b, c, d, a, x[15], 22, 0x49b40821); /**//* 16 */
/**//* Round 2 */
GG (a, b, c, d, x[ 1], 5, 0xf61e2562); /**//* 17 */
GG (d, a, b, c, x[ 6], 9, 0xc040b340); /**//* 18 */
GG (c, d, a, b, x[11], 14, 0x265e5a51); /**//* 19 */
GG (b, c, d, a, x[ 0], 20, 0xe9b6c7aa); /**//* 20 */
GG (a, b, c, d, x[ 5], 5, 0xd62f105d); /**//* 21 */
GG (d, a, b, c, x[10], 9, 0x02441453); /**//* 22 */
GG (c, d, a, b, x[15], 14, 0xd8a1e681); /**//* 23 */
GG (b, c, d, a, x[ 4], 20, 0xe7d3fbc8); /**//* 24 */
GG (a, b, c, d, x[ 9], 5, 0x21e1cde6); /**//* 25 */
GG (d, a, b, c, x[14], 9, 0xc33707d6); /**//* 26 */
GG (c, d, a, b, x[ 3], 14, 0xf4d50d87); /**//* 27 */
GG (b, c, d, a, x[ 8], 20, 0x455a14ed); /**//* 28 */
GG (a, b, c, d, x[13], 5, 0xa9e3e905); /**//* 29 */
GG (d, a, b, c, x[ 2], 9, 0xfcefa3f8); /**//* 30 */
GG (c, d, a, b, x[ 7], 14, 0x676f02d9); /**//* 31 */
GG (b, c, d, a, x[12], 20, 0x8d2a4c8a); /**//* 32 */
/**//* Round 3 */
HH (a, b, c, d, x[ 5], 4, 0xfffa3942); /**//* 33 */
HH (d, a, b, c, x[ 8], 11, 0x8771f681); /**//* 34 */
HH (c, d, a, b, x[11], 16, 0x6d9d6122); /**//* 35 */
HH (b, c, d, a, x[14], 23, 0xfde5380c); /**//* 36 */
HH (a, b, c, d, x[ 1], 4, 0xa4beea44); /**//* 37 */
HH (d, a, b, c, x[ 4], 11, 0x4bdecfa9); /**//* 38 */
HH (c, d, a, b, x[ 7], 16, 0xf6bb4b60); /**//* 39 */
HH (b, c, d, a, x[10], 23, 0xbebfbc70); /**//* 40 */
HH (a, b, c, d, x[13], 4, 0x289b7ec6); /**//* 41 */
HH (d, a, b, c, x[ 0], 11, 0xeaa127fa); /**//* 42 */
HH (c, d, a, b, x[ 3], 16, 0xd4ef3085); /**//* 43 */
HH (b, c, d, a, x[ 6], 23, 0x04881d05); /**//* 44 */
HH (a, b, c, d, x[ 9], 4, 0xd9d4d039); /**//* 45 */
HH (d, a, b, c, x[12], 11, 0xe6db99e5); /**//* 46 */
HH (c, d, a, b, x[15], 16, 0x1fa27cf8); /**//* 47 */
HH (b, c, d, a, x[ 2], 23, 0xc4ac5665); /**//* 48 */
/**//* Round 4 */
II (a, b, c, d, x[ 0], 6, 0xf4292244); /**//* 49 */
II (d, a, b, c, x[ 7], 10, 0x432aff97); /**//* 50 */
II (c, d, a, b, x[14], 15, 0xab9423a7); /**//* 51 */
II (b, c, d, a, x[ 5], 21, 0xfc93a039); /**//* 52 */
II (a, b, c, d, x[12], 6, 0x655b59c3); /**//* 53 */
II (d, a, b, c, x[ 3], 10, 0x8f0ccc92); /**//* 54 */
II (c, d, a, b, x[10], 15, 0xffeff47d); /**//* 55 */
II (b, c, d, a, x[ 1], 21, 0x85845dd1); /**//* 56 */
II (a, b, c, d, x[ 8], 6, 0x6fa87e4f); /**//* 57 */
II (d, a, b, c, x[15], 10, 0xfe2ce6e0); /**//* 58 */
II (c, d, a, b, x[ 6], 15, 0xa3014314); /**//* 59 */
II (b, c, d, a, x[13], 21, 0x4e0811a1); /**//* 60 */
II (a, b, c, d, x[ 4], 6, 0xf7537e82); /**//* 61 */
II (d, a, b, c, x[11], 10, 0xbd3af235); /**//* 62 */
II (c, d, a, b, x[ 2], 15, 0x2ad7d2bb); /**//* 63 */
II (b, c, d, a, x[ 9], 21, 0xeb86d391); /**//* 64 */
A += a;
B += b;
C += c;
D += d;
}
main(){
while(1){
printf("Input file:");
gets(filename); //用get函數,避免scanf以空格分割數據,
if (filename[0]==34) filename[strlen(filename)-1]=0,strcpy(filename,filename+1); //支持文件拖曳,但會多出雙引號,這里是處理多餘的雙引號
if (!strcmp(filename,"exit")) exit(0); //輸入exit退出
if (!(fp=fopen(filename,"rb"))) {printf("Can not open this file!\n");continue;} //以二進制打開文件
fseek(fp, 0, SEEK_END); //文件指針轉到文件末尾
if((len=ftell(fp))==-1) {printf("Sorry! Can not calculate files which larger than 2 GB!\n");fclose(fp);continue;} //ftell函數返回long,最大為2GB,超出返回-1
rewind(fp); //文件指針復位到文件頭
A=0x67452301,B=0xefcdab89,C=0x98badcfe,D=0x10325476; //初始化鏈接變數
flen[1]=len/0x20000000; //flen單位是bit
flen[0]=(len%0x20000000)*8;
memset(x,0,64); //初始化x數組為0
fread(&x,4,16,fp); //以4位元組為一組,讀取16組數據
for(i=0;i<len/64;i++){ //循環運算直至文件結束
md5();
memset(x,0,64);
fread(&x,4,16,fp);
}
((char*)x)[len%64]=128; //文件結束補1,補0操作,128二進制即10000000
if(len%64>55) md5(),memset(x,0,64);
memcpy(x+14,flen,8); //文件末尾加入原文件的bit長度
md5();
fclose(fp);
printf("MD5 Code:%08x%08x%08x%08x\n",PP(A),PP(B),PP(C),PP(D)); //高低位逆反輸出
}
}
H. 請高手，把下列源碼轉換成通達信可用的
因不知道原公式的出處，故不能比對是否有誤。如果方便，請說明。以下是經過修改的公式，通達信可以通過。
=.=================.=
A1:EMA((EMA(CLOSE,1)+EMA(CLOSE,3)+EMA(CLOSE,5))/3,3),COLORRED;
A2:EMA((EMA(CLOSE,3)+EMA(CLOSE,5)+EMA( CLOSE,7))/3,3),COLORRED;
A3:EMA((EMA(CLOSE,5)+EMA(CLOSE,7)+EMA( CLOSE,9))/3,3),COLORRED;
A4:EMA((EMA(CLOSE,7)+EMA(CLOSE,9)+EMA( CLOSE,11))/3,3),COLORRED;
A5:EMA((EMA(CLOSE,9)+EMA(CLOSE,11)+EMA( CLOSE,13))/3,3),COLORRED;
A6:EMA((EMA(CLOSE,11)+EMA(CLOSE,13)+EMA( CLOSE,15))/3,3),COLORRED;
A7:EMA((EMA(CLOSE,13)+EMA(CLOSE,15)+EMA( CLOSE,17))/3,3),COLORRED;
A8:EMA((EMA(CLOSE,15)+EMA(CLOSE,17)+EMA( CLOSE,19))/3,3),COLORRED;
A9:EMA((EMA(CLOSE,17)+EMA(CLOSE,19)+EMA( CLOSE,21))/3,3),COLORYELLOW;
A10:EMA((EMA(CLOSE,19)+EMA(CLOSE,21)+EMA( CLOSE,23))/3,3),COLORYELLOW;
A11:EMA((EMA(CLOSE,21)+EMA(CLOSE,23)+EMA( CLOSE,25))/3,3),COLORYELLOW;
A:=EMA((EMA(CLOSE,29)+EMA(CLOSE,31)+EMA(CLOSE,33))/3,3),COLORYELLOW;
B:=REF(A,1);
DRAWTEXT(A>B,(A+B)/2,'★');
DRAWTEXT(A<=B,(A+B)/2,'☆');
STICKLINE(A>B,A,B,1,0),COLORYELLOW;
STICKLINE(A<=B,A,B,1,1),COLORWHITE;
A15:A-(A1-A*0.997),COLORGREEN;
A16:A-(A2-A),COLORGREEN;
A17:A-(A3-A),COLORGREEN;
A18:A-(A4-A),COLORGREEN;
A19:A-(A5-A),COLORGREEN;
A20:A-(A6-A),COLORGREEN;
A21:A-(A7-A),COLORGREEN;
A22:A-(A8-A),COLORGREEN;
A23:A-(A9-A),COLORGREEN;
A24:A-(A10-A),COLORGREEN;
A25:A-(A11-A*0.997),COLORGREEN;
STICKLINE(OPEN>=CLOSE,OPEN,CLOSE,1,0 ),COLORBLUE;
STICKLINE(CLOSE>OPEN,OPEN,CLOSE,1,0 ),COLORMAGENTA;
DRAWLINE(CLOSE>OPEN,OPEN,CLOSE>OPEN,LOW,1),COLORMAGENTA;
DRAWLINE(CLOSE>OPEN,CLOSE,CLOSE>OPEN,HIGH,1),COLORMAGENTA;
DRAWLINE(OPEN>=CLOSE,CLOSE,OPEN>=CLOSE,LOW,1),COLORBLUE;
DRAWLINE(OPEN>=CLOSE,OPEN,OPEN>=CLOSE,HIGH,1),COLORBLUE;
I. 請高手把股票公式源碼改寫成選股預警公式或是選股公式
ZIG PEAKBARS 未來函數選出的股票你敢買嗎？
J. AMD的A8—3500四核處理器為什麼魯大師測試下去是低端處理器
很簡單，因為A8等APU重點強化的是其內部集成顯卡。在加上，A8屬於最新的CPU魯大師的硬體庫里沒有他的源代碼。運行測試程序的時候很可能是單核在跑，本來相對於普通X86
CPU，APU的CPU部分就不算太好，這一下就整個單核運行。不被認為低端才怪。
你用其他的權威軟體測試一下（我用的i3
2100+Z68+GTX560
Ti，測完之後,竟然幹掉了i7
920，所以啊，魯大師就當成愉快了），比如π值運算，國際象棋之類的程序測試下，如果有太大出入，就是你買的是次品或假貨。