uses
OLEctrls, ComObj,
Mathcad_TLB, OleCtnrs;
var
Mcd : IAuto;
McdDoc : IMathcad;
Mc,MDoc: variant;
procedure TForm1.Button1Click(Sender: TObject);
begin
Mc:=CreateOleObject('mathcad.auto');
Mc.Open(GetCurrentDir+'\part1.mcd');
MDoc:=Mc.ActiveDocument;
end;
procedure TForm1.Button3Click(Sender: TObject);
var M1r,M1i : OleVariant;
begin
MDoc.GetComplex('in0',M1r,M1i);
M1r:=67; M1i:=0;
MDoc.SetComplex('in0',M1r,M1i);
MDoc.Recalculate;
end;
MathCAD
Всем Привет!
Нужен совет, как перенести код написанный на Delphi в Builder
Нужен совет, как перенести код написанный на Delphi в Builder
Код:
1. Составить программу для табулирования функции y(x)=2^cos(x)+x, x=(-"пи","пи") с шагом "дельта х=0,2*"пи" используя оператор for.
2. Составить программу для расчета длины кривой, заданной функцией
y(x)=2^cos(x)+x, x=(-"пи","пи")
3. Аппроксимировать экспериментальные данные, представленные массивом , функцией y(x)=2^cos(x)+x
^ - возведение в степень.
пи - это латинская пи 3.14..........
2. Составить программу для расчета длины кривой, заданной функцией
y(x)=2^cos(x)+x, x=(-"пи","пи")
3. Аппроксимировать экспериментальные данные, представленные массивом , функцией y(x)=2^cos(x)+x
^ - возведение в степень.
пи - это латинская пи 3.14..........