clear;

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

// *** 濃度 ***
// 質量パーセント(wt.%)
y = linspace(0,100);

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

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