MOON function and REG-G function replacement for AC800M

Hi Kamil,
regarding on my previous question on forum, related to MOON fucntion,
could you please share FB for AC800M Control Builder Professional :)
another is REG-G fucntion, and FUNG-1V, if you have already developt ones :)
Thanks
BR
frisal

Comments (0) New comment

frisal.argha-kusumah Rank: 633

Asked 2 months ago

Answer this question Follow

Voted best answer

Hi Frisal,
find attached FBs MOON, Fung-1V , MAJ-R (MajorityRealAdv) and data type Real21.
Fung-1V and MAJ-R are tested in parallel with AC450 and used in the real project already.
MOON is not tested yet however it is created as modified copy of MajorityRealAdv, so it should work as well.
Regarding REG-G in combination with FUNG-1V , I usually use extensible MOVE instead of Reg-G. Extensible MOVEs just fill-in table data into the structured variables of Real21 type to be connected to XTab, YTab inputs of Fung-1V.

Did you check my conversion tool Ampl2m? It has been used in many migration projects even for AC160 migration of Burner control system.
I think it is worth to use the conversion tool to avoid that exhaustive manual reprogramming of original logic and to avoid possible typos. We are all humans who make mistakes sometimes so its better to convert automatically. I have commissioned converted code by myself in 4 projects so I fully trust the tool.
At the web side of the tool you can find UserLib available containing more Function blocks as replacement of Advant PC elements.

Good luck!
BR
Kamil

Comments (2) New comment

by kamil.herman Rank: 25 on 6/8/2020 8:00:17 AM | Like (0) | Report

Hi Frisal,
I found mistake in MOON function block in AFW that I attached in my previous post. Please replace inner code of MOON by following one:
i := 0.0;
MeanVal := 0.0;

if not Err[1] then
MeanVal := MeanVal + In[1];
i := i + 1.0;
end_if;
if Multisize >= 2 then
if not Err[2] then
MeanVal := MeanVal + In[2];
i := i + 1.0;
end_if;
end_if;
if Multisize >= 3 then
if not Err[3] then
MeanVal := MeanVal + In[3];
i := i + 1.0;
end_if;
end_if;
if Multisize >= 4 then
if not Err[4] then
MeanVal := MeanVal + In[4];
i := i + 1.0;
end_if;
end_if;
if Multisize >= 5 then
if not Err[5] then
MeanVal := MeanVal + In[5];
i := i + 1.0;
end_if;
end_if;

if i > 0.0 then
MeanVal := MeanVal / i;
MeanVal_valid := True;
else
MeanVal := 0.0;
MeanVal_valid := False;
end_if;

In1dev := (Abs( MeanVal - In[1]) > Dev) and MeanVal_valid;
Ton1( In := In1dev,
PT := T);
In1disturb := Ton1.Q or Err[1];
sumUndisturbed := bool_to_int(not In1disturb);
FltIn[1] := In1disturb;

if Multisize >= 2 then
In2dev := (Abs( MeanVal - In[2]) > Dev) and MeanVal_valid;
Ton2( In := In2dev,
PT := T);
In2disturb := Ton2.Q or Err[2];
sumUndisturbed := sumUndisturbed + bool_to_int(not In2disturb);
FltIn[2] := In2disturb;
end_if;

if Multisize >= 3 then
In3dev := (Abs( MeanVal - In[3]) > Dev) and MeanVal_valid;
Ton3( In := In3dev,
PT := T);
In3disturb := Ton3.Q or Err[3];
sumUndisturbed := sumUndisturbed + bool_to_int(not In3disturb);
FltIn[3] := In3disturb;
end_if;

if Multisize >= 4 then
In4dev := (Abs( MeanVal - In[4]) > Dev) and MeanVal_valid;
Ton4( In := In4dev,
PT := T );
In4disturb := Ton4.Q or Err[4];
sumUndisturbed := sumUndisturbed + bool_to_int(not In4disturb);
FltIn[4] := In4disturb;
end_if;

if Multisize >= 5 then
In5dev := (Abs( MeanVal - In[5]) > Dev) and MeanVal_valid;
Ton5( In := In5dev,
PT := T);
In5disturb := Ton5.Q or Err[5];
sumUndisturbed := sumUndisturbed + bool_to_int(not In5disturb);
FltIn[5] := In5disturb;
end_if;

if sumUndisturbed >= C1_M then
FLT_IN := False;
else
FLT_IN := True;
end_if;

if sumUndisturbed = Multisize then
FLTNUM := False;
else
FLTNUM := True;
end_if;

Out := MeanVal;

by frisal.argha-kusumah Rank: 633 on 6/8/2020 8:22:57 AM | Like (0) | Report

Hi Kamil,
That is very Great Help :), Excellent, i will implement that's on my migration project, Thanks a lot Sir :)
about the migration tools, is it can be download from ABB library ? unfourtunately library is not available now, if you don't mind kindly please share also :)
Thank You Sir
BR
frisal

Add new comment

kamil.herman Rank: 25

Answered 2 months ago

TransferLib_forFrisa.afw

Question details

MOON function and REG-G function replacement for AC800M

Voted best answer

Other questions needing answers

Related topics

AKS experts