1.咱不是编程高手，相反，这次是第一次用VB写程序，仅仅是因为蛋疼，SO，，你懂的
2.公式里还需要炸药的摩尔质量m你竟然不给公式，害我多花了好几分钟去回忆，[s:214]
3.不管做的这么样，下载附件花我2KCB你得还我，，
4.我睡觉了，，

/*****************************************************/
..........
/******************************************************/

附件换成正确的程序了，，不过，离虎哥的要求还差好多~~~~~~好好学习去了[s:215]
K-J公式计算程序beta1.zip 4.03KB ZIP 26次下载

新人初来乍到，不懂之处还请指教。

程序使用了MFC，怕有的计算机没装MFC库，使用了静态库，程序就稍微胖了点。。。

贴上计算的代码，不知道是否有误?
        /*m_a,m_b,m_c,m_d分别对应a，b，c，d。speed：爆速；press：爆压*/
       double N,M,Q,mol,speed,press;
    UpdateData(TRUE);

    mol=m_a*12+m_b+m_c*16+m_d*14.01;

    if( m_c>=((2*m_a)+(m_b/2)))
    {
        N=(m_b+m_c*2+m_d*2)/(4*mol);
        M=(4*mol)/(m_b+m_c*2+m_d*2);
        Q=(1000*(28.9*m_b+94.05*m_a+0.239*m_Hf))/mol;

    }
    else if((m_c>=(m_b/2))&&(m_c<(2*m_a+m_b/2)))
    {
        N=(m_b+m_c*2+m_d*2)/(4*mol);
        M=(56*m_d+88*m_c-m_b*8)/(m_b+m_c*2+m_d*2);
        Q=(1000*(28.9*m_b+94.05*(m_c*0.5-0.25*m_b)+0.239*m_Hf))/mol;
    }
    else if(m_c<(m_b/2))
    {
        N=(m_b+m_d)/(2*mol);
        M=(2*m_b+28*m_d+32*m_c)/(m_b+m_d);
        Q=(1000*(57.8*m_c+0.239*m_Hf))/mol;
    }
    else
    {
        MessageBox(L"参数出错？");
        return;
    }

    speed= 1.01* pow((N*pow(M,0.5)*pow(Q,0.5)),0.5)*(1+1.3*m_p) ; //D=1.01（NM0.5Q0.5）0.5(1+1.30ρ)
    press=1.558*pow(m_p,2)*N*pow(M,0.5)*pow(Q,0.5);    // P=1.558p2NM0.5Q0.5

    m_XXXXXXXXrmat(L"%fGpa",press);
    m_XXXXXXXXXXXXrmat(L"%fkm/s",speed);

    UpdateData(FALSE);

由于不懂这方面的东西，没法给出测试用例，所以正不正确我也不知道。。。[s:220]  



/************************************************************************************************************/

以前的无视吧，程序改了，这是改了后的：
CaHbOcNd.rar 147.92KB RAR 34次下载

翻帖子就像翻系统日志，习惯了只看最后面新增的的，没主意到要在原帖上修改。。

1.虎哥太实在了，，，说2个还真就只给了2个KCB[s:241]
2.贾君鹏同志您把百分号去掉俺会很开心O(∩_∩)O~~
3.跟LS兄弟做的程序一比咱得的有些寒碜啊[s:213]，只是，爆速爆压弄反了把~~~

喂。。。别用wps格式啊。。。mac下打不开啊。。。 = =

mac版，Intel 64




EpCalc.zip 26.86KB ZIP 25次下载

用javascript吧，全平台
win, mac, linux, unix
各种手机
甚至游戏机
只要能开浏览器都可以用

Android版 =w=

  




EpCalc.apk.zip 12.22KB ZIP 44次下载

额。。还真填反了，都没注意到。。[s:233]
修正后的附上：
CaHbOcNd.rar 147.93KB RAR 42次下载

等我进来ms已经没活干了...话说真是“各种”版本啊，支持下

谁能编个网页代码，放到我们网站的在线工具栏目中？

XXXXXXXXXXXXXXXXXXXXXXXX/t/31992

先等一等= =，我代入数据时貌似有些问题，难道我给的公式出错了？
计算1.84密度时的HMX

网页版的。。。
我这些专业公式一点都不懂，抄的 primula 的 C 语言的。
结果弄反了也抄过来了，改一下。
b.zip 1.38KB ZIP 38次下载

恶寒，确实搞错了= =更正部分如下，我认错我认罚。。。。。。。

引用第10楼dracula1429于2012-03-11 18:25发表的  :
先等一等= =，我代入数据时貌似有些问题，难道我给的公式出错了？
计算1.84密度时的HMX

貌似公式有错，我用Mathematica算了一次



另外2楼这句也有错： mol=m_a+m_b*12+m_c*16+m_d*14;
应该是 mol=m_a*12 + m_b + m_c * 16 + m_d * 14;

引用第12楼dracula1429于2012-03-11 19:06发表的  :
恶寒，确实搞错了= =更正部分如下，我认错我认罚。。。。。。。

于是正确了。。。= =

还是如当年的破93一样可爱~pia
有回忆么？
话说93把安卓版修改一下发布吧，我白天在工地无法上网，手机的方面我很需要。

引用第15楼dracula1429于2012-03-11 19:26发表的  :
还是如当年的破93一样可爱~pia
有回忆么？
话说93把安卓版修改一下发布吧，我白天在工地无法上网，手机的方面我很需要。

我了个大噗……

于是更新Android版 。。。

顺便附上正确的代码






EpCalc2.apk.zip 12.38KB ZIP 46次下载   

个人感觉楼主的要求不够完备。一个程序应该有：确定的名称、关于操作步骤的明确的提示（不一定要语言写出来，但要做到用户拿着程序可以无师自通），输入量的名称、单位和格式的提示，明确的计算精度要求（无意义的小数位数要去掉），如果输入错误或侦测到错误，要有明确的提示，并且尽量减少因错误导致的损失（比如正确的输入应当保留）。使用要尽量简明易懂，比如输入如果少于5个可能的情况，应做成选择项；对于超过半数用户都会填进的数值，可以做成开机默认值。最后，要注明版本号和版权，例如科创论坛***出品。这些是程序人机交互的一些基本原则。

公式修正了，另外像dd说的，碳原子数和氢原子数也被我弄反了。。
贴上代码：
    double N,M,Q,mol,speed,press;
    UpdateData(TRUE);

    mol=m_a*12+m_b+m_c*16+m_d*14.01;

    if( m_c>=((2*m_a)+(m_b/2)))
    {
        N=(m_b+m_c*2+m_d*2)/(4*mol);
        M=(4*mol)/(m_b+m_c*2+m_d*2);
        Q=(1000*(28.9*m_b+94.05*m_a+0.239*m_Hf))/mol;

    }
    else if((m_c>=(m_b/2))&&(m_c<(2*m_a+m_b/2)))
    {
        N=(m_b+m_c*2+m_d*2)/(4*mol);
        M=(56*m_d+88*m_c-m_b*8)/(m_b+m_c*2+m_d*2);
        Q=(1000*(28.9*m_b+94.05*(m_c*0.5-0.25*m_b)+0.239*m_Hf))/mol;
    }
    else if(m_c<(m_b/2))
    {
        N=(m_b+m_d)/(2*mol);
        M=(2*m_b+28*m_d+32*m_c)/(m_b+m_d);
        Q=(1000*(57.8*m_c+0.239*m_Hf))/mol;
    }
    else
    {
        MessageBox(L"参数出错？");
        return;
    }

    speed= 1.01* pow((N*pow(M,0.5)*pow(Q,0.5)),0.5)*(1+1.3*m_p) ; //D=1.01（NM0.5Q0.5）0.5(1+1.30ρ)
    press=1.558*pow(m_p,2)*N*pow(M,0.5)*pow(Q,0.5);    // P=1.558p2NM0.5Q0.5

    m_XXXXXXXXrmat(L"%fGpa",press);
    m_XXXXXXXXXXXXrmat(L"%fkm/s",speed);

    UpdateData(FALSE);
贴上程序：
CaHbOcNd.rar 147.92KB RAR 35次下载
建议LZ以后能给个测试用例，写完了我都不知道怎么验证对不对[s:233]