package Ġto mas vol ker . num er iko . complex . interfaces . array nd . view Ċ Ċ import Ġto mas vol ker . num er iko . complex . interfaces . array 0 d . Default Mutable Complex Array 0 D Ċ import Ġto mas vol ker . num er iko . complex . interfaces . array nd . Mutable Complex Array ND Ċ Ċ class ĠDefault Complex Array ND 0 D View ( ĊĠĠĠĠĠĠĠ Ġval Ġarray : ĠMutable Complex Array ND Ċ ) Ġ: ĠDefault Mutable Complex Array 0 D () Ġ{ ĊĊĠĠĠ Ġinit Ġ{ ĊĠĠĠĠĠĠĠ Ġrequire ( array . rank Ġ== Ġ 0 ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġoverride Ġval Ġsize : ĠInt ĊĠĠĠĠĠĠĠ Ġget () Ġ= Ġ 1 ĊĊĠĠĠ Ġoverride Ġfun Ġreal (): ĠDouble Ġ= Ġarray . real () ĊĠĠĠ Ġoverride Ġfun Ġimag (): ĠDouble Ġ= Ġarray . imag () ĊĊĠĠĠ Ġoverride Ġfun Ġset Real ( value : ĠDouble ) Ġ{ ĊĠĠĠĠĠĠĠ Ġarray . set Real ( value ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġoverride Ġfun Ġset Imag ( value : ĠDouble ) Ġ{ ĊĠĠĠĠĠĠĠ Ġarray . set Imag ( value ) ĊĠĠĠ Ġ} Ċ Ċ } Ċ