solve.dcl

autolisp编写的解决一元线性方程的程序

//solve.dcl
dcl_solve : dialog {
  label = "解一元方程";
  key = "p0";
  : boxed_column {
    : row {
      key = "expression";
      : edit_box {
        key="p1";
        label= "请输入表达式:";
      }
    }
    : row {
      key = "F&A";
      fixed_width = true;
      : edit_box {
        key="p2";
        label= "初始值:";
        edit_width = 12;
      }
      : edit_box {
        key="p3";
        label= "精确到小数后位数:";
        edit_width = 4;
      }
    }
    spacer_1;
  }
  : row {
    fixed_width = true;
    alignment = centered;
    : ok_button : retirement_button {
      label = "确定";
      key = "accept";
      is_default = true;
    }
    spacer;
    spacer;
    : cancel_button : retirement_button {
      label = "取消";
      key = "cancel";
      is_cancel = true;
    }
    spacer;
    spacer;
    : help_button : retirement_button {
      label = "帮助(&H)";
      key = "help";
      is_help = true;
    }
  }
  errtile;
}