请各位高手帮菜鸟看看这段小程序

wangminmin 发表于 2006-5-16 20:51:00

这段小程序是用来画图的一部分，运行的时候没有错误，但就是没有正确结果

xxsheng 发表于 2006-5-16 22:47:00

程序呢?

wangminmin 发表于 2006-5-17 10:29:00

// bc2Dlg.cpp : implementation file //
#include "stdafx.h" #include "resource.h" #include "bc1Dlg.h" #include "bc2Dlg.h" #include "bc3Dlg.h"
#include <string.h> #include <aced.h> #include <dbents.h> #include <dbsymtb.h> #include <dbgroup.h> #include <dbapserv.h> #include <math.h>
#ifdef _DEBUG #define new DEBUG_NEW #undef THIS_FILE static char THIS_FILE[] = __FILE__; #endif
double C,d,d0,d1,d2,h,D1,D2,t0,K,Fmax,Fmin,Flim,n,n1,n2,Lmax,Lmin,Llim,        G,H,H0,A,t,L0; char Fmaxs,Fmins,hs,D1s; extern char a,b,c;
///////////////////////////////////////////////////////////////////////////// // bc2Dlg dialog
 bc2Dlg::bc2Dlg(CWnd* pParent /*=NULL*/)  : CDialog(bc2Dlg::IDD, pParent) {  //{{AFX_DATA_INIT(bc2Dlg)   // NOTE: the ClassWizard will add member initialization here  //}}AFX_DATA_INIT }
 void bc2Dlg::DoDataExchange(CDataExchange* pDX) {  CDialog::DoDataExchange(pDX);  //{{AFX_DATA_MAP(bc2Dlg)  DDX_Control(pDX, IDC_EDIT4, m_D1);  DDX_Control(pDX, IDC_EDIT3, m_h);  DDX_Control(pDX, IDC_EDIT2, m_Fmin);  DDX_Control(pDX, IDC_EDIT1, m_Fmax);  //}}AFX_DATA_MAP }
 BEGIN_MESSAGE_MAP(bc2Dlg, CDialog)  //{{AFX_MSG_MAP(bc2Dlg)  //}}AFX_MSG_MAP END_MESSAGE_MAP()
///////////////////////////////////////////////////////////////////////////// // bc2Dlg message handlers
BOOL bc2Dlg::OnInitDialog() {  CDialog::OnInitDialog();    // TODO: Add extra initialization here    return TRUE;  // return TRUE unless you set the focus to a control                // EXCEPTION: OCX Property Pages should return FALSE }
void bc2Dlg::OnOK() {  m_Fmax.GetWindowText(Fmaxs,20);     m_Fmin.GetWindowText(Fmins,20);  m_h.GetWindowText(hs,20);  m_D1.GetWindowText(D1s,20);      Fmax=atof((LPCTSTR)Fmaxs);  Fmin=atof((LPCTSTR)Fmins);  h=atof((LPCTSTR)hs);  D1=atof((LPCTSTR)D1s);  // TODO: Add extra validation here    CDialog::OnOK(); //_______________________*************_______________________第一步确定D2和d; C=6; d1=D1/(C+1); K=(4*C-1)/(4*C-4)+(0.615/C); //_______*****________计算【t】许用切应力 if (b=="I类") {if (c=="碳素弹簧钢丝GB4357") t0=570;/就是在这里把t0的值提不出来    else if (c=="琴钢丝YB/Y5101") t0=740;    else if (c=="弹簧用不锈钢丝YBD(T)11") t0=740;    else if (c=="阀门有油淬火回火碳素弹簧钢丝YB/T5102") t0=740;    else if (c=="油淬火回火碳素弹簧钢丝YB/T5103") t0=740;    else if (c=="油淬火回火硅锰弹簧钢丝YB/T5104") t0=740;    else if (c=="阀门有油淬火回火碳素硌硅弹簧钢丝YB/T5105") t0=710;    else if (c=="阀门有油淬火回火硌钒弹簧钢丝YD/T5108") t0=710;}
if (b=="II类") {  if(c=="碳素弹簧钢丝GB4357")  t0=455;    if(c=="琴钢丝YB/Y5101")  t0=590;    if(c=="弹簧用不锈钢丝YBD(T)11")  t0=590;    if (c=="阀门有油淬火回火碳素弹簧钢丝YB/T5102")  t0=590;    if (c=="油淬火回火碳素弹簧钢丝YB/T5103")  t0=590;    if (c=="油淬火回火硅锰弹簧钢丝YB/T5104")  t0=590;    if (c=="阀门有油淬火回火碳素硌硅弹簧钢丝YB/T5105")  t0=570;    if (c=="阀门有油淬火回火硌钒弹簧钢丝YD/T5108")  t0=570; }
if (b=="III类") {if(c=="碳素弹簧钢丝GB4357")  t0=340;    else if (c=="琴钢丝YB/Y5101")  t0=455;    else if (c=="弹簧用不锈钢丝YBD(T)11")  t0=455;    else if (c=="阀门有油淬火回火碳素弹簧钢丝YB/T5102")  t0=455;    else if (c=="油淬火回火碳素弹簧钢丝YB/T5103")  t0=455;    else if (c=="油淬火回火硅锰弹簧钢丝YB/T5104")  t0=455;    else if (c=="阀门有油淬火回火碳素硌硅弹簧钢丝YB/T5105")  t0=430;    else if (c=="阀门有油淬火回火硌钒弹簧钢丝YD/T5108")  t0=430;} d2=1.6*sqrt(K*Fmax*C/t0);
for (C=6;d1-d2>0.5||d1-d2<(-0.5);C++) {d1=D1/(C+1);d2=1.6*sqrt(K*Fmax*C/t0);} d=d2;
    if( 0.10<d&&d<=0.12) d=0.12;     else if  (0.12<d2&&d2<=0.14) d=0.14;     else if  (0.14<d2&&d2<=0.16) d=0.16;  else if  (0.16<d2&&d2<=0.20) d=0.20;  else if  (0.20<d2&&d2<=0.25) d=0.25;
 else if  (0.25<d2&&d2<=0.30)d=0.30;  else if  (0.30<d2&&d2<=0.35)d=0.35;  else if  (0.35<d2&&d2<=0.40)d=0.40;  else if  (0.40<d2&&d2<=0.45)d=0.45;  else if  (0.45<d2&&d2<=0.50)d=0.50;  else if  (0.50<d2&&d2<=0.60)d=0.60;  else if  (0.60<d2&&d2<=0.70)d=0.70;  else if  (0.70<d2&&d2<=0.80)d=0.80;  else if  (0.80<d2&&d2<=0.90)d=0.90;  else if  (0.90<d2&&d2<=1.00)d=1.00;  else if  (1.00<d2&&d2<=1.20)d=1.20;  else if  (1.20<d2&&d2<=1.60)d=1.60;
 else if  (1.60<d2&&d2<=2.00)d=2.00;  else if  (2.00<d2&&d2<=2.50)d=2.50;  else if  (2.50<d2&&d2<=3.00)d=3.00;  else if  (3.00<d2&&d2<=3.50)d=3.50;  else if  (3.50<d2&&d2<=4.00)d=4.00;
 else if  (4.00<d2&&d2<=4.50)d=4.50;  else if  (4.50<d2&&d2<=5.00)d=5.00;  else if  (5.00<d2&&d2<=6.00)d=6.00;  else if  (6.00<d2&&d2<=8.00)d=8.00;  else if  (8.00<d2&&d2<=10.0)d=10.0;  else if  (10.0<d2&&d2<=12.0)d=12.0;  else if  (12.0<d2&&d2<=16.0)d=16.0;
 else if  (16.0<d2&&d2<=20.0)d=20.0;  else if  (20.0<d2&&d2<=25.0)d=25.0;  else if  (25.0<d2&&d2<=30.0)d=30.0;  else if  (30.0<d2&&d2<=35.0)d=35.0;  else if  (35.0<d2&&d2<=40.0)d=40.0;  else if  (40.0<d2&&d2<=45.0)d=45.0;
 else if (45.0<d2&&d2<=50.0) d=50.0;  else if (50.0<d2&&d2<=60.0) d=60.0;  else if (60.0<d2&&d2<=70.0) d=70.0;  else if (70.0<d2&&d2<=80.0) d=80.0;     else if (80.0<d2||d2<0.10)   acedAlert("\n      错误!\nd的值计算存在错误!!!\n请从新选择参数!");
 //____________**********___________ 确定有效工作圈数n Lmax=Fmax*h/(Fmax-Fmin); if (c=="碳素弹簧钢丝GB4357") G=79000; if (c=="琴钢丝YB/Y5101") G=79000; if (c=="弹簧用不锈钢丝YBD(T)11") G=71000; if (c=="阀门有油淬火回火碳素弹簧钢丝YB/T5102") G=79000;
if (c=="油淬火回火碳素弹簧钢丝YB/T5103") G=79000;//就是在这里把G的值提不出if (c=="油淬火回火硅锰弹簧钢丝YB/T5104") G=79000; if (c=="阀门有油淬火回火碳素硌硅弹簧钢丝YB/T5105") G=79000; if (c=="阀门有油淬火回火硌钒弹簧钢丝YD/T5108") G=79000;
n1=(G*Lmax*d)/(8*Fmax*C*C*C); if      (2<n1&&n1<=2.25) n=2.25; else if (2.25<n1&&n1<=2.5) n=2.5; else if (2.5<n1&&n1<=2.75) n=2.75; else if (2.75<n1&&n1<=3) n=3; else if (3<n1&&n1<=3.25) n=3.25; else if (3.25<n1&&n1<=3.5) n=3.5; else if (3.5<n1&&n1<=3.75) n=3.75; else if (3.75<n1&&n1<=4) n=4; else if (4<n1&&n1<=4.25) n=4.25; else if (4.25<n1&&n1<=4.5) n=4.5; else if (4.5<n1&&n1<=4.75) n=4.75; else if (4.75<n1&&n1<=5) n=5; else if (5<n1&&n1<=5.5) n=5.5; else if (5.5<n1&&n1<=6) n=6; else if (6<n1&&n1<=6.5) n=6.5; else if (6.5<n1&&n1<=7) n=7; else if (7<n1&&n1<=7.5) n=7.5; else if (7.5<n1&&n1<=8) n=8; else if (8<n1&&n1<=8.5) n=8.5; else if (8.5<n1&&n1<=9) n=9; else if (9<n1&&n1<=9.5) n=9.5; else if (9.5<n1&&n1<=10) n=10; else if (10<n1&&n1<=10.5) n=10.5; else if (10.5<n1&&n1<=11.5) n=11.5; else if (11.5<n1&&n1<=12.5) n=12.5; else if (12.5<n1&&n1<=13.5) n=13.5; else if (13.5<n1&&n1<=14.5) n=14.5; else if (14.5<n1&&n1<=15) n=15; else if (15<n1&&n1<=16) n=16; else if (16<n1&&n1<=18) n=18; else if (18<n1&&n1<=20) n=20; else if (20<n1&&n1<=22) n=22; else if (22<n1&&n1<=25) n=25; else if (25<n1&&n1<=28) n=28; else if (28<n1&&n1<=30) n=30; else if (30<n1||n1<2)   acedAlert("\n      错误!\n弹簧圈数n的值计算存在错误!\n请从新选择参数!");
n2=n+2;//总圈数为n2,
//____________**********___________ 确定变形量Llin，Lmax，Lmin，和实际最小载荷Fmin
Flim=Fmax/0.8; Llim=8*n*Flim*C*C*C/(G*d);
Lmax=8*n*Fmax*C*C*C/(G*d); Lmin=Lmax-h; Fmin=G*Lmin*d/(8*n*C*C*C);
//____________**********___________ 确定弹簧节距t，自由高度H,螺旋升角和簧丝展开长度L0 d0=0.1*d;//在F作用下相连两圈的间距 t=(d+Lmax)/(n+d0);//节距t H=n*t+1.5*d;//自由高度 if (4<H&&H<=5) H=5; else if (5<H&&H<=6) H0=6; else if (6<H&&H<=7) H0=7; else if (7<H&&H<=8) H0=8; else if (8<H&&H<=9) H0=9; else if (9<H&&H<=10) H0=10; else if (10<H&&H<=11) H0=11; else if (11<H&&H<=12) H0=12; else if (12<H&&H<=13) H0=13; else if (13<H&&H<=14) H0=14; else if (14<H&&H<=15) H0=15; else if (15<H&&H<=16) H0=16; else if (16<H&&H<=17) H0=17; else if (17<H&&H<=18) H0=18; else if (18<H&&H<=19) H0=19; else if (19<H&&H<=20) H0=20; else if (20<H&&H<=22) H0=22; else if (22<H&&H<=24) H0=24; else if (24<H&&H<=26) H0=26; else if (26<H&&H<=28) H0=28; else if (28<H&&H<=30) H0=30; else if (30<H&&H<=35) H0=35; else if (32<H&&H<=35) H0=35; else if (35<H&&H<=38) H0=38; else if (38<H&&H<=40) H0=40; else if (40<H&&H<=42) H0=42; else if (42<H&&H<=45) H0=45; else if (45<H&&H<=48) H0=48; else if (48<H&&H<=50) H0=50; else if (50<H&&H<=52) H0=52; else if (52<H&&H<=55) H0=55; else if (55<H&&H<=58) H0=58; else if (58<H&&H<=60) H0=60; else if (60<H&&H<=65) H0=65; else if (65<H&&H<=70) H0=70; else if (70<H&&H<=75) H0=75; else if (75<H&&H<=80) H0=80; else if (80<H&&H<=85) H0=85; else if (85<H&&H<=90) H0=90; else if (90<H&&H<=95) H0=95; else if (95<H&&H<=100) H0=100; else if (100<H&&H<=105) H0=105; else if (105<H&&H<=110) H0=110;
else if (110<H&&H<=115) H0=115; else if (115<H&&H<=120) H0=120; else if (120<H&&H<=130) H0=130; else if (130<H&&H<=140) H0=140; else if (140<H&&H<=150) H0=150; else if (150<H&&H<=160) H0=160; else if (160<H&&H<=170) H0=170; else if (170<H&&H<=180) H0=180; else if (180<H&&H<=190) H0=190; else if (190<H&&H<=200) H0=200; else if (200<H&&H<=220) H0=220; else if (220<H&&H<=240) H0=240; else if (240<H&&H<=260) H0=260; else if (260<H&&H<=280) H0=280; else if (280<H&&H<=300) H0=300; else if (300<H&&H<=320) H0=320; else if (320<H&&H<=340) H0=340; else if (340<H&&H<=360) H0=360; else if (360<H&&H<=380) H0=380; else if (380<H&&H<=400) H0=400; else if (400<H&&H<=420) H0=420; else if (420<H&&H<=450) H0=450; else if (450<H&&H<=480) H0=480; else if (480<H&&H<=500) H0=500; else if (500<H&&H<=520) H0=520; else if (520<H&&H<=550) H0=550; else if (550<H&&H<=580) H0=580; else if (580<H&&H<=600) H0=600; else if (600<H&&H<=620) H0=620; else if (620<H&&H<=650) H0=650; else if (650<H&&H<=680) H0=680; else if (680<H&&H<=700) H0=700; else if (700<H&&H<=720) H0=720; else if (720<H&&H<=750) H0=750; else if (750<H&&H<=780) H0=780; else if (780<H&&H<=800) H0=800; else if (800<H&&H<=850) H0=850;
else if (850<H&&H<=900) H0=900; else if (900<H&&H<=1000) H0=1000; else if (1000<H||H<4)   acedAlert("\n      错误!\n弹簧自由高度的值计算存在错误!\n请从新选择参数!");
A=atan(t/(3.141592*D2)); L0=3.141592*D2*n2/cos(A); //____________**********___________ 稳定性计算

wangminmin 发表于 2006-5-17 10:32:00

这是个做二维弹簧工作图的设计部分
画图部分已经做了，就等设计完成了
小菜鸟很急，请各位朋友帮忙
我的email:wangqingm@eyou.com
QQ:43556244

页: [1]

明经CAD社区's Archiver

请各位高手帮菜鸟看看这段小程序