clear;

// *** 原子量 ***
Mcu = 63.546;
Mau = 196.96657;

// *** 濃度 ***
// 原子パーセント(at.%)
x = linspace(0,100);

// *** 関数の定義 ***
function y = at2wt(x,Ma,Mb)
  y = 100 * x .* Mb ./ ((100 - x) .* Ma + x .* Mb)
endfunction

// *** グラフのプロット ***
plot(x,at2wt(x,Mau,Mcu));
xgrid(color("gray"));
xlabel("Atomic % Cu");
ylabel("Weight % Cu");