draw_r42.C

#include "Rtypes.h"
#include "Riostream.h"
#include "tkmanager.h"
#include "tknuclear_chart.h"
 
using namespace  tkn;
 
void draw_r42(){
 
    tkn::tkmanager dtm;
    auto* nn = new tknuclear_chart("E(4^{+})/E(2^{+})",tknuclear_chart::kEven,0,true);
    for(const auto &nuc : dtm.get_nuclei([](auto nuc) {return (nuc->get_z()%2==0 && nuc->get_n()%2==0);})) {
 
        auto lev_scheme = nuc->get_level_scheme();
 
        auto lvl2 = lev_scheme->get_level("2+1",true);
        auto lvl4 = lev_scheme->get_level("4+1",true);
        if(!lvl2||!lvl4) continue;
 
        if(!lvl2->has_property("energy")||!lvl4->has_property("energy")) continue;
        double e2 = lvl2->get_energy();
        double e4 = lvl4->get_energy();
        double r42 = e4/e2;
 
        nn->set_value(nuc->get_z(), nuc->get_n(), r42);
    }
 
    nn->draw();
    nn->save_as("draw_r42.png");
}